IndyHandle to TIDPEERTHREAD

Question

私はDelphi7でIndy9を使用しています。 Longword（Athread.Handle）をTIDPEERTHREADポインタにキャストしたいと思います。 私はこれをどのようにすることができる方法がありますか？ また、ポインタをロングワードに「格納」できる方法はありますか？

ありがとうございました。

Answer 1

TIdPeerThreadは、TThreadの子孫である。そのHandleプロパティには、CreateThread()のOSレベルのスレッドハンドルが含まれています。 Handle値を直接オブジェクトポインタにキャストする方法はありません。でTIdPeerThead.Handle値を格納します）

var 
    LW: LongWord; 
    Peer: TIdPeerThread; 

Peer := ...; 
LW := LongWord(Peer); 
... 
Peer := TIdPeerThread(LW); 

2：

1）LongWordではなく、TIdPeerThread.Handle値TIdPeerThreadオブジェクトポインタ自体を保存して、必要なときにそれをバックキャスト：あなたはどちらかになりますLongWord、必要なときに一致する値を持つTIdPeerThreadオブジェクトを探してTIdTCPServer.Threadsリストを、ループ：答えを

var 
    LW: LongWord; 
    Peer: TIdPeerThread; 
    List: TList; 
    I: Integer; 

Peer := ...; 
LW := LongWord(Peer.Handle); 
... 
Peer := nil; 
List := IdTCPServer1.Threads.LockList; 
try 
    for I := 0 to List.Count-1 do 
    begin 
    if LongWord(TIdPeerThread(List[I]).Handle) = LW then 
    begin 
     Peer := TIdPeerThread(List[I]); 
     Break; 
    end; 
    end; 
finally 
    IdTCPServer1.Threads.UnlockList; 
end;