delphi 2010多线程使用

最新推荐文章于 2025-05-28 09:41:41 发布

原创最新推荐文章于 2025-05-28 09:41:41 发布 · 2k 阅读

1 ·

CC 4.0 BY-SA版权

delphi 专栏收录该内容

30 篇文章

订阅专栏

本文介绍在Delphi2010中如何正确实现多线程操作，特别是针对使用ActiveX组件时避免尚未调用CoInitialize错误的方法。通过具体示例展示了如何初始化和终止COM组件，并提供了完整的TThread子类定义及其实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 delphi 2010多线程使用 

TRefreshThread = class(TThread)
  protected
    procedure Execute; override;
  public
    pMainForm:TForm_case_materal_list;
  end;



procedure TRefreshThread.Execute;
begin
  inherited;
  try
    CoInitialize(nil); // 一定要加上此行代码 use ActiveX
    FreeOnTerminate := True;
    pMainForm.RefreshData(); // 使用这个是真正的开启子线程
    // Synchronize(Self, pMainForm.RefreshData);   //fuck 这个使用的还是主线程。可以通过GetCurrentThreadId 测试
  finally
    CoUninitialize; // 一定要加上此行代码
  end;

end;


procedure TForm_case_materal_list.startRefreshThread;
var
  refreshThread: TRefreshThread;
begin
  refreshThread := TRefreshThread.Create(True);
  //把窗体句柄传进来
  refreshThread.pMainForm:=Self;
  refreshThread.Start;
end;

 procedure startRefreshThread();




在Delphi  多线程中出现“尚未调用CoInitialize错误”的解决方法

解决方法如下：

function  TMyThread.ExecTimer: Boolean;
begin
  Result := False ;
  FMyThreadExecfinish := False;
  Screen.Cursor := crHourGlass;
  CoInitialize(nil); // 一定要加上此行代码
  try
    TranspondClientBaseData_factory1(HTTPRIOLeExp, HTTPRIONC, LogStrings);
    Sleep(1000);
    TranspondPersonBaseData_factory1(HTTPRIOLeExp, HTTPRIONC, LogStrings);
    Sleep(1000);
    TranspondDeptBaseData_factory1(HTTPRIOLeExp, HTTPRIONC, LogStrings);
  finally
    Result := True;
    FMyThreadExecfinish := True;
    Screen.Cursor := crDefault;
    CoUninitialize;// 一定要加上此行代码
  end;

end;