🚀 go-pugleaf

Thank you gambit, here are my events so far:

void __fastcall TfrmMain::IdFTPServer1RetrieveFile(
      TIdFTPServerThread *ASender, const AnsiString AFileName,
      TStream *&VStream)
{
        VStream = NULL;

        try
        {
                VStream = new TFileStream(AFileName, fmOpenRead |
                fmShareDenyWrite);
        }
        catch(Exception&)
        {
                // an error occured opening the file for reading
        }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::IdFTPServer1StoreFile(
      TIdFTPServerThread *ASender, const AnsiString AFileName,
      bool AAppend, TStream *&VStream)
{
        VStream = NULL;

        WORD mode = fmCreate;
        if(AAppend)
                mode = (fmOpenReadWrite | fmShareDenyWrite);

        try
        {
                VStream = new TFileStream(AFileName, mode);
        }
        catch(Exception&)
        {
                // an error occured opening the file for writing
        }

}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::IdFTPServer1AfterUserLogin(
      TIdFTPServerThread *ASender)
{
        // ASender is an autocreated thread for us
        // Instance of struct for settings
        TFtpClient*    AClient;
        AClient = new TFtpClient;

        ASender->HomeDir = '/';
        ASender->CurrentDir = '/';

        // Our struct for various settings
        AClient->Thread = ASender;
        AClient->IP = ASender->Connection->Socket->Binding->PeerIP.c_str() ;
        AClient->RootPath = "c:\\" ; // Need function to return
        // Pass this struct to our ASender thread
        ASender->Data = AClient;

}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::IdFTPServer1ListDirectory(
      TIdFTPServerThread *ASender, const AnsiString APath,
      TIdFTPListItems *ADirectoryListing)
{
        TSearchRec sr;
        if( FindFirst(APath + "*.*", faAnyFile, sr) == 0 )
        {
            do
            {
                //if( sr.Name == "." || sr.Name = ".." )
                //    continue;

                TIdFTPListItem *Item = ADirectoryListing->Add();

                if( sr.Attr & faDirectory )
                    Item->ItemType = ditDirectory;
                else
                    Item->ItemType = ditFile;

                Item->FileName = sr.Name;
                Item->Size = sr.Size;
                Item->ModifiedDate = FileDateToDateTime(sr.Time);
            }
            while( FindNext(sr) == 0 );
            FindClose(sr);
        }



}

"Remy Lebeau \(TeamB\)" <gambit47.no.spam@no.spam.yahoo.com> wrote:
>
>"Brian" <brianb@p3mc.net> wrote in message
>news:412281ad@newsgroups.borland.com...
>
>> I tried the code in the link. It gets an empty list when i login.
>
>Please show your listing code as well.
>
>
>Gambit
>
>