67 lines
2.0 KiB
ObjectPascal
67 lines
2.0 KiB
ObjectPascal
unit X2Log.Details.Intf;
|
|
|
|
interface
|
|
uses
|
|
System.Classes,
|
|
System.Generics.Collections,
|
|
Vcl.Graphics,
|
|
|
|
X2Log.Intf;
|
|
|
|
|
|
type
|
|
IX2LogDetailsText = interface(IX2LogDetails)
|
|
['{D5F194E9-8633-4575-801D-E8983124118F}']
|
|
function GetAsString: string;
|
|
|
|
property AsString: string read GetAsString;
|
|
end;
|
|
|
|
|
|
TX2LogValueType = (StringValue, BooleanValue, IntValue, FloatValue, DateTimeValue);
|
|
|
|
IX2LogDetailsDictionary = interface(IX2LogDetails)
|
|
['{24211DC0-F359-466B-A9CD-AF6AA3AE85F4}']
|
|
function GetKeys: TEnumerable<string>;
|
|
function GetValueType(const Key: string): TX2LogValueType;
|
|
|
|
function GetDisplayValue(const Key: string): string;
|
|
function GetStringValue(const Key: string): string;
|
|
function GetBooleanValue(const Key: string): Boolean;
|
|
function GetIntValue(const Key: string): Int64;
|
|
function GetFloatValue(const Key: string): Extended;
|
|
function GetDateTimeValue(const Key: string): TDateTime;
|
|
|
|
property Keys: TEnumerable<string> read GetKeys;
|
|
property ValueType[const Key: string]: TX2LogValueType read GetValueType;
|
|
property DisplayValue[const Key: string]: string read GetDisplayValue;
|
|
|
|
property StringValue[const Key: string]: string read GetStringValue;
|
|
property BooleanValue[const Key: string]: Boolean read GetBooleanValue;
|
|
property IntValue[const Key: string]: Int64 read GetIntValue;
|
|
property FloatValue[const Key: string]: Extended read GetFloatValue;
|
|
property DateTimeValue[const Key: string]: TDateTime read GetDateTimeValue;
|
|
end;
|
|
|
|
|
|
IX2LogDetailsBinary = interface(IX2LogDetails)
|
|
['{265739E7-BB65-434B-BCD3-BB89B936A854}']
|
|
function GetAsStream: TStream;
|
|
|
|
{ Note: Stream Position will be reset by GetAsStream }
|
|
property AsStream: TStream read GetAsStream;
|
|
end;
|
|
|
|
|
|
IX2LogDetailsGraphic = interface(IX2LogDetails)
|
|
['{ED8200AA-0D0F-4D8D-BE7D-A32AC7D630AF}']
|
|
function GetAsGraphic: TGraphic;
|
|
|
|
property AsGraphic: TGraphic read GetAsGraphic;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
end.
|