🚀 go-pugleaf

"Jan" <jan@jlcsoft.com> wrote in message
news:42ca6485@newsgroups.borland.com...

>       HTTP->Response->ContentType = "text/xml";

You should be filling in the Request, not the Response.

>       HTTP->Connect(IdTimeoutDefault);
>       if (HTTP->Connected())  {

This is not the cause of the problem, but you should get rid of that code.
You are not supposed to be doing that.  Post() handles that internally.

>         LIpost->LoadFromFile(sSourceFile);

Rather than using a TStringList, use a TFileStream instead.  Indy does extra
processing on TStrings parameters but not on TStream.  Your XML is going to
get potentially messed up during the Post() if you use a TStringList.

Use this code instead:

    TFileStream *LIpost;
    try
    {
        LIpost = new TFileStream("C:\\Temp\\test.xml", fmOpenRead |
fmShareDenyWrite);
        try
        {
            HTTP->Request->ContentType = "text/xml";
            HTTP->Post(PathHttp, LIpost);
        }
        __finally {
            delete LIpost;
        }
    }
    catch(const Exception &e)
    {
        ShowMessage("Error encountered during POST: " + e.Message);
    }


Gambit