SFTP OnDirectoryList compile error using BCB5

[gw]

Hi!

here is my 'OnDirectoryList' event function that i can't compile. The frame was autogenerated by BCB5, and i just added one line of code:

Code: Select all

void __fastcall TSftpForm::ScSFTPClientDirectoryList(TObject *Sender,
      const AnsiString Path, const TBytes Handle,
      TScSFTPFileInfo *FileInfo, bool EOF)
{
  FilenameList->Add(FileInfo->Filename);
}

Borland C++Builder 5 (Enterprise) won't compile the line with the function implementation: Error: E2451 Undefined symbol 'TObject'.

My 'OnError'-event function compiles well, instead:

Code: Select all

void __fastcall TSftpForm::ScSFTPClientError(TObject *Sender,
      TScSFTPOperation Operation, const AnsiString FileName,
      const TBytes Handle, int ErrorCode, const AnsiString ErrorMessage,
      bool &Fail)
{
  AnsiString Msg;

  switch (Operation) {
    case opMakingDirectory: Msg = LoadStr(FTP_MKDIR_ERROR); break;
    case opRemovingFile: Msg = LoadStr(FTP_DEL_ERROR); break;
    case opRemovingDirectory: Msg = LoadStr(FTP_RMDIR_ERROR); break;
    case opRenamingFile: Msg = LoadStr(FTP_REN_ERROR); break;
    default: Msg = ""; break;
  }
  if (Msg != "")
    AddMessage(Msg,(TColor) FTP_MEMO_COLOR_FAILURE);
  FtpError = true;
  Fail = true;
}

Any idea what is wrong? Any help how to solve? Are there any more/better examples/demos written in C++ to check?

thanks
/gw

[gw]

The problem also seems to have to do with the 'EOF' statement (see my other post 'SFTP ReadDirectory/EOF compile error using BCB5').
If i rename it to 'xEOF' (see updated code below) it compiles well.
My includes are (among others): and . May this be a problem?

Code: Select all

void __fastcall TSftpForm::ScSFTPClientDirectoryList(TObject *Sender, 
      const AnsiString Path, const TBytes Handle, 
      TScSFTPFileInfo *FileInfo, bool xEOF) 
{ 
  FilenameList->Add(FileInfo->Filename); 
}

Hope to get some good ideas soon

Thanks
/gw

[Dimon]

To solve the problem you can add the following lines in the beginning of your cpp unit:

Code: Select all

#ifdef EOF
#undef EOF
#endif

[gw]

Hi!

I changed code to this:

Code: Select all

#ifdef EOF 
#undef EOF 
#endif

Scclrclasses::TBytes Handle; 

Handle = ScSFTPClient->OpenDirectory("Test"); 
try 
{ 
  do 
  { 
     ScSFTPClient->ReadDirectory(Handle); 
  } while (!(ScSFTPClient->EOF)); 
__finally { 
  ScSFTPClient->CloseHandle(Handle); 
}

void __fastcall TSftpForm::ScSFTPClientDirectoryList(TObject *Sender, 
      const AnsiString Path, const TBytes Handle, 
      TScSFTPFileInfo *FileInfo, bool EOF) 
{ 
  FilenameList->Add(FileInfo->Filename); 
}

Now it compiles without error, but when executed i get an runtime error in the 'ScSFTPClientDirectoryList' function.

I have it running with my workaround, just want to give a reply that there still seems to be a problem.

/gw

[Dimon]

Please do not duplicate topics. We have answered you in other thread.