And now my app is not functioning...

The message i\m getting is "connection timed out" from the app posted above...
Any changes?
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;
Users browsing this forum: No registered users and 1 guest