Criar ACBrCEP em runtime?

[edjal]

Prezados,

Dá pra criar o ACBrCEP em runtime? Como configurar a propriedade URL nesse caso?

 

 

[datilas]

  Em 15/09/2024 at 00:27, edjal disse:

Prezados,

Dá pra criar o ACBrCEP em runtime? Como configurar a propriedade URL nesse caso?

 

 

Expandir  

Var
  i: integer;
  ACBrCEP1: TACBrCEP;
Begin
  ACBrCEP1 := TACBrCEP.Create(nil);
  Try
    ACBrCEP1.WebService := wsBrasilAPI;//wsNenhum,wsBuscarCep,wsCepLivre,wsRepublicaVirtual,...


    ACBrCEP1.ChaveAcesso := edChaveWS.Text;
    ACBrCEP1.Usuario := edUser.Text;
    ACBrCEP1.Senha := edPass.Text;

    ACBrCEP1.ProxyHost := edProxyHost.Text;
    ACBrCEP1.ProxyPort := edProxyPort.Text;
    ACBrCEP1.ProxyUser := edProxyUser.Text;
    ACBrCEP1.ProxyPass := edProxyPass.Text;

    ACBrIBGE1.ProxyHost := edProxyHost.Text;
    ACBrIBGE1.ProxyPort := edProxyPort.Text;
    ACBrIBGE1.ProxyUser := edProxyUser.Text;
    ACBrIBGE1.ProxyPass := edProxyPass.Text;
    ACBrIBGE1.IgnorarCaixaEAcentos := cbIgnorar.Checked;

    ACBrCEP1.BuscarPorCEP(edCEP.Text);

    If ACBrCEP1.Enderecos.Count > 0 Then
    Begin
      For i := 0 To Pred(ACBrCEP1.Enderecos.Count) Do
      Begin
        edtRua.Text := ACBrCEP1.Enderecos[i].Logradouro;
        //...
      End;
    End;
  Finally
    FreeAndNil(ACBrCEP1);
  End;
End;