小编Tob*_*ves的帖子

我正在寻找一种从64位Delphi应用程序枚举本地网络上的MS SQL Server的方法.到目前为止我在32位上使用的方法工作正常,但包含不能在32位编译的汇编代码.我似乎找不到从64位客户端枚举服务器的方法.

我无法编译的代码是这样的:

function PtCreateADOObject(const ClassID: TGUID): IUnknown;
var
  Status: HResult;
  FPUControlWord: Word;
begin
  asm
    FNSTCW FPUControlWord
  end;
  Status := CoCreateInstance(
              CLASS_Recordset,
              nil,
              CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER,
              IUnknown,
              Result);
  asm
    FNCLEX
    FLDCW FPUControlWord
  end;
  OleCheck(Status);
end;