THTTPRIO und OnBeforeExecute

[Edelfix]

Hallo,

in dem Event "OnBeforeExecute" von THTTPRIO möchte ich den Request überprüfen und wenn sich ein Fehler eingeschlichen hat dann "Execute" verhindern.

Ist auch zum Debugen hilfreich. Bevor der Request raus geht.

Jemand eine Idee wie das gehen kann?

[Papaschlumpf73]

Etwa so hier...

Delphi-Quellcode:

procedure TFWebServices.WebServiceWSBeforeExecute(const MethodName: string; SOAPRequest: TStream);
begin
with TStringList.Create do
 try
 SOAPRequest.Position:=0; LoadFromStream(SOAPRequest, TEncoding.UTF8);
 //hier kannst du den Text der Stringlist prüfen und auch manipulieren
 //jaaaa, nicht mit with - ist schon klar :-) 
 SOAPRequest.Position:=0; SOAPRequest.Size:=0;
 SaveToStream(SOAPRequest, TEncoding.UTF8);
 finally Free; end;
end;

[Edelfix]

Ach. Ok. Wenn ich den Request lösche wird der Execute natürlich nichts bringen.

Gute Idee. Danke.