創建事件和共享變量

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; 

請任何人都可以幫助我解決這個問題嗎？我真的不知道該怎麼做。 我希望現在更清楚。

p.s.感謝所有的答案..

Answer 1

我認爲一個（BAD）的方法將是在主線程或在設計時創建一個組件池，併爲每個線程分配一個。即5個cFTP實例，5個字符串列表，5個線程。

更新：馬丁詹姆斯指出爲什麼這是一個可怕的想法，我同意。所以不要這樣做。郵政仍然是一種威懾力量。

Answer 2

另一種方法是讓你的線程對象有自己的stringlist實例和自己的cFTP。如果你需要有一個「主線程」，一切都寫入（可能爲每個線程來完成內容的摘要），使用這個類： TThreadStringList通過的Tilo埃克特 http://www.swissdelphicenter.ch/torry/showcode.php?id=2167

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;