Registriert seit: 11. Apr 2009
578 Beiträge
Delphi 12 Athens
|
AW: Aufrufen einer Unterprozedur mit AsyncCalls
8. Mai 2016, 17:26
Delphi-Quellcode:
class function Invoke<T>(Event: TAsyncCallArgGenericMethod<T>; const Arg: T): IAsyncCall; overload; static;
IAsyncCall = interface
{ Sync() waits until the asynchronous call has finished and returns the
result value of the called function if that exists. }
function Sync: Integer;
{ Finished() returns True if the asynchronous call has finished. }
function Finished: Boolean;
{ ReturnValue() returns the result of the asynchronous call. It raises an
exception if called before the function has finished. }
function ReturnValue: Integer;
{ ForceDifferentThread() tells AsyncCalls that the assigned function must
not be executed in the current thread. }
procedure ForceDifferentThread;
{ added by Zarko Gajic to support canceling tasks waiting in the ThreadPool queue}
procedure Cancel;
end;
TAsyncCallArgGenericMethod<T> = function(Arg: T): Integer of object;
|
|
Zitat
|