🚀 go-pugleaf

"Nicholas Wilson" <nicholasjohnwilson@gmail.com> wrote in message
news:45400f1d@newsgroups.borland.com...

> I am using the 9.15 version of the Indy component.

That is a very old version.  The current snapshot of Indy 9 is 9.0.50.  You
should consider upgrading.

> this is the sample code I cannot get to work.

It does not work because you are uploading the wrong stream to the server.
You are allocating a TMemoryStream named _params that you do not fill it
with any data but you ar uploading it anyway.  You are then allocating a
TIdMultiPartFormDataStream named _idmpfd that you are not uploading when you
should be.  You need to get rid of the _params stream altogether and upload
the _idmpfd stream instead.

Not only that, but you are filling in the TIdMultiPartFormDataStream
incorrectly anyway.  You should not be adding the file name and file data as
separate fields.  They belong to a single field in the HTML form, so you
have to add them to the stream as a single field.

Also, your code has memory leaks in it.  You need to free the streams you
allocate.

Try this instead:

    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
        AnsiString _html;
        TIdMultiPartFormDataStream *_idmpfd = new
TIdMultiPartFormDataStream;
        try
        {
            ldhttp->Request->ContentType = _idmpfd->RequestContentType;

            // AddFile() calls GetMIMETypeFromFile() when no ContentType is
specified
            _idmpfd->AddFile("userfile", "formsource.h", "");

            _html = ldhttp->Post ("http://192.168.87.69/upload.php",
_idmpfd);
        }
        __finally {
            delete _idmpfd;
        }
        ShowMessage(_html);
    }


Gambit