?? statcurvebig_imp.pas
字號:
unit StatCurveBig_IMP;
{$WARN SYMBOL_PLATFORM OFF}
interface
uses
ComObj, ActiveX, StatCurveBig_TLB, StdVcl, StatCurveBig_F;
type
TStatCurveBig_COM = class(TAutoObject, IStatCurveBig_COM)
protected
function MMInvoke(const PCarID, PCurveID,
PConnString: WideString): WideString; safecall;
{ Protected declarations }
end;
var
AllResult: String; //返回給主調(diào)模塊
strCarID: String; //車輛自動(dòng)編號
strCurveID: String; //曲線編號
DataString: String; //接收連接字符串
implementation
uses ComServ;
function TStatCurveBig_COM.MMInvoke(const PCarID, PCurveID,
PConnString: WideString): WideString;
begin
strCarID:= PCarID;
strCurveID:= PCurveID;
DataString := PConnString;
frmStatCurveBig := TfrmStatCurveBig.Create(nil);
try
frmStatCurveBig.ShowModal;
Result := AllResult;
finally
frmStatCurveBig.Free;
end;
end;
initialization
TAutoObjectFactory.Create(ComServer, TStatCurveBig_COM, Class_StatCurveBig_COM,
ciMultiInstance, tmApartment);
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -