델파이에서 함수/프로 시저를 비동기 적으로 호출하는 방법 (컴포넌트없이)

Question

델파이에서 함수 또는 프로 시저를 비동기 적으로 실행하려하지만, 컴포넌트를 사용하지 않고 델파이 코어 함수로 수행하는 방법이 있습니까?

Answer 1

또한 스레드에서 프로 시저를 실행할 수도 있습니다. OnTerminate 이벤트를 사용하여 결과를 가져옵니다. 그렇습니다. 요즘 .NET과 C#에서는 비동기 적으로 메소드를 실행하는 쉽고 편리한 방법으로 버릇이 없지만 델파이에서 작동하는 방식입니다.

Answer 2

VCL에 즉시 사용 가능한 것이 있는지 묻는 경우 대답은 no입니다. 그러나 Andreas Hausladen의 라이브러리 인 AsyncCalls 라이브러리에 연결된 작은 단위의 형식으로 아주 비슷한 것을 얻을 수 있습니다. 그것은 구성 요소가 아니므로 자격이 있다고 생각합니다. 그것은 또한 버전 5부터 델파이를 지원합니다. 대단히 좋습니다.

편집 : 당신이 그것을 실행하지 않았기 때문에 내가 예를 추가 할 것입니다

. 호출 코드에서 블로킹을 당하면 함수가 반환 한 IAsyncCall 인터페이스 포인터에 대한 참조가 유지되지 않는 것이 문제입니다. 따라서 임시 참조가 범위를 벗어나면 인터페이스를 구현하는 객체가 즉시 삭제됩니다. 소멸자는 VCL 스레드의 컨텍스트에서 호출되며 WaitForSingleObject() 또는 이와 유사한 함수를 호출하여 작업자 스레드가 완료 될 때까지 대기합니다. 그 결과 VCL 스레드가 차단됩니다. 당신이 인터페이스 포인터에 대한 참조를 유지하는 경우

당신은 올바른 동작을 얻을 것이다 : 비활성화하고 Interval 매우 짧은을 할 수있는 타이머를 설정

type 
    TForm1 = class(TForm) 
    Button1: TButton; 
    Timer1: TTimer; 
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
    procedure Button1Click(Sender: TObject); 
    procedure Timer1Timer(Sender: TObject); 
    private 
    fAsyncCall: IAsyncCall; 
    procedure WaitForIt(ADelay: integer); 
    end; 

를, 50 밀리 말한다. 버튼을 클릭하면 비동기 작업이 시작됩니다.

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Button1.Enabled := FALSE; 
    fAsyncCall := AsyncCall(WaitForIt, 1000); 
end; 

procedure TForm1.WaitForIt(ADelay: integer); 
begin 
    Sleep(ADelay); 

    EnterMainThread; 
    try 
    Randomize; 
    Color := RGB(Random(256), Random(256), Random(256)); 
    Timer1.Enabled := TRUE; 
    finally 
    LeaveMainThread; 
    end; 
end; 

다른 작업은 시작할 수 없습니다. 이 EnterMainThread() 및 LeaveMainThread()을 사용하여, 피 호출 방법 문의 양식에 액세스하는 것도 가능하다 방법

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
    Timer1.Enabled := FALSE; 
    Assert((fAsyncCall <> nil) and fAsyncCall.Finished); 
    fAsyncCall := nil; 
    Button1.Enabled := TRUE; 
end; 

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
begin 
    CanClose := (fAsyncCall = nil) or fAsyncCall.Finished; 
end; 

참고 종료 후 그 형태를 통보하고 인터페이스 참조 재설정 타이머를 가능하게한다.

위의 코드가 절대 최소치는 아니며, 일부 아이디어 만 제공합니다.