Obrigado pelo link, Douglas! A aplicação que fiz segue o que foi demonstrada
aqui e também é iguarl ao demonstrado no artigo. Vou até trocar o WS que tinha
sido divulgado no começo desta thread pelo que está na matéria.
[]'s
Ricardo.
"Douglas Uesato - Depto. de Informática" <[EMAIL PROTECTED]> escreveu:
Galera,
No dia 22/01 foi incluído um tutorial para utilizar o webservice do
próprio correio no site da ClubeDelphi, inclusive tem uma aplicação de
exemplo mostrando como usar o serviço.
A matéria pode ser conferida no link abaixo:
http://www.devmedia.com.br/articles/viewcomp.asp?comp=4327
Eu realizei algumas consultas aqui e está tudo perfeito e como o
webservice é do próprio correio, acredito que a base disponibilizada por
eles deve estar atualizada.
Atenciosamente,
Douglas Uesato
________________________________________
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 25 de janeiro de 2007 10:53
Para: delphi-br@yahoogrupos.com.br
Assunto: [SPAM] Re: RES: [delphi-br] Usar serviço do correio para conseguir
CEP através da aplicação
Bom dia!
Também notei essa defasagem, mas apenas quando o CEP digitado é de uma
empresa. Nesse caso, adaptei no meu sistema que o usuário entre com as
informações do endereço não encontrado e assim eu crio a minha própria base.
[]'s
Ricardo.
Jader Ricardo <[EMAIL PROTECTED]> escreveu: Boa tarde amigos !!!
Criei a pequena aplicação aqui e funcionou corretamente, porém estou com
algumas dúvidas. Como um amigo da lista até mencionou tem determinados CEPs
que não encontramos, ou seja, não estão na base. Então, que base é essa ? É
a do correios ? É a mais recente ? E se não for a do correios, alguém aqui
já teve experiência em licenciar a base do correios ?
Atenciosamente,
Jader Ricardo
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Emerson Cassio
Enviada em: sábado, 6 de janeiro de 2007 01:17
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Usar serviço do correio para conseguir CEP através
da aplicação
Crie um novo Projeto (Delphi 7 em diante)
Salve o projeto e a unit.
Clique File..New...Other
Selecione a Aba WebServices
WSDL Importer...Ok
em Location of WSDLFileor URL digite:
http://www.byjg.
<http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep?wsdl>
com.br/xmlnuke-php/webservice.php/ws/cep?wsdl
Clique Next...Finish
Salve a unit criada com o nome CEP
Selecione o Form Principal do Projeto
Clique File...Use Unit...Selecione CEP e clique OK.
Adicione no Form o componente HTTPRIO da aba WebServices
Propriedade WSDLLocation coloque http://www.byjg.
<http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep?wsdl>
com.br/xmlnuke-php/webservice.php/ws/cep?wsdl
Propriedade Service coloque CEPService
Propriedade Port coloque CEPServicePort
Adicione no Form um Componente Edit e um Botão
De dois Clique no Botão e adicione o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
var
ObjSoap : CEPServicePort;
Num : string;
begin
ObjSoap:=HTTPRIO1 as CEPServicePort;
Num:=Edit1.text;
memo1.Lines.Add(ObjSoap.obterLogradouro(Num));
end;
Pronto rode o projeto, digite o cep no Edit tanto faz o formato "78000000"
ou "78000-000"
clique o botão e no memo aparecerá o respectivo endereço, bastando usar a
criatividade para usar da forma que melhor convir.
Codigo completo da Unit Principal
============================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, InvokeRegistry, StdCtrls, Rio, SOAPHTTPClient;
type
TForm1 = class(TForm)
HTTPRIO1: THTTPRIO;
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses cep;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
ObjSoap : CEPServicePort;
Num : string;
begin
ObjSoap:=HTTPRIO1 as CEPServicePort;
Num:=Edit1.text;
memo1.Lines.Add(ObjSoap.obterLogradouro(Num));
end;
end.
============================
Codigo Completo da Unit CEP
============================
// ************************************************************************
//
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : http://www.byjg.
<http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep?wsdl>
com.br/xmlnuke-php/webservice.php/ws/cep?wsdl
// Encoding : utf-8
// Version : 1.0
// (06-01-07 00:54:32 - 1.33.2.5)
// ************************************************************************
//
unit cep;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
type
// ************************************************************************
//
// The following types, referred to in the WSDL document are not being
represented
// in this file. They are either [EMAIL PROTECTED] of other types represented
or
were referred
// to but never[!] declared in the document. The types from the latter
category
// typically map to predefined/known XML or Borland types; however, they
could also
// indicate incorrect WSDL documents that failed to declare or import a
schema type.
// ************************************************************************
//
// !:string - "http://www.w3. <http://www.w3.org/2001/XMLSchema>
org/2001/XMLSchema"
ArrayOfstring = array of WideString; { "urn:CEPService" }
// ************************************************************************
//
// Namespace : urn:http://www.byjg. <http://www.byjg.com.br> com.br
// soapAction: urn:CEPServiceAction
// transport : http://schemas. <http://schemas.xmlsoap.org/soap/http>
xmlsoap.org/soap/http
// style : rpc
// binding : CEPServiceBinding
// service : CEPService
// port : CEPServicePort
// URL : http://www.byjg.
<http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep>
com.br/xmlnuke-php/webservice.php/ws/cep
// ************************************************************************
//
CEPServicePort = interface(IInvokable)
['{EC28595B-95D2-DE51-E5B1-57B81D4826D3}']
function obterVersao: WideString; stdcall;
function obterLogradouro(const cep: WideString): WideString; stdcall;
function obterCEP(const logradouro: WideString; const localidade:
WideString; const UF: WideString): ArrayOfstring; stdcall;
function obterCEPAuth(const logradouro: WideString; const localidade:
WideString; const UF: WideString; const usuario: WideString; const senha:
WideString): ArrayOfstring; stdcall;
end;
function GetCEPServicePort(UseWSDL: Boolean=System.False; Addr: string='';
HTTPRIO: THTTPRIO = nil): CEPServicePort;
implementation
function GetCEPServicePort(UseWSDL: Boolean; Addr: string; HTTPRIO:
THTTPRIO): CEPServicePort;
const
defWSDL = 'http://www.byjg.
<http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep?wsdl>
com.br/xmlnuke-php/webservice.php/ws/cep?wsdl';
defURL = 'http://www.byjg.
<http://www.byjg.com.br/xmlnuke-php/webservice.php/ws/cep>
com.br/xmlnuke-php/webservice.php/ws/cep';
defSvc = 'CEPService';
defPrt = 'CEPServicePort';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as CEPServicePort);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
initialization
InvRegistry.RegisterInterface(TypeInfo(CEPServicePort),
'urn:http://www.byjg. <http://www.byjg.com.br> com.br', 'utf-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(CEPServicePort),
'urn:CEPServiceAction');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfstring), 'urn:CEPService',
'ArrayOfstring');
end.
============================
Emerson Cassio
----- Original Message -----
From: Valfrid-Ly Silva Couto
To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
Sent: Thursday, January 04, 2007 5:42 PM
Subject: Re: [delphi-br] Usar serviço do correio para conseguir CEP através
da aplicação
A lista não aceita anexos!
Marcio Cruz <marcio.cruuz@ <mailto:marcio.cruuz%40itelefonica.com.br>
itelefonica.com.br> escreveu: Olá amigos,
este arquivo em anexo eu consegui no site do correios... Agora, como
será que faríamos uma aplicação que, ao clicarmos em "buscar", ele
traria as informações de endereço referente ao CEP?
Obrigado
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
Valfrid-Ly Silva Couto
[EMAIL PROTECTED] <mailto:valfrid%40uol.com.br> com.br
[EMAIL PROTECTED] <mailto:valfrid%40intermega.com.br> com.br
[EMAIL PROTECTED] <mailto:valfrid_ly%40hotmail.com> com
ICQ 15114646
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger <http://br.messenger.yahoo.com/> .yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
__________ Informação do NOD32 IMON 1957 (20070104) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset. <http://www.eset.com.br> com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
