我創建一個線程如何訪問線程及其組件?
type
ss_thread = class;
ss_thread = class(TThread)
protected
Fff_id : string;
Fff_cmd : string;
Fff_host : string;
Fff_port : TIdPort;
procedure Execute; override;
public
constructor Create(const ff_id, ff_cmd: string; ff_host: string; ff_port: TIdPort);
end;
constructor ss_thread.Create(const ff_id, ff_cmd: string; ff_host: string; ff_port: TIdPort);
begin
inherited Create(False);
Fff_id := ff_id;
Fff_cmd := ff_cmd;
Fff_host := ff_host;
Fff_port := ff_port;
end;
...
id := 123;
...
nst_ss_thread.Create(id, cmd, host, port);
,並做一些對
procedure ss_thread.Execute;
var
ws : TIdTCPClient;
data : TIdBytes;
i : integer;
list : TList;
begin
ws := TIdTCPClient.Create(nil);
ws.Host := Fff_host;
ws.Port := Fff_port;
....
如何訪問該線程 'WS' 變量通使用ID另一個線程:線程= 123?
謝謝
......但更好地保持它的只讀屬性:-) –
它太難理解了,怎麼做我的線程中有TIdTCPClient的列表?我做了什麼,我將它們全部存儲到TThreadList的創建中,但是如果線程銷燬它,我有訪問衝突,這就是爲什麼我詢問有關訪問線程的原因,也許一些示例會很好。 – waza123
@ waza123:你的問題沒有提到有關TIdTCPClients的列表。它詢問如何訪問局部變量的範圍,這是Arioch'和我回答的範圍。如果您現在有不同的問題,請發佈一個新問題;在回答後不要改變這一個的全部含義。 –