TThread.Queue 및 TThread.Synchronize의 차이점

1674 단어
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;

좋은 웹페이지 즐겨찾기