对镜弹箜篌

摘要： uses activex;function Stream2OleVariantBytes(const Stream:TStream):OleVariant;var Data:Pointer;begin Result := VarArrayCreate([0,Stream.Size-1],varByte); Data := VarArrayLock(Result); try Stream.Position := 0; Stream.Read(Data^,Stream.Size); finally VarArrayUnlock(Result); end;end;pro... 阅读全文

摘要： 在Delphi中调试COM+ 由于COM+是执行在COM+的执行环境中，因此Delphi 的程序员无法像Delphi的分布式多层应用系统一样可以直接在 Delphi 的IDE 中设定应用程序服务器的断点来调试。 事实上， Delphi 仍然可以在 Delphi 的集成开发环境中调试 COM+组件，也可以让程序员在集成开发环境中在COM+组件的程序单元中设定断点，然后执行客户端应用程序调用 COM+组件。此时 Delphi 便会把执行控制权带到Delphi 的集成开发环境中，并且暂停在程序员设定的断点上让程序员开始调试。从此开始，程序员就可以像调试一般的应用程序一样来调COM+组件了。不过要如此 阅读全文