[DUG] Http help

[Edward Koryagin]

You still can use SOAP here...

There is OnBeforeExecute event for THTTPRIO... ;)
Actually you have to inherit from THTTPRIO to change XML in this event.

Edward Koryagin


--- On Fri, 26/2/10, Robert martin <rob at chreos.co.nz> wrote:

> From: Robert martin <rob at chreos.co.nz>
> Subject: [DUG] Http help
> To: "NZ Borland Developers Group - Delphi List" <delphi at delphi.org.nz>
> Received: Friday, 26 February, 2010, 11:13 AM
> 
> 
> 
> 
>  
> 
>  
> Hi Guys
> 
> 
> 
> I had imported a WSDL file and built a soap service to send
> data to a
> web service.  Unfortunately there is a bug in the WSDL
> that impacts
> delphi but seems to be ignored in Microsoft tools (it
> really is a
> problem with the wsdl file).  Anyway since it is a
> simple job I thought
> it might be quicker to fix by just removing the soap and
> building the
> XML manually and posting it with idHttp.  
> 
> 
> 
> However I cant get it to work !  When I try and post
> my test xml to the
> web serivce I get an 'Invalid IOHandler' message in
> the app.  I have no
> ioHandler defined but that works fine in my other apps
> where I post to
> php based web services.  I am sure it is just some
> weird indy bug but I
> am under a huge deadline and need to sort this.  Any
> help would be
> greatly appreciated.
> 
> 
> 
> code follows (this is quick and dirty proof of concept
> code)
> 
> 
> 
> var
> 
>    
> sl                 
> : TStringList;
> 
>    
> PostDataStream      :
> TStringStream;
> 
>     SendStream     
> : TStringStream;
> 
> begin
> 
>     PostDataStream  :=
> TStringStream.Create('');
> 
>     sl := TStringList.Create;
> 
>     try
> 
>        
> IdHTTP.Request.Username := '9313527067946306';
> 
>        
> IdHTTP.Request.Password := 'passdfsw9634306';
> 
>        
> IdHTTP.ReadTimeout := 5000;
> 
> 
> 
>        
> sl.LoadFromFile('E:\Work\Test
> post\TestRequest.XML');
> 
>        
> SendStream      :=
> TStringStream.Create(sl.text);
> 
> 
> 
> 
> 
>        
> IdHTTP.Post('https://uateclonline.nzpost.co.nz/eclonlinewebnowse/Services.asmx',
> SendStream, PostDataStream);  //Error here 
> 
> 
> 
>        
> ShowMessage(PostDataStream.DataString);
> 
>     finally
> 
>         sl.Free;
> 
>        
> PostDataStream.Free;
> 
>        
> SendStream.Free;
> 
>     end;
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> -- 
> 
>  
>  
>  
>  
>  
> Robert Martin
> 
> 
> 
> 
> 
> Robert Martin 
> Software
> development
> manager 
>    
> Chreos 
> www.chreos.co.nz
> 
> Ph +64 03 377-0495 
> 
>   
>    
> 
>   
> 
> 
>  
> 
> 
> -----Inline Attachment Follows-----
> 
> _______________________________________________
> 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