🚀 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