[DUG] Getting the Generated SOAP XML

[Jeremy Coulter]

Cheers Rob. I will take alook..

Jeremy

On Fri, Sep 17, 2010 at 3:59 PM, Robert martin <rob at chreos.co.nz> wrote:

>  This is possible.  You need to assign an OnBeforeExecuteStream event that
> you use to write out the XML to a file.
>
> The default HttpRio does not  / did not surface this event so this is what
> you do....
>
> 1) Create an enhanced class that does surface this event like so...
>
>     TBeforeExecuteStreamEvent = procedure(const MethodName: string;
> Request: TStream) of object;
>
>     THTTPRioEnh = Class(THTTPRIO)
>     private
>         fOnBeforeExecuteStream: TBeforeExecuteStreamEvent;
>     protected
>         procedure DoBeforeExecute (const MethodName: string; Request:
> TStream); override;
>     published
>         property OnBeforeExecuteStream: TBeforeExecuteStreamEvent read
> fOnBeforeExecuteStream write fOnBeforeExecuteStream;
>     end;
>
>
> procedure THTTPRioEnh.DoBeforeExecute(const MethodName: string;
>   Request: TStream);
> begin
>   inherited;
>     if (Assigned( fOnBeforeExecuteStream ) = True) then begin
>         fOnBeforeExecuteStream( MethodName, Request );
>     end;
> end;
>
>
> 2) When you use it assign the event (I use mine to compress and encrypt
> data)
>         fHTTPRioEnh := THTTPRioEnh.Create(nil);
>         try
>             fHTTPRioEnh.OnBeforeExecuteStream   := BeforeSendCompression;
>
> 3) In your event save the 'Request' Stream to file.  This is your XML.  You
> can also override it with anything else at this point.
>
> Hope that helps.
>
> Rob
>
>
> On 17/09/2010 3:35 p.m., Jeremy Coulter wrote:
>
> Hi all.
> To follow on from my last email.
> Is there a way I can actually view the generated XML that is transmitted by
> the THTTPRIO object?
> This might be the best way for me to see whats going on and to make sure
> that there is no malformed XML etc.
>
>
> Thansk Jeremy
>
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject: unsubscribe
>
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject:
> unsubscribe
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20100917/d360cdd4/attachment.html