Ładny brzuch

Mam kod z demekdla Delphi:
procedure IdFTPServer1UserLogin( ASender: TIdFTPServerThread; const AUsername, APassword: string; var AAuthenticated: Boolean );    procedure IdFTPServer1ListDirectory( ASender: TIdFTPServerThread; const APath: string; ADirectoryListing: TIdFTPListItems );    procedure IdFTPServer1RenameFile( ASender: TIdFTPServerThread; const ARenameFromFile, ARenameToFile: string );    procedure IdFTPServer1RetrieveFile( ASender: TIdFTPServerThread; const AFilename: string; var VStream: TStream );    procedure IdFTPServer1StoreFile( ASender: TIdFTPServerThread; const AFilename: string; AAppend: Boolean; var VStream: TStream );    procedure IdFTPServer1RemoveDirectory( ASender: TIdFTPServerThread; var VDirectory: string );    procedure IdFTPServer1MakeDirectory( ASender: TIdFTPServerThread; var VDirectory: string );    procedure IdFTPServer1GetFileSize( ASender: TIdFTPServerThread; const AFilename: string; var VFileSize: Int64 );    procedure IdFTPServer1DeleteFile( ASender: TIdFTPServerThread; const APathname: string );    procedure IdFTPServer1ChangeDirectory( ASender: TIdFTPServerThread; var VDirectory: string );    procedure IdFTPServer1CommandXCRC( ASender: TIdCommand );    procedure IdFTPServer1DisConnect( AThread: TIdPeerThread );
Jak bdzie to w BCB?



Mam kod z demekdla Delphi:
procedure IdFTPServer1UserLogin( ASender: TIdFTPServerThread; const AUsername, APassword: string; var AAuthenticated: Boolean );    procedure IdFTPServer1ListDirectory( ASender: TIdFTPServerThread; const APath: string; ADirectoryListing: TIdFTPListItems );    procedure IdFTPServer1RenameFile( ASender: TIdFTPServerThread; const ARenameFromFile, ARenameToFile: string );    procedure IdFTPServer1RetrieveFile( ASender: TIdFTPServerThread; const AFilename: string; var VStream: TStream );    procedure IdFTPServer1StoreFile( ASender: TIdFTPServerThread; const AFilename: string; AAppend: Boolean; var VStream: TStream );    procedure IdFTPServer1RemoveDirectory( ASender: TIdFTPServerThread; var VDirectory: string );    procedure IdFTPServer1MakeDirectory( ASender: TIdFTPServerThread; var VDirectory: string );    procedure IdFTPServer1GetFileSize( ASender: TIdFTPServerThread; const AFilename: string; var VFileSize: Int64 );    procedure IdFTPServer1DeleteFile( ASender: TIdFTPServerThread; const APathname: string );    procedure IdFTPServer1ChangeDirectory( ASender: TIdFTPServerThread; var VDirectory: string );    procedure IdFTPServer1CommandXCRC( ASender: TIdCommand );    procedure IdFTPServer1DisConnect( AThread: TIdPeerThread );
Jak bdzie to w BCB?

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •