CEP via net. Gerar consulta trazendo, nome, end, cidade...

Delphi

02/08/2004

Alguém sabe como consultar o CEP via Internet??? Trazendo o endereço, o bairro, a cidade e o estado nesta consulta...

Grato!


G1b4

G1b4

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

02/08/2004

Não sei se é bem isso, mas: http://www.correios.com.br/servicos/cep/dne.cfm


GOSTEI 0
G1b4

G1b4

02/08/2004

Não era bem isso... Tenho um exemplo, mas falta um site para saber como acessar, pois já tentei assim e não deu:
Var Vr_End:String;
    Vr_Txt: TextFile;
    Campo, Linha, Rua, Bairro, Cep, Cidade   :String;
    Result, Inicio, Fim,i  :Integer;

begin
     Vr_End:=´http://www.ceprocura.com.br/php/localidade_cep.php?vez=2&cep=´+EdtCEP.Text+´&Procurar=Procurar´;
     AssignFile(Vr_txt,´C:\ABASE\Despachante\TXT\www.TXT´);
     ReWrite(Vr_txt);
     CloseFile(Vr_Txt);
     HTTP.Post(Vr_End,´C:\ABASE\Despachante\TXT\www.TXT´);
     Editor.Text:= HTTP.Body;


     //Rua
     EdtHttp.Text:=´´;
     Campo :=´Endereço´;
     Inicio:=0;
     Fim := Length(Editor.Text);
     Result := Editor.FindText( Campo ,Inicio,Fim,[stMatchCase]);
     If Result <> -1 Then
       Begin
         Editor.SelStart :=  Result;
         Editor.SelLength := 200;
         Editor.CutToClipboard;
         EdtHttp.PasteFromClipboard;
         Linha:= Trim(EdtHttp.Lines[01]);

         Linha:= Copy(Linha,33,50);
         i   :=1;
         Rua :=´´;
         While i <= Length(Linha) Do
           Begin
             If Linha[i]=´&´Then
               I := I+5
             Else If Linha[i]<>´-´Then
               Rua := Rua+Linha[i]
             Else
               Break;
             i:=i+1;

           End;
         ShowMessage(rua);
       End;
     //Bairro
     EdtHttp.Text:=´´;
     Campo :=´Bairro´;
     Inicio:=0;
     Fim := Length(Editor.Text);
     Result := Editor.FindText( Campo ,Inicio,Fim,[stMatchCase]);
     If Result <> -1 Then
       Begin
         Editor.SelStart :=  Result;
         Editor.SelLength := 200;
         Editor.CutToClipboard;
         EdtHttp.PasteFromClipboard;
         Linha:= Trim(EdtHttp.Lines[01]);

         Linha:= Copy(Linha,33,50);
         i   :=1;
         Bairro :=´´;
         While i <= Length(Linha) Do
           Begin
             If Linha[i]=´&´Then
               I := I+5
             Else If Linha[i]<>´<´Then
               Bairro := Bairro+Linha[i]
             Else
               Break;
             i:=i+1;

           End;
         ShowMessage(Bairro);
       End;
     //Municipio
     EdtHttp.Text:=´´;
     Campo :=´Localidade´;
     Inicio:=0;
     Fim := Length(Editor.Text);
     Result := Editor.FindText( Campo ,Inicio,Fim,[stMatchCase]);
     If Result <> -1 Then
       Begin
         Editor.SelStart :=  Result;
         Editor.SelLength := 200;
         Editor.CutToClipboard;
         EdtHttp.PasteFromClipboard;
         Linha:= Trim(EdtHttp.Lines[01]);

         Linha:= Copy(Linha,33,50);
         i   :=1;
         Cidade :=´´;
         While i <= Length(Linha) Do
           Begin
             If Linha[i]=´&´Then
               I := I+5
             Else If Linha[i]<>´<´Then
               Cidade := Cidade+Linha[i]
             Else
               Break;
             i:=i+1;

           End;
         ShowMessage(Cidade);
       End;



GOSTEI 0
G1b4

G1b4

02/08/2004

Perdão Marcelo... você está corretíssimo...
Realmente me equivoquei... :cry:
Obrigado :wink: !!!


GOSTEI 0
POSTAR