🚀 go-pugleaf

"Jonny" <jonny.heyman@cekab.se> wrote in message
news:42806d24$1@newsgroups.borland.com...

> Having syntax problem with the code:

What EXACTLY are you having a problem with?  Please be more specific.

> What should it look like to handle upload request ie. put from a ftp
client?

You are supposed to be creating a suitable TStream object, such as a
TFileStream, to handle the file storage.  For example:

    void __fastcall TfrmMAIN::IdFTPServerStoreFile(TIdFTPServerThread
*ASender, const AnsiString AFileName, bool AAppend, TStream *&VStream)
    {
        // translate AFileName from an FTP-relative path
        // into a local HD path as needed, then...
        AnsiString LocalFileName = "...";

        Word Flags;
        if( (AAppend) && FileExists(LocalFileName) )
            Flags = (fmOpenReadWrite | fmShareDenyWrite);
        else
            Flags = fmCreate;

        VStream = new TFileStream(LocalFileName, Flags);
    }


Gambit