TThread.Queue 및 TThread.Synchronize의 차이점
효과상: 양자의 역할은 모두 업무 코드를 메인 라인에서 실행하게 하는 것이다. 차이점: Synchronize는 막힘,Queue는 비막힘
코드의 두 가지 방법은 최종적으로 호출된class procedure Tthread입니다.Synchronize(ASyncRec: PSynchronize Record; Queue Event: Boolean = False) 클래스 메서드
차이점
Synchronize는 Thread 대상의 FSynchronize 대상 변수를 사용한 다음Queue Event는False로 Tthread를 호출합니다.Synchronize 클래스 메서드
내부에서 FSynchronize를 실행할 때 이벤트 대상을 만들었습니다. WaitForSingleObject를 통해 실행을 막습니다.
Queue 호출은 스스로 PSynchronize Record를 만들고 Queue Event는 TThread를 호출합니다.Synchronize 클래스 방법은 내부에서 PSynchronize Record를 SyncList 목록에 넣고 돌려보냅니다. PSynchronize Record를 직접 실행하지 않습니다. 질문이 왔습니다. 거기서 실행하시겠습니까?Delphi는 TApplication에 있습니다.Idle 메서드에서 실행(CheckSynchronize가 최종 호출됨)
procedure TForm1.OnReceived(Sender: TObject; AConnection: ICrossConnection; ABuf: Pointer; ALen: Integer);
begin
TThread.Queue(nil,
procedure
begin
var ms: tstream := TMemoryStream.Create;
ms.Size := ALen;
ms.Write(ABuf^, ALen);
ms.Position := 0;
var ms2: tstream := TMemoryStream.Create;
tzip.UnZipStream(ms, ms2); //unzip
ms.Free;
ms2.Position := 0;
var pack: tmsgpack := TMsgPack.Create;
pack.DecodeFromStream(ms2);
case pack.Force('cmd').AsInteger of
cmd_query:
begin
form1.ClientDataSet1.Data := pack.Force('dataset1').AsVariant;
form1.ClientDataSet2.Data := pack.Force('dataset2').AsVariant;
end;
end;
pack.Free;
end);
end;
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.