HTTPWebRequest := HTTPWebRequest.Create(lTextUrl); HTTPWebRequest.Timeout := 200000; HTTPWebRequest.Method := 'POST'; HTTPWebRequest.Accept := '*/*'; HTTPWebRequest.ContentType := 'application/xml'; HTTPWebRequest.UseDefaultCredentials := TRUE; ServicePointManager.SecurityProtocol := SecurityProtocolType.Ssl3; HTTPWebRequest.PreAuthenticate := TRUE; StreamWriter := StreamWriter.StreamWriter(HTTPWebRequest.GetRequestStream,Encoding.UTF8); StreamWriter.Write(lTextXml); StreamWriter.Close; NAVWebRequest := NAVWebRequest.NAVWebRequest; IF NOT NAVWebRequest.doRequest(HTTPWebRequest,HttpWebException,HTTPWebResponse) THEN IF (IgnoreCode = '') OR (STRPOS(HttpWebException.Message,IgnoreCode) = 0) THEN ERROR(HttpWebRequestError,HttpWebException.Status.ToString,HttpWebException.Message); StreamReader := StreamReader.StreamReader(HTTPWebResponse.GetResponseStream); String := StreamReader.ReadToEnd;
Comments
No PM,please use the forum. || May the <SOLVED>-attribute be in your title!