Summary Table
Categories |
Total Count |
PII |
0 |
URL |
0 |
DNS |
0 |
EKL |
0 |
IP |
0 |
PORT |
0 |
VsID |
0 |
CF |
0 |
AI |
0 |
VPD |
0 |
PL |
0 |
Other |
0 |
File Content
unit ORNetIntf;
interface
uses
System.Classes,
System.SysUtils,
TRPCB;
type
IORNetMult = interface;
IORNetParam = interface;
IORNetMult = interface(IInterface)
['{6C393A44-D6D4-4328-9D69-CA0A09D39D19}']
procedure AddSubscript(aSubscript: string; aValue: string); overload;
procedure AddSubscript(aSubscript: string; aValue: Int64); overload;
procedure AddSubscript(aSubscript: string; aValue: Double; aPrecision: Integer = 2); overload;
procedure AddSubscript(aSubscript: Integer; aValue: string); overload;
procedure AddSubscript(aSubscript: Integer; aValue: Int64); overload;
procedure AddSubscript(aSubscript: Integer; aValue: Double; aPrecision: Integer = 2); overload;
procedure AddSubscript(aSubscripts: array of const; aValue: string); overload;
procedure AddSubscript(aSubscripts: array of const; aValue: Int64); overload;
procedure AddSubscript(aSubscripts: array of const; aValue: Double; aPrecision: Integer = 2); overload;
end;
IORNetParam = interface(IInterface)
['{D7254EDB-349C-43DE-8885-F11134EFCCB0}']
procedure AssignToParamRecord(aParam: TParamRecord);
end;
function NewORNetMult(var aORNetMult: IORNetMult): boolean;
implementation
uses
ORNetMult;
function NewORNetMult(var aORNetMult: IORNetMult): boolean;
begin
Result := TORNetMult.Create.GetInterface(IORNetMult, aORNetMult);
end;
end.