ActiveDelphi

[ptu]

Boa tarde a todos, estou precisando desenvolver um webservice que irá receber um pedido de um cliente, e no metodo deste webservice fazer uma chamada a um webservice externo. Porém na linha que faço a chamada a este webservice externo esta dando Access Violation, sendo que se eu fizer um aplicação em Delphi do zero e fizer a mesma chamada a este webservice mas que nao seja de dentro do webservices meu a chamada funciona perfeitamente. O Erro só ocorre quando a chamada é feita dentro do metodo do meu webservice e ele tenta chamar um externo.

Cheguei a encontrar este tópico:

http://www.techtips.com.br/programacao/windows-service-acessando-webservice/

Porém não resolveu meu problema. A chamada esta assim:

meu metodo que esta no meu webservice.

function MetodoX(): TResultQuery;
var
httprio : THTTPRIO;
Ret : DataReturn;
i,z : Integer;
inter : SIMConsultasServiceSoap;
begin
try
httprio := THTTPRIO.Create(nil);
httprio.OnBeforeExecute := HTTPRIOBeforeExecute;
Result := TReturnQuery.Create;
Result.DescError := '';
Result.HasError := False;
httprio.URL := 'http://www.sitedaconsulta.com.br/webservice/service.asmx';
httprio.HTTPWebNode.UserName :='usuário';
httprio.HTTPWebNode.Password := 'senha';
inter := (httprio as SIMConsultasServiceSoap);

//NESTA LINHA ABAIXO DA CHAMADA OCORRE O ERRO

inter.Consulta(CST_CHAVE_ACESSO,Parser,renavam);



Se eu comentar esta linha não ocorre nenhum erro, e esta mesma chamada em uma aplicação feita em delphi funciona normalmente e todos meus outros metodos do meu webservice esta funcionando, o problema é quando eu chamo este webservice interno...Se alguem poder me ajudar fico grato...