SoapRequest manipulieren

[BerTa]

Hallo Lemmy,
vielen Dank für die schnelle Antwort.
Ich war echt schon am verzweifeln!!!

Habe mich jetzt daran versucht,
bin aber wohl nicht in der Lage.
Muss erlich zugeben, dass ich von bjektorientierter Programmierung nicht die meiste Ahnung habe.

Code:

type
  TBeforeExecuteStreamEvent = procedure(const MethodName: string; SOAPRequest: TStream) of object;
 
  THTTPRIO_Stream=class(THTTPRIO)
  private
    FOnBeforeExecute: TBeforeExecuteStreamEvent;
  protected
    procedure DoBeforeExecute(const MethodName: string; Request: TStream); virtual;
  published
    property OnBeforeExecute: TBeforeExecuteStreamEvent read FOnBeforeExecute write FOnBeforeExecute;
end;

////////////////////////////////////////////////////////////////////////////////
procedure THTTPRIO_Stream.DoBeforeExecute(const MethodName: string; Request: TStream);
var
  StrStrm: TStringStream;
begin
  if Assigned(FOnBeforeExecute) then
  begin
    StrStrm := TStringStream.Create('');
    try
      StrStrm.CopyFrom(Request, 0);
      Request.Position := 0;
      FOnBeforeExecute(MethodName, Request);
    finally
      StrStrm.Free;
    end;
  end;
end;