ㄳㄳ 더많이 해주세요.ㅎㅎ
누가 ASyncCalls 라이브러리도 번역해줫으면 좋겠네요..ㅎㅎ(제가 하고 싶지만 영어가 딸려서)
http://andy.jgknet.de/blog/bugfix-units/asynccalls-29-asynchronous-function-calls/
아래처럼 사용하는 샘플이 있습니다...
procedure TForm1.Button3Click(Sender: TObject);
var
Value: Integer;
begin
TAsyncCalls.Invoke(procedure
begin
Value := 10;
TAsyncCalls.VCLInvoke(procedure
begin
ShowMessage(`The value may not equal 10: ` + IntToStr(Value));
end);
Value := 20;
TAsyncCalls.VCLSync(procedure
begin
ShowMessage(`The value equals 20: ` + IntToStr(Value));
end);
Value := 30;
end);
Sleep(1000);
end;
procedure MainProc(const S: string);
var
Value: Integer;
a: IAsyncCall;
function DoSomething: Integer;
begin
if S = `Abc` then
Value := 1;
Result := 0;
end;
begin
a := LocalAsyncCall(@DoSomething);
// do something
a.Sync;
LocalAsyncExec(@DoSomething, Application.ProcessMessages);
end;
2012-02-21 오후 8:33:45
류종택