Indirect http streaming

[tommer]

Just upgraded to version 5.1.0 from 4 something.

And now my app is not functioning...

The message i\m getting is "connection timed out" from the app posted above...

Any changes?

[tommer]

This is the code Im using to download :

Code: Select all

var
  url:string;
  data: TIdMultiPartFormDataStream;
  server : TIDHttp;

begin
  data := TIdMultiPartFormDataStream.Create;
  server := TIDHttp.Create(nil);
  server.HandleRedirects := true;
  server.ReadTimeout := 5000;
  data.AddFormField('command','get_channels');
  data.AddFormField('xml_param',
  '<?xml version="1.0" encoding="utf-8" ?> <channels xmlns:i="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.dvblogic.com" />');
  server.Request.BasicAuthentication := true;
  server.Request.Username := 'user';
  server.Request.Password := 'admin';
  server.Request.ContentType := 'application/x-www-form-urlencoded';
  url:='http://'+ serverURL + ':8080/cs/';
  (channelsXML as IXMLDocumentAccess).DOMPersist.loadxml(server.Post(url,data));     //Fails here at post...
  data.Free;
  server.Free;
end;

[tommer]

Found it, port was changed...