创建事件并共享变量

Question

我正在使用 Delphi 2007 和线程。

我的问题（抱歉，我会尽力解释得更好）：

1）我创建了一个文件“utilities.pas”，其中有我使用更多的功能。 2）我创建了一个新程序，在这个程序中我有一个线程 3）在线程的执行方法中，我调用文件“utilities.pas”中的一个函数。 此功能使用巧妙的组件 (tclftp) 连接到 ftp。该组件将服务器响应记录在专用事件中。我想做的是将日志保存在字符串列表中，然后将字符串列表发送回调用线程。

这是文件“utilities.pas”的一部分：

// I created TEventHandlers because it's the only way to assign the event runtime
// without having a class
type
 TEventHandlers = class
  procedure clFtp1SendCommand(Sender: TObject; const AText: string);
 end;

var EvHandler: TEventHandlers; 

// this is the porcedure called from the thread. i want to send the stringlist
// back to it containing the ftp log
procedure Test(VAR slMain: tStringlist);
var cFTP: TclFtp;
begin
 cFTP := TclFtp.Create(nil);

 cFTP.Server := 'XXX';
 cFTP.UserName := 'XXX';
 cFTP.Password := 'XXX';
 cFTP.OnSendCommand := EvHandler.clFtp1SendCommand;

 // i connect to the ftp
 cFTP.Open;

 FreeAndNil(cFTP);
end;

procedure TEventHandlers.clFtp1SendCommand(Sender: TObject; const AText: string);
begin
 // here the component (cftp) sends me back the answer from the server.
 // i am logging it

 // HERE IT'S THE PROBLEM:
 // I can't reach slMain from here.....

 slmain.add(Atext);
end;

这是调用线程：

procedure TCalcThread.Execute;
var slMain: tstringlist;
begin
  inherited;

  slmain := tstringlist.create(nil);

  Test(slmain);

  if slMain.count > 0 then
    slMain.savetofile('c:\a.txt');

  // i won't free the list box now, but in the thread terminated.
end;

这是主程序：

procedure TfMain.ThreadTerminated(Sender: TObject);
Var ExThread: TCalcThread;
begin
  ExThread := (Sender as TCalcThread);

  if ExThread.slMain.Count > 0 then
    ExThread.slMain.SaveToFile('LOG\Errori.log');

 freeandnil(slMain);
end;

请问有人可以帮我解决这个问题吗？我真的不知道该怎么办。 我希望现在更清楚了。

ps谢谢大家的回答..

Answer 1

另一种方法是让您的线程对象拥有自己的字符串列表实例和自己的 cFTP。如果您需要有一个“主线程”来写入所有内容（也许是为了总结每个线程完成的任务），请使用此类：
TThreadStringList 作者：Tilo Eckert
http://www.swissdelphicenter.ch/torry/showcode.php?id=2167

Answer 2

我认为一种（糟糕的）方法是在主线程或设计时创建一个组件池，并为每个线程分配一个组件。即 5 个 cFTP 实例、5 个字符串列表、5 个线程。

更新：马丁·詹姆斯指出了为什么这是一个糟糕的想法，我同意。所以不要这样做。帖子留下来作为一种威慑。

Answer 3

拦截线程类中的事件，并从该处理程序中触发自己类型的事件。同步此调用！并尽量防止全局变量。这一切如下：

type
  TFtpSendCommandEvent = procedure(Mail: TStrings; const AText: String) of object;

  TMyThread = class(TThread)
  private
    FclFtp: TclFtp;
    FslMail: TStrings;
    FOnFtpSendCommand: TFtpSendCommandEvent;
    FText: String;
    procedure clFtpSendCommand(Sender: TObject; const AText: String);
    procedure DoFtpSendCommand;
  protected
    procedure Execute; override;
  public
    // You could add this property as parameter to the constructor to prevent the
    // need to assign it separately
    property OnFtpSendCommand: TFtpSendCommandEvent read FOnFtpSendCommand
      write FOnFtpSendCommand;
  end;

// If you dont want to make this a property or private field of the thread class:
var
  EvHandler: TFtpSendCommandEvent;

{ TMyThread }

procedure TMyThread.clFtpSendCommand(Sender: TObject; const AText: string);
begin
  // Store the AText parameter temporarily in a private field: Synchronize only 
  // takes a parameterless method
  FText := AText;
  Synchronize(DoFtpSendCommand);
end;

procedure TMyThread.DoFtpSendCommand;
begin
  if Assigned(FOnFtpSendCommand) then
    FOnFtpSendCommand(FslMail, FText);
  // Or, if you really like to use that global variable:
  if Assigned(EvHandler) then
    EvHandler(FslMail, FText);
end;

procedure TMyThread.Execute;
begin
  ...
  FclFtp := TclFtp.Create(nil);
  FslMail := TStringList.Create(nil);
  try
    FclFtp.Server := 'XXX';
    FclFtp.UserName := 'XXX';
    FclFtp.Password := 'XXX';
    FclFtp.OnSendCommand := clFtpSendCommand;
    FclFtp.Open;
  finally
    FreeAndNil(FclFtp);
    FreeAndNil(FslMail);
  end;
  ...
end;