|
서브 쓰레드에서 호출하는 경우 사이의 간섭이 아니라 메인 쓰레드에서의 호출도 관여된다는 말씀이신 거 같은데요.
그런 경우라도 마찬가지입니다.
먼저 서브 쓰레드 사이에서는 간섭이 있을 수 없다고 설명드렸지요.
Synchronize 함수의 역할이 메인 쓰레드로 실행을 위임하는 것이므로, 일단 Synchronize로 함수의 실행이 넘어가고
나면 더이상 서브 쓰레드에서 실행되는 것이 아니라 메인 쓰레드로 넘어갑니다.
메인 쓰레드 자체는 하나만 존재하므로 두번 진입이 안되죠.
따라서 반드시 한번만 실행되고 동시에 두번 이상 실행될 수는 없습니다.`
그럼...
델짱 님이 쓰신 글 :
: 답변감사 드립니다.
: 제 질문에 혼돈의 소지가 있었네요
: 다시 말씀 드리면.
: 만약에 쓰레드에서도 시리얼로 출력하고 있고
: 메인폼에서 버튼 클릭으로 동일한 함수를 호출하여 시리얼로 출력요청 한다면
: 상호 간섭이 생기는지 즉
: Synchronize 는 쓰레드 내에서 함수를 동기화 시켜주는것으로 압니다 , 메인폼에서 쓰레드에서 사용하고 있는
: 함수를 호출하면 상호 간섭이 생길것으로 추정되는데 맞는지요?
:
: 박지훈.임프 님이 쓰신 글 :
: : 요약하자면, Synchronize를 통해 똑같은 함수가 여러 쓰레드에서 호출이 가능할 때 그 호출들 사이에 간섭이 발생할 수
: : 있지 않느냐는 말씀인 거 같은데요. 그런 경우는 발생할 수 없으니 안심하셔도 됩니다.
: : 만약 걱정하시는 것처럼 Synchronize를 통한 호출들 사이에 간섭이 발생한다면 Synchronize 함수가 의미가 없겠죠?
: :
: : TTread의 Synchronize 함수의 구현은 델파이 5까지의 버전과 6 이상의 버전 사이에 구현이 다릅니다.
: :
: : 델파이5 버전까지에서는 Synchronize 함수의 동작을 위해 윈도우 핸들을 이용합니다.
: : 화면상으로는 안보이는 공용의 윈도우 핸들을 하나 만들어놓고, Synchronize 함수가 호출되면 SendMessage 함수로
: : 그 윈도우로 메시지를 보냅니다. 이 윈도우 핸들의 윈도우 프로시저는 메인 쓰레드에서 동작하므로 Synchronize 함수를
: : 통해 호출된 함수가 메인 쓰레드에서 동작하는 것이 보장되는 것입니다.
: :
: : 또 한편으로, 메시지로 보내어 메인 쓰레드의 메시지큐를 통해 실행시키므로, 하나의 호출이 완료되기 전에는 다른
: : 메시지를 처리하지 않게 되므로 문제가 없습니다. 따라서 TThread를 상속받은 쓰레드가 백개이든 천개이든 그리고
: : 상속받은 클래스 타입이 여러개인 경우라도 이 쓰레드의 내부 윈도우 핸들로 진입하는 루틴은 메시지큐에 의해 반드시
: : 한번에 하나씩만 가능하게 됩니다.
: :
: : 델파이 6 이상 버전에서는 크리티컬 섹션을 이용하므로, 메시지큐를 이용하는 방법보단 아무래도 더 믿음직스럽습니다.
: : Synchronize 함수 자체에서 바로 EnterCriticalSection 함수와 LeaveCriticalSection 함수를 통해 한번만 진입하도록
: : 제한하므로 두번 이상의 진입이 있을 수 없습니다.
: :
: : 참고로, TThread 클래스의 구현은 델파이5 이하 버전의 방식보다 델파이6 이상의 구현이 훨씬 더 잘 되어 있습니다.
: : 델파이5 이하 버전의 TThread 구현은 여러모로 문제가 좀 있습니다. TThread를 많이 사용하신다면 최소 델파이6 이상으로
: : 업그레이드하시는 편이 좋습니다.
: :
: : 그럼...
: :
: :
: : 델짱 님이 쓰신 글 :
: : : ---**쓰레드와 메이폼 버튼 클릭시 사용될 공용 시리얼 출력함수
: : :
: : : procedure Tfrom1.Func1(str : string);
: : : begin
: : : with Query1,Query1.SQL do
: : : begin
: : : Close;Clear;
: : : Add('select remark from contents where aaa = '''+str'''');
: : : Open;
: : : while not eof do // while loop가 50회 정도된다면...
: : : begin
: : : Comport.WriteStr( fieldbyname('remark').AsString);
: : : Next;
: : : end;
: : : end;
: : : end;
: : :
: : :
: : : --** 쓰레드에서시 호출하는 루틴
: : :
: : : procedure TMyThread.Execute;
: : : begin
: : : while (not Terminated) do begin
: : : try
: : : Msg := from1.Client1.ReadLn;
: : : if Length(Msg) >= 1 then begin
: : : Synchronize(Func1('Msg'));
: : : except
: : : Terminate;
: : : end;
: : : end;
: : : end;
: : :
: : :
: : :
: : : ---**메인 폼에서 버튼클릭시 Func1 사용하는 루틴
: : :
: : : procedure Tfrom1.button1Click(sender :Tobject);
: : : begin
: : : Func1('Y');
: : : end;
: : :
: : :
: : :
: : :
: : : 안녕하세요~
: : :
: : : 시리얼로 출력을 하는 public 함수 "Func1" 을 쓰레드에서
: : :
: : : Synchronize 로 동기화 하여 호출 사용하고
: : :
: : : 메인폼에서 버튼을 클릭하면 역시 "Func1" 사용할수 있는 환경에서...
: : :
: : :
: : :
: : : 쓰레드에서 Func1 호출하여 50회 정도 루프를 돌면서 시리얼로 text를 전송하고 있는 도중에
: : :
: : : 메인폼에서 버튼을 클릭하여 역시 50회 돌면서 text 를
: : :
: : : 전송하면 상호 간섭이 발생되지 않을까요?
: : :
: : :
: : : 예를 들면 쓰레드에서 호출한 Func1이 50회를 돌면서 1 ~ 50 까지 숫자를 출력 도중에
: : :
: : : 난데없이 메인에서 Func1 호출하여 51 ~ 100 까지 숫자
: : :
: : : 출력호출하면
: : :
: : : 출력 결과가 1~30 까지 나오고 다음에 51~100까지 나오고
: : :
: : : 그다음에 31 ~ 50 까지 출력 되는 어이 없는 경우가 발생되지는 않는지?..
: : :
: : :
: : : 물론 1-50까지 출력은 아주 짧은 시간내에 출력이 되기 때문에
: : : 별 문제없이 출력 됩니다마는 만약 굉장히 긴 Loop를 돌고 있다면
: : :
: : : 혹시 상호 간섭으로 섞여 나올수 있을수도 있게다 싶어 여러분들의
: : :
: : : 조언을 듣고 싶습니다.
: : :
: : : 만약 이상없이 출력 된다면 혹은 섞여서 출력 되는
: : :
: : : 문제가 발생되는지 그 원리가 아주 아주 궁금합니다.
|
