1. 개발/실행 플랫폼

(1) OS : Win10

(2) 개발툴 : delphi 10.4

(3) 사용 Database :

2. 개발 중인 프로그램 Component 개발 (Thread를 이용한 rest 통신)

3. 질문 내용

 

안녕하세요~ ^^

Rest통신을 하는 Component를 개발중입니다. 멀티쓰레드를 이용해 쿼리를 던지고 결과를 받으려고 합니다.

쓰레드 실행 완료 시 PostMessage(FResultTo, UM_WORKERDONE, self.Handle, 0); 를 이용해서 쓰레드가 끝났다는걸

인지해서 처리하려고 하는데요

일반 Form에서 아주 잘 됩니다만 콤포넌트화해서 하려니 

procedure HandleThreadResult(var Message: TUMWorkerDone); message UM_WORKERDONE;

이 프로시저가 동작을 안합니다. ㅠㅠ

    TAgent_Thread = class(TComponent)
    private
        FQuery_Record: TQuery_Record;
        FRunning: Boolean;
        FThreads: array of TFThread;
        FOwner: Tform;

    protected
        constructor create(Owner: TComponent); override;
        procedure HandleThreadResult(var Message: TUMWorkerDone); message UM_WORKERDONE;
    public
        Execute_Count: Integer;

        property Result: TQuery_Record read FQuery_Record;
        procedure AddQuery(_Type: TQuerytype; _Query: string);
        procedure svc;
    end;

이렇게 선언되어 있거든요

혹시 Component에서는 전혀 Message 처리가 되지 않을까요??

되면 관련 웹페이지 소개좀 부탁드려도 될까요?