当前位置: 动力学知识库 > 问答 > 编程问答 >

multithreading - Delphi 7: How to implement multi-threading?

问题描述:

I have a TButton in the main TForm. When user click the button, it will execute the below process:

begin

Process_done := FALSE;

Process_Result.Clear;

cmdProcess.CommandLine := #34+AppPath+'getdata.exe"';

cmdProcess.Run;

Repeat

Application.ProcessMessages;

Until Process_done;

end;

As you can see above, the process calls external executable, and the process can take some times which blocking the main application.

This is only one process, and I need another one.

So, I am thinking to implement multi-threading, where I can run the above process in a separate thread. The other process as well. And the main thread can do something WHILE checking when both processes done.

Can anyone give me some examples how to do this using Delphi 7?

OR point me to an article, simple implementation like this?

Thanks.

网友答案:

Try something like this:

type
  TRunProcessThread = class(TThread)
  protected
    cmdProcess: Whatever;
    procedure Execute; override;
  public
    constructor Create(const ACmdLine: String);
    destructor Destroy; override;
  end;

constructor TRunProcessThread.Create(const ACmdLine: String);
begin
  inherited Create(True);
  FreeOnTerminate := True;
  cmdProcess := Whatever.Create;
  cmdProcess.CommandLine := ACmdLine;
end;

destructor TRunProcessThread.Destroy;
begin
  cmdProcess.Free;
  inherited;
end;

procedure TRunProcessThread.Execute;
begin
  cmdProcess.Run;
  ...
end;

.

procedure TForm1.Button1Click(Sender: TObject);
var
  Thread: TRunProcessThread;
begin
  Thread := TRunProcessThread.Create(AnsiQuotedStr(AppPath + 'getdata.exe', #34));
  Thread.OnTerminate := ProcessDone;
  Thread.Resume;
end;

procedure TForm1.ProcessDone(Sender: TObject);
begin
  // access TRunProcessThread(Sender) to get result information as needed ...
end;
网友答案:

You should create a class inherited from TThread and put that code in there. I don't remember exactly, but I think you'll find TThread template in File->New dialog box. When code execution is finished, you just notify your gui. Here's an article how to synchronize UI with external thread http://delphi.about.com/od/kbthread/a/thread-gui.htm

分享给朋友:
您可能感兴趣的文章:
随机阅读: