6

我现在有一个几乎完成的应用程序,我要实现的下一个功能是线程。我选择使用 BeginThread(),尽管我知道 delphi 中的 TThread。我遇到的问题是 BeginThread() 调用的结构。通常,程序中将调用我想要线程化的函数的行是

CompareFiles(form1.Edit3.Text,Form1.Edit4.Text,Form1.StringGrid2,op);

op 是一个整数。

我已将其切换为从中创建线程的行是

BeginThread(nil,0,CompareFiles,Addr('form1.Edit3.Text,Form1.Edit4.Text,Form1.StringGrid2,op'),0,x);

从我能找到的关于如何实际使用 BeginThread() 的少量信息中,这应该是一个很好的调用,但是在编译时,我得到的只是关于 BeginThread() 语句参数结构的编译器错误。

编辑信息。

当前调用 CompareFiles 的过程是

procedure TForm1.Panel29Click(Sender: TObject);
var
op,x : integer;

begin
    if (Form1.Edit3.Text <> '') AND (Form1.Edit4.Text <> '') then
        begin
          op := 3;
          if RadioButton7.Checked = True then op := 0;
          if RadioButton3.Checked = True then op := 1;
          if RadioButton4.Checked = True then op := 2;
          if RadioButton5.Checked = True then op := 3;
          if RadioButton6.Checked = True then op := 4;
          CompareFiles(form1.Edit3.Text,Form1.Edit4.Text,Form1.StringGrid2,op);
        end;
end;

如果我按照几个人的建议使用 TThread,如下面的 Rob 所示,我对如何将 op、Edit3/4.Text 和 StringGrid2 传递给 CompareFiles 感到困惑。从我见过的 TThread 示例中猜测,我想我会将上面的代码替换TCompareFilesThread.Execute为并将 Panel29Click 中的当前代码放入TCompareFilesThread.Create然后添加

FEdit3Text := Edit3Text;
FEdit4Text := Edit4Text;
FGrid := Grid;

对此

FEdit3Text := Form1.Edit3.Text;
FEdit4Text := Form1.Edit4.Text;
FGrid := Form1.StringGrid2;

但我有这种唠叨的感觉,完全不合时宜。

4

1 回答 1

14

这根本不是使用BeginThread. 该函数需要一个指向带有一个参数的函数的指针,但您尝试调用的函数需要四个。您BeginThread为其转发给线程过程的一个参数是一个字符串,但您显然希望某种魔法能够将该字符串转换为这些变量包含的值。

这不是 Delphi 的工作方式,即使对于可以做类似事情的语言,通常也不鼓励实际去做

要将多个参数传递给BeginThread,请使用您需要的所有值定义一条记录,并定义一个记录指针:

type
  PCompareFilesParams = ^TCompareFilesParams;
  TCompareFilesParams = record
    Edit3Text,
    Edit4Text: string;
    Grid: TStringGrid;
    Op: Integer;
  end;

更改CompareFiles以接受指向该记录的指针:

function CompareFiles(Params: PCompareFilesParams): Integer;

要启动线程,您需要分配该记录的一个实例并填充其字段:

var
  Params: PCompareFilesParams;
begin
  New(Params);
  Params.Edit3Text := Edit3.Text;
  Params.Edit4Text := Edit4.Text;
  Params.Grid := StringGrid2;
  Params.Op := op;
  BeginThread(nil, 0, @CompareFiles, Params, 0, x);

CompareFiles像这样实现,以便在线程终止之前释放记录:

function CompareFiles(Params: PCompareFilesParams): Integer;
begin
  try
    // <Normal implementation goes here.>
  finally
    Dispose(Params);
  end;
end;

不过,如果您只使用 ,则可以使这一切变得容易TThread得多。您可以使您的后代类在其构造函数中具有任意数量的参数,因此您不必搞乱动态分配和释放特殊记录。

type
  TCompareFilesThread = class(TThread)
  private
    FEdit3Text,
    FEdit4Text: string;
    FGrid: TStringGrid;
    FOp: Integer;
    procedure Execute; override;
  public
    constructor Create(const Edit3Text, Edit4Text: string; Grid: TStringGrid; Op: Integer);
    property ReturnValue;
  end;

constructor TCompareFilesThread.Create;
begin
  inherited Create(False);
  FEdit3Text := Edit3Text;
  FEdit4Text := Edit4Text;
  FGrid := Grid;
  FOp := Op;
end;

procedure TCompareFilesThread.Execute;
begin
  ReturnValue := CompareFiles(FEdit3Text, FEdit4Text, FGrid, FOp);
end;

无需调用BeginThread,您只需实例化该类并让它运行:

var
  ThreadRef: TThread;


ThreadRef := TCompareFilesThread.Create(Edit3.Text, Edit4.Text, StringGrid2, Op);

使用线程还有更多内容,例如知道线程何时完成运行,但我认为您已经足够开始了。不过,最后要提防的TStringGrid是 VCL 控件。你不能从你创建的这个新线程中对它做任何事情(不管你最终如何创建它)。您对网格控件所做的一切都需要从主线程中完成。使用TThread.SynchronizeandTThread.Queue将任何 VCL 操作转移到主线程上。您的文件比较线程将等待同步操作完成,但它会继续运行而不等待排队操作完成。

于 2011-01-25T02:32:42.010 回答