Question

所以我想在创建任何表单之前使用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.

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

Answer 1

第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;

在创建表单之前使用idFTP

1 个答案: