Cita:
Empezado por newtron
Aunque esto está engordando demasiado y se hace complicado, revisa el hilo (de principio en adelante) y verás que esa pregunta ya está contestada aunque ahora mismo no recuerdo exactamente cómo era.
Saludos
|
Hola, tienes que utilizar el/los eventos del componente httprio beforeexecute o afterexecute, te mando un ejemplo de código..
Cita:
procedure TFModelo_SII.HTTPRIO1BeforeExecute(const MethodName: string;
SOAPRequest: TStream);
var
ss:TFileStream;
cfichero: string;
begin
cfichero := montar_fichero_sii( date,time,'nombredefichero.xml');
if FileExists( cfichero ) then
DeleteFile( cfichero);
ss:=TFileStream.Create( cfichero, fmCreate);
SOAPRequest.Position := 0;
ss.CopyFrom(SOAPRequest, SOAPRequest.size);
ss.Free;
SOAPRequest.Position := 0;
end;
|