Acho melhor que vc passe o endereço em private pro Rubem, que se dispôs a te ajudar, Davi.
Atte, Ricardo. --- Em seg, 28/7/08, Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu: De: Rubem Nascimento da Rocha <[EMAIL PROTECTED]> Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 28 de Julho de 2008, 16:07 Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu num consigo ver como fazer isso sem o endereço real! Já aviso logo que se for o endereço do webservice dos correios, ele foi desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De repente, pode ser alguma mudança no próprio webservice que necessite regerar a unit, mas pra isso tem que ter o endereço real do webservice pra poder verificar isso! Sds. ____________ _________ _________ __ To: [EMAIL PROTECTED] os.com.br From: [EMAIL PROTECTED] com.br Date: Mon, 28 Jul 2008 16:04:51 -0300 Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits Sim! O endereço é fictício. ____________ _________ _________ __ De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 28 de julho de 2008 15:58 Para: [EMAIL PROTECTED] os.com.br Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits Prioridade: Alta Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo IE e ... nem tchum! Sds. ____________ _________ _________ __ To: [EMAIL PROTECTED] os.com.br From: [EMAIL PROTECTED] com.br Date: Mon, 28 Jul 2008 15:52:00 -0300 Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits Exatamente! Este é o código da unit! cepwsdlPortType = interface(IInvokabl e) ['{3E7EC10C- CAC0-3F39- B591-CA8F8E9208F B}'] procedure ConsultarCEP( const user: WideString; const pass: WideString; const cep: WideString; out endereco: WideString; out bairro: WideString; out cidade: WideString; out uf: WideString); stdcall; procedure ObterCEP(const user: WideString; const pass: WideString; const endereco: WideString; const cidade: WideString; const uf: WideString; const startrecord: integer; out qtdrecords: integer; out cep_1: WideString; out bairro_1: WideString; out endereco_1: WideString; out cep_2: WideString; out bairro_2: WideString; out endereco_2: WideString; out cep_3: WideString; out bairro_3: WideString; out endereco_3: WideString); stdcall; end; function GetcepwsdlPortType( UseWSDL: Boolean=System. False; Addr: string=''; HTTPRIO: THTTPRIO = nil): cepwsdlPortType; function GetcepwsdlPortType( UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): cepwsdlPortType; const defWSDL = 'http://www.meusite. com/wscep. php?wsdl '; defURL = 'http://www.meusite. com/wscep. php '; defSvc = 'cepwsdl'; defPrt = 'cepwsdlPort' ; 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 cepwsdlPortType) ; 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; ____________ _________ _________ __ De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 28 de julho de 2008 15:46 Para: [EMAIL PROTECTED] os.com.br Assunto: RE: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits Prioridade: Alta Fornece mais detalhes sobre teu SOAPHTTPClient. Deduzo eu que tu codificastes um aplicativo pra acessar um webservice. Se for, tu usas uma unit que traduz as chamadas ao webservice? Sds. ____________ _________ _________ __ To: [EMAIL PROTECTED] os.com.br From: [EMAIL PROTECTED] com.br Date: Mon, 28 Jul 2008 15:39:11 -0300 Subject: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits Olá, Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para consulta CEP's. Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV. Só acontece em máquinas com S.O. 64 bits. Talvez alguém já tenha passado por isso ? []'s Davi. ____________ _________ _________ _________ _________ _________ _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn. com.br/emoticonp ack [As partes desta mensagem que não continham texto foram removidas] ____________ _________ _________ _________ _________ _________ _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn. com.br/emoticonp ack Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]