RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits

Mon, 28 Jul 2008 11:51:53 -0700 

Exatamente! Este é o código da unit!

 

  cepwsdlPortType = interface(IInvokable)

  ['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']

    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: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem 
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:46
Para: delphi-br@yahoogrupos.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: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
From: [EMAIL PROTECTED] <mailto:davi.wall%40mult.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.

__________________________________________________________
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/ <http://www.amigosdomessenger.com.br/> 

 



[As partes desta mensagem que não continham texto foram removidas]

Responder a