delphi 2010多线程使用

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;