0

所以我想在创建任何表单之前使用 idFTP 组件。我正在调用一个需要检查 ftp 服务器上的文件的函数，所以我需要创建它。

这是功能：

function restoreBackup(online: Boolean = TRUE): Boolean;  //restores backup from server              if possible, if not from disk
var
FTP: TidFTP;
begin
if online then
begin
FTP:=FTP.Create();
FTP.Host:=getConfig('ftphost');
FTP.Username:=getConfig('ftpuser');
FTP.Port:=StrToInt(getConfig('ftpport'));
FTP.Password:=getConfig('ftppass');
try
FTP.Connect;
FTP.ChangeDir(getConfig('ftpbkpdir'));
if FTP.Size('masterlist.dat')<>-1 then
    begin
    FTP.Get('masterlist.dat', getConfig('masterlistpath'));
    end;
        except
        MessageDlg('Impossible de se connecter au serveur, la sauvegarde sera restaurée à partir du disque.', mtError, [mbOK], 0);
        end;
end;

//restore from disk

FTP.Free;
end;

它是从项目的源代码中调用的：

var
Sel: Integer;
begin
Application.Initialize;
global.initGlobal;
if not global.verifyPaths then   //verify if all paths are good
begin
Sel:=MessageDlg('Un des chemins d''accès est erroné. L''application peut restaurer la     dernière sauvegarde mais il se peut que certaines informations soient perdues. Voulez-vous continuer?',
mtError, [mbYes,mbNo], 0);
if Sel=6 then  //6 is mrYes
begin
io.restoreBackup(); //// It gets called here.
end else
  begin
  Application.Terminate;
  end;
end else
begin
//Create Forms
Application.Run;
end;
end.

调用该函数时，我遇到访问冲突。我很确定我没有正确创建它，但我不知道如何使它工作。

4

1 回答 1

3

该行FTP:=FTP.Create();应该是FTP:=TidFTP.Create(nil);. 还要记住使用 try finally 块保护资源。

像这样

var
  FTP: TidFTP;
begin
if online then
begin
  FTP:=TidFTP.Create(nil);
  try
  FTP.Host:=getConfig('ftphost');
  FTP.Username:=getConfig('ftpuser');
  FTP.Port:=StrToInt(getConfig('ftpport'));
  FTP.Password:=getConfig('ftppass');
   try
    FTP.Connect;
    FTP.ChangeDir(getConfig('ftpbkpdir'));
    if FTP.Size('masterlist.dat')<>-1 then
      FTP.Get('masterlist.dat', getConfig('masterlistpath'));
   except
    MessageDlg('Impossible de se connecter au serveur, la sauvegarde sera restaurée à partir du disque.', mtError, [mbOK], 0);
   end;

  finally
    FTP.Free;
   end;
end;
于 2013-10-08T04:16:27.793 回答