Hola amigos...estoy tratando de programar usando directamente los webservices de AFIP, es decir sin librerias externas..
ya tengo mi crt y mi key para homologacion...
el caso es que importe el webservice de padron de nivel 3:
https://awshomo.afip.gov.ar/padron-p...rviceImpl?WSDL
y usando el componente HTTPRio de esta manera
Código Delphi
[-]begin
admin:=TIniFile.Create(ExtractFilePath(Application.ExeName )+ 'caja.ini');
ECUIT:=Copy(MaskEdit1.Text,0,2) + Copy(MaskEdit1.Text,4,8) + Copy(MaskEdit1.Text,13,1);
TLogin.unicoLogin;
xml2:=NewXMLDocument;
xml1:=NewXMLDocument;
xml1.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'cuit.xml');
content:=(RIOCuit as padronAFIP.ContribuyenteNivel3SelectServiceImpl).get(xml1.XML.Text,login.armarToken,login.armarSign) ;
xml2.XML.Text:=content;
xml2.Active:=True;
xml2.SaveToFile(ExtractFilePath(Application.ExeName) + 'archivocliente.xml');
end;
obtengo un error
Exception class $C0000005 with message 'access violation at 0x00923065: read of address 0x00000000'. Process TPV.exe (3216)
segun vi en internet los ceros significan que hago referencia a un puntero inexistente..hice un showmessage de login.sign y login.token y todo va bien...
el error es en la linea
Código Delphi
[-]content:=(RIOCuit as padronAFIP.ContribuyenteNivel3SelectServiceImpl).get(xml1.XML.Text,login.armarToken,login.armarSign) ;
muchas gracias desde ya