consultar endereço pelo cep
03/04/2015
0
exemplo
ch�caras
segue o codigo
procedure TForm1.Button1Click(Sender: TObject);
var
lodados: TStringList;
begin
lodados:=TStringList.Create;
lodados.text:=stringreplace(idhttp1.URL.URLDecode(idhttp1.Get('http://republicavirtual.com.br/web_cep.php?cep='+edit1.text+'&formato=query_string')),'&',#13#10,[rfreplaceAll]);
edit2.text:=lodados.Values['TIPO_LOGRADOURO']+' '+lodados.Values['LOGRADOURO'];
edit3.text:=lodados.Values['BAIRRO'];
edit4.text:=lodados.Values['CIDADE'];
edit5.text:=lodados.Values['UF'];
end;
Nei
Posts
04/04/2015
William
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
Quando alterar, abre esse arquivo no idhttp.
23/05/2020
Leandro Marcon
Ola Nei.. você conseguiu resolver esse problema ? estou com a mesma dificuldade.
13/04/2024
Leandro Marcon
Genuine Females
<a href=https://datesnow.life>Optimal Сasual Dating</a>
13/09/2024
Leandro Marcon
Clique aqui para fazer login e interagir na Comunidade :)