ault Value 可设置参数缺省值. Delphi 生成代码详解
点击刷新按钮刷新后,上面类型库编辑器对应的 Delphi 自动生成的代码如下: unit uCOM; {$WARN SYMBOL_PLATFORM OFF} interface uses Windows, ActiveX, Classes, ComObj, pCOM_TLB, StdVcl; type TSample = class(TTypedComObject ISample) TTypedComObject, TTypedComObject protected function GetCOMInfo(ValInt: SYSINT; const ValStr: WideString): WideString; stdcall; end; implementation uses ComServ ComServ; //竟然会自动加上这个东西
function TSample.GetCOMInfo(ValInt: SYSINT;const ValStr: WideString): WideString; begin end; initialization TTypedComObjectFactory.Create(ComServer,