Cita:
Empezado por brincola
Quítate 1300 (o sea, mira la entrada 53). Allí habla de introducir este evento:
procedure TForm1.HTTPRIO1BeforeExecute(const MethodName: string; SOAPRequest: TStream);
var
ss:TFileStream;
begin
SOAPRequest.Size:=0;
ss:=TFileStream.Create('C:\1.xml', fmOpenRead);
SOAPRequest.Position := 0;
SOAPRequest.CopyFrom( ss, ss.Size);
ss.Free;
SOAPRequest.Position := 0;
end;
No lo he probado aún, pero tiene sentido.
|
Ahora, ya probándolo, yo haría la siguiente corrección:
procedure TForm1.HTTPRIO1BeforeExecute(const MethodName: string; SOAPRequest: TStream);
var
ss:TFileStream;
begin
ss:=TFileStream.Create('C:\1.xml', fmOpenWrite);
SOAPRequest.Position := 0;
ss.CopyFrom(SOAPRequest,SOAPRequest.Size);
ss.Free;
SOAPRequest.Position := 0;
end;
Pero esto aún da un problema: no genera el fichero. Hay que crearlo previamente (
copy con 1.xml y terminarlo con
Ctrl Z si lo quieres vacío
).
Los
TFileStream son un poco tozudos a veces con los share y demás permisos (Read, Write, etc).
Con paciencia y un poco de tiempo acabar de perfilar para corregir este problema.