Undeclared identifier: 'CoInitialize'

Question

小弟在delphi7中运行程序时报错："尚未调用CoInitialize"我在单元的initialization 中加入代码：CoInitialize(nil);出现 :"Undeclared identifier: 'CoInitialize' " 的错误
 
请问怎么解决，谢谢！！！

Answer 1

没有初使化变量。
一般是数值型的变量才会出显此错误。
如果是全部变量：在END. 前Initializetion //初始化变量度
如果是局部变量则在：var  //变量
begin
//变量赋值！

Answer 2

CoInitialize(nil);如果变量是数值是不配置的。
也会出显此错误!

Answer 3

unit Mythread;interfaceuses
  Windows,shlobj,Forms, Classes, dialogs,SysUtils, ADODB, DBXpress, DB, SqlExpr, FMTBcd,Definition;type
  Ttransfer = class(TThread)
  private
    padoconnection : TAdoConnection;
    padoquery : TADOQuery;
    psqlconnection :Tsqlconnection;
    psqlquery : Tsqlquery;
    psqlupdate : Tsqlquery;  protected
    procedure Execute;override;
  public
    constructor Create;
    destructor Destroy; override;   
  end;var
   mytransfer : Ttransfer;implementation
constructor Ttransfer.Create;
begin
  padoconnection := TAdoConnection.Create(nil);
  padoconnection.ConnectionString := 'Provider=MSDAORA.1;Password='+ora_pwd+';User ID='+ora_user+';Data Source='+ora_db+';Persist Security Info=True';
  padoconnection.LoginPrompt := false;
  padoquery := TADOQuery.Create(nil);
  padoquery.Connection := padoconnection;
  psqlconnection := Tsqlconnection.Create(nil);
  psqlconnection.ConnectionName :='MySQLConnection';
  psqlconnection.DriverName :='MySQL';
  psqlconnection.GetDriverFunc :='getSQLDriverMYSQL';
  psqlconnection.LibraryName :='dbexpmysql.dll';
  psqlconnection.VendorLib := 'libmysql.dll';
  psqlconnection.LoginPrompt := false;  psqlconnection.Params.Values['DriverName'] := 'MySQL' ;
  psqlconnection.Params.Values['hostname'] := mysql_host ;
  psqlconnection.Params.Values['user_name'] := mysql_user ;
  psqlconnection.Params.Values['database'] := mysql_db ;
  psqlconnection.Params.Values['password'] := mysql_pwd ;
  psqlconnection.Params.Values['Blobsize'] := '-1' ;
  psqlconnection.Params.Values['ErrorResourceFile'] := '' ;
  psqlconnection.Params.Values['Localecode'] := '0000' ;
 // psqlconnection.Open;  psqlquery := Tsqlquery.Create(nil);
  psqlquery.SQLConnection := psqlconnection;
  psqlupdate := Tsqlquery.Create(nil);
  psqlupdate.SQLConnection := psqlconnection;
  FreeOnTerminate := false;
  inherited Create(false);            //false 立刻运行
  Priority := tpLowest;              //线程等级
end;destructor Ttransfer.Destroy;
begin
  padoquery.Close;
  padoquery.Free;
  padoconnection.Free;
  psqlquery.Close;
  psqlupdate.Close;
  psqlquery.Free;
  psqlupdate.Free;
  psqlconnection.Free;  inherited;
end;procedure Ttransfer.Execute;procedure uploadkq ;             // 线程的主要任务 
var
 rowcount,i,num: integer;
 tm,rqsj,id ,cybz  : string;
begin
     num := 0;     with psqlquery do
     begin       sql.Clear;
       sql.Add('select * from kq where flag=0');
       open;
       rowcount := RecordCount;
       First;       for i:= 1  to rowcount do
       begin
         id := FieldByName('id').AsString;
         tm := FieldByName('tm').AsString;
         rqsj :=  FieldByName('rqsj').AsString;
         cybz :=  FieldByName('cybz').AsString;
         with padoquery do
             begin             sql.Clear;
             sql.Add('insert into kq(tm,rqsj,cybz)');
             sql.Add(' values('''+tm+''','''+rqsj+''','''+cybz+''')');
             Execsql;
             inc(num);
             end;         with psqlupdate do
         begin            sql.Clear;
            sql.Add('update kq set flag=''1'' where id='+id);            Execsql;
         end;
       Next;
     end;
    end; //    scnum := num ;end;
begin
 while not Terminated do
    begin
      uploadkq;    // 线程的主要任务
      Sleep(2000);
    end;
end;
initialization
begin
//CoInitialize(nil);end;end.

Answer 4

上面是小弟写的源程序，还是报“Undeclared identifier: 'CoInitialize'”