您的位置: 主页 >> 程序设计 >> Delphi中提示“尚未调用CoInitialize错误”的解决方法 在调用dll的时候,如果调用 IE控件 ,ado 控件 则有可能出现上述错误,解决方法很简单。 首先要添加引用 uses ActiveX 然后再出现问题的函数或过程最前端,添加 CoInitialize( nil ) ; 最后一句添加 CoUninitialize; 问题就可以解决了。 贴一个列子吧。 procedure Getinfo(listview: TStringList; filetype: TStringList; filecount: Integer; key: string; password: string ); begin if Form4 = nil then begin CoInitialize(nil); Form4 := TForm4.Create(application);//运行这个窗体会出现上述错误,这个窗体中调用了IE 控件 Form4.Flistview := listview; Form4.Ffiletype := filetype; Form4.Ffilecount := filecount; Form4.Fkey := key; try Form4.ShowModal; finally Form4.Free; CoUninitialize; end; end; end;