🚀 go-pugleaf

"noel" <noel@teledata.qc.ca> wrote in message
news:435d2270$1@newsgroups.borland.com...

> the TIdHTTPRequestInfo -> Params does not contain
> the parameters as usual

Correct, because it is not supposed to.  The Params property is not meant to
be used with "multipart/form-data" transmissions.

You need to use the OnCreatePostStream event to create an instance of your
own TStream object.  If you do not, then TIdHTTPServer uses its own TStream
to receive the data and then frees the TStream prior to triggering the
OnCommandGet event.  You need access to that TStream in order to process a
"multipart/form-data" transmission.  You can access it via the
Request->PostStream in the OnCommandGet event handler.

> My question is how do i decode the different parts from the
> TidHTTPServer OnCommandGet handler ...

You have to decode the data manually.  You can use TIdMessageCoderMIME for
that.  For example (untested):


    void __fastcall TForm1::IdHTTPServer1CreatePostStream(TIdPeerThread
*AThread, TStream* &VPostStream)
    {
        VPostStream = new TMemoryStream;
    }

    bool __fastcall TForm1::DecodeFormData(const AnsiString &Header, TStream
*Stream)
    {
        bool MsgEnd = false;

        TIdMessageDecoderMIME *decoder = new TIdMessageDecoderMIME(NULL);
        try
        {
            decoder->MIMEBoundary =
TIdMIMEBoundary::FindBoundary(__classid(TIdMIMEBoundary), Header);

            ((TIdStream*)Stream)->ReadLn();

            do
            {
                decoder->ReadHeader();
                switch( decoder->PartType )
                {
                    case mcptUnknown:
                        throw Exception("Unknown form data detected");
                        break;

                    case mcptText:
                    {
                        AnsiString tmp =
decoder->Headers->Values["Content-Type"];
                        AnsiString ContentType = Fetch(tmp, ";");

                        TMemoryStream *DataStrm = new TMemoryStream;
                        try
                        {
                            decoder = decoder->ReadBody(DataStrm, MsgEnd);

                            if( AnsiSameText(ContentType,
"multipart/mixed") )
                                DecodeFormData(tmp, DataStrm);
                            else
                                // use DataStrm as needed...
                        }
                        __finally {
                            delete DataStrm;
                        }
                        break;
                    }

                    case mcptAttachment:
                    {
                        AnsiString FileName =
ExtractFileName(decoder->FileName);
                        if( !FileName.IsEmpty() )
                            FileName = ("c:\\some folder\\" + FileName);
                        else
                            FileName = MakeTempFilename("c:\\some
folder\\");

                        TFileStream *FileStrm = new TFileStream(FileName,
fmCreate);
                        try {
                            decoder = decoder->ReadBody(FileStrm, MsgEnd);
                        }
                        __finally {
                            delete FileStrm;
                        }
                        break;
                }
                while( (decoder) && (!MsgEnd) );
            }
            __finally
            {
                if( decoder )
                    delete decoder;
            }
        }
    }

    void __fastcall TForm1::IdHTTPServer1CommandGet(TIdPeerThread *AThread,
TIdHTTPRequestInfo *ARequestInfo, TIdHTTPResponseInfo *AResponseInfo)
    {
        AnsiString tmp = ARequestInfo->Headers->Values["Content-Type"];
        AnsiString ContentType = Fetch(tmp, ";");

        if( AnsiSameText(ContentType, "multipart/form-data") )
            DecodeFormData(hdr, ARequestInfo->PostStream);
        else
            // use request data as needed...
    }


Gambit

noel wrote:

> I am building a HTTP server and trying to decode the data from an HTML 
> form. The form action is POST and it has a File field.
> The form is sent as a "multipart/form-data" instead of the more familiar
> "application/x-www-form-urlencoded" form.

Please show the complete html source for that <form> ... </form> and
tell the name of the file the user choosed.

>  Content-type: multipart/form-data, boundary=AaB03x
> 
>         --AaB03x
>         content-disposition: form-data; name="field1"
> 
>         Joe Blow

   field1=Joe Blow

Which browser did you use ? Are the results the same with
different browsers ?

>         content-disposition: form-data; name="pics"
>         Content-disposition: attachment; filename="file1.txt"

Is that original ? One time 'content-' and once 'Content-' ?
Please copy and paste instead of typing in.

Hans.