Title: Robert Martin
Hi

That was obvious !  Sorry I missed it.  I had assumes it wasn't a ssl connection but it obviously is.  Will try and get the ssl dll files for indy.

Cheers
Rob

 

 


On 26/02/2010 11:33 a.m., Jolyon Smith wrote:

You haven’t setup the SSL information required to communicate with a HTTPS URL.  You need to assign a properly configured TIdSSLIOHandlerSocketOpenSSL to the IOHandler of your HTTP client component.

 

 

From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of Robert martin
Sent: Friday, 26 February 2010 11:13 a.m.
To: NZ Borland Developers Group - Delphi List
Subject: [DUG] Http help

 

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

Software development manager

 

Chreos

www.chreos.co.nz

Ph +64 03 377-0495

 

 

 

_______________________________________________ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: unsubscribe


_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: 
unsubscribe

Reply via email to