1
0
mirror of synced 2024-11-08 14:19:16 +00:00

Implemented value streaming

This commit is contained in:
Mark van Renswoude 2016-10-14 16:43:53 +02:00
parent fa2947a878
commit 1a22728f30
2 changed files with 117 additions and 46 deletions

View File

@ -40,9 +40,9 @@ type
private
FValueType: TX2LogValueType;
protected
constructor Create(AValueType: TX2LogValueType; AStream: TStream); virtual;
constructor Create(AValueType: TX2LogValueType; AStream: TStream = nil; ASize: Cardinal = 0); overload; virtual;
procedure LoadFromStream(AStream: TStream); virtual; abstract;
procedure LoadFromStream(AStream: TStream; ASize: Cardinal); virtual; abstract;
procedure SaveToStream(AStream: TStream); virtual; abstract;
property ValueType: TX2LogValueType read FValueType;
@ -143,7 +143,6 @@ type
implementation
uses
System.SysUtils,
System.Variants,
Vcl.ClipBrd,
Winapi.Windows,
@ -197,7 +196,9 @@ type
private
FValue: string;
protected
procedure LoadFromStream(AStream: TStream); override;
constructor Create(const AValue: string); overload;
procedure LoadFromStream(AStream: TStream; ASize: Cardinal); override;
procedure SaveToStream(AStream: TStream); override;
property Value: string read FValue write FValue;
@ -208,7 +209,9 @@ type
private
FValue: Boolean;
protected
procedure LoadFromStream(AStream: TStream); override;
constructor Create(AValue: Boolean); overload;
procedure LoadFromStream(AStream: TStream; ASize: Cardinal); override;
procedure SaveToStream(AStream: TStream); override;
property Value: Boolean read FValue write FValue;
@ -219,7 +222,9 @@ type
private
FValue: Int64;
protected
procedure LoadFromStream(AStream: TStream); override;
constructor Create(AValue: Int64); overload;
procedure LoadFromStream(AStream: TStream; ASize: Cardinal); override;
procedure SaveToStream(AStream: TStream); override;
property Value: Int64 read FValue write FValue;
@ -230,7 +235,9 @@ type
private
FValue: Extended;
protected
procedure LoadFromStream(AStream: TStream); override;
constructor Create(AValue: Extended); overload;
procedure LoadFromStream(AStream: TStream; ASize: Cardinal); override;
procedure SaveToStream(AStream: TStream); override;
property Value: Extended read FValue write FValue;
@ -241,7 +248,9 @@ type
private
FValue: TDateTime;
protected
procedure LoadFromStream(AStream: TStream); override;
constructor Create(AValue: TDateTime); overload;
procedure LoadFromStream(AStream: TStream; ASize: Cardinal); override;
procedure SaveToStream(AStream: TStream); override;
property Value: TDateTime read FValue write FValue;
@ -321,7 +330,7 @@ var
paramIndex: Integer;
param: TVarRec;
key: string;
value: Variant;
value: TX2LogDictionaryValue;
begin
inherited Create;
@ -356,28 +365,29 @@ begin
param := AValues[paramIndex];
case param.VType of
vtInteger: value := param.VInteger;
vtBoolean: value := param.VBoolean;
vtChar: value := string(param.VChar);
vtExtended: value := param.VExtended^;
vtString: value := string(param.VString^);
vtPChar: value := string(param.VPChar);
vtWideChar: value := string(param.VWideChar);
vtPWideChar: value := string(param.VPWideChar);
vtAnsiString: value := string(PChar(param.VAnsiString));
vtCurrency: value := param.VCurrency^;
vtWideString: value := string(WideString(param.VWideString));
vtInt64: value := param.VInt64^;
vtInteger: value := TX2LogDictionaryIntValue.Create(param.VInteger);
vtBoolean: value := TX2LogDictionaryBooleanValue.Create(param.VBoolean);
vtChar: value := TX2LogDictionaryStringValue.Create(string(param.VChar));
vtExtended: value := TX2LogDictionaryFloatValue.Create(param.VExtended^);
vtString: value := TX2LogDictionaryStringValue.Create(string(param.VString^));
vtPChar: value := TX2LogDictionaryStringValue.Create(string(param.VPChar));
vtWideChar: value := TX2LogDictionaryStringValue.Create(param.VWideChar);
vtPWideChar: value := TX2LogDictionaryStringValue.Create(param.VPWideChar);
vtAnsiString: value := TX2LogDictionaryStringValue.Create(PChar(param.VAnsiString));
vtCurrency: value := TX2LogDictionaryFloatValue.Create(param.VCurrency^);
vtWideString: value := TX2LogDictionaryStringValue.Create(WideString(param.VWideString));
vtInt64: value := TX2LogDictionaryIntValue.Create(param.VInt64^);
{$IF CompilerVersion >= 23}
vtUnicodeString: value := string(UnicodeString(param.VUnicodeString));
vtUnicodeString: value := TX2LogDictionaryStringValue.Create(UnicodeString(param.VUnicodeString));
{$IFEND}
else
raise Exception.CreateFmt('Unsupported value type %d at index %d', [param.VType, paramIndex]);
end;
FValues.Add(key, value);
Inc(paramIndex);
end;
end;
@ -719,76 +729,131 @@ end;
{ TX2LogDictionaryValue }
constructor TX2LogDictionaryValue.Create(AValueType: TX2LogValueType; AStream: TStream);
constructor TX2LogDictionaryValue.Create(AValueType: TX2LogValueType; AStream: TStream; ASize: Cardinal);
begin
inherited Create;
FValueType := AValueType;
LoadFromStream(AStream);
if Assigned(AStream) then
LoadFromStream(AStream, ASize);
end;
{ TX2LogDictionaryStringValue }
procedure TX2LogDictionaryStringValue.LoadFromStream(AStream: TStream);
constructor TX2LogDictionaryStringValue.Create(const AValue: string);
begin
// TODO TX2LogDictionaryStringValue.LoadFromStream
inherited Create(StringValue);
Value := AValue;
end;
procedure TX2LogDictionaryStringValue.LoadFromStream(AStream: TStream; ASize: Cardinal);
begin
Value := TStreamUtil.ReadString(AStream, nil, False, ASize);
end;
procedure TX2LogDictionaryStringValue.SaveToStream(AStream: TStream);
begin
// TODO TX2LogDictionaryStringValue.SaveToStream
TStreamUtil.WriteString(AStream, Value, nil, False);
end;
{ TX2LogDictionaryBooleanValue }
procedure TX2LogDictionaryBooleanValue.LoadFromStream(AStream: TStream);
constructor TX2LogDictionaryBooleanValue.Create(AValue: Boolean);
begin
// TODO TX2LogDictionaryBooleanValue.LoadFromStream
inherited Create(BooleanValue);
Value := AValue;
end;
procedure TX2LogDictionaryBooleanValue.LoadFromStream(AStream: TStream; ASize: Cardinal);
begin
if ASize <> SizeOf(Boolean) then
raise EInvalidOperation.CreateFmt('Size (%d) does not match Boolean', [ASize]);
AStream.ReadBuffer(FValue, ASize);
end;
procedure TX2LogDictionaryBooleanValue.SaveToStream(AStream: TStream);
begin
// TODO TX2LogDictionaryBooleanValue.SaveToStream
AStream.WriteBuffer(Value, SizeOf(Boolean));
end;
{ TX2LogDictionaryIntValue }
procedure TX2LogDictionaryIntValue.LoadFromStream(AStream: TStream);
constructor TX2LogDictionaryIntValue.Create(AValue: Int64);
begin
// TODO TX2LogDictionaryIntValue.LoadFromStream
inherited Create(IntValue);
Value := AValue;
end;
procedure TX2LogDictionaryIntValue.LoadFromStream(AStream: TStream; ASize: Cardinal);
begin
if ASize <> SizeOf(Int64) then
raise EInvalidOperation.CreateFmt('Size (%d) does not match Int64', [ASize]);
AStream.ReadBuffer(FValue, ASize);
end;
procedure TX2LogDictionaryIntValue.SaveToStream(AStream: TStream);
begin
// TODO TX2LogDictionaryIntValue.SaveToStream
AStream.WriteBuffer(Value, SizeOf(Int64));
end;
{ TX2LogDictionaryFloatValue }
procedure TX2LogDictionaryFloatValue.LoadFromStream(AStream: TStream);
constructor TX2LogDictionaryFloatValue.Create(AValue: Extended);
begin
// TODO TX2LogDictionaryFloatValue.LoadFromStream
inherited Create(FloatValue);
Value := AValue;
end;
procedure TX2LogDictionaryFloatValue.LoadFromStream(AStream: TStream; ASize: Cardinal);
begin
if ASize <> SizeOf(Extended) then
raise EInvalidOperation.CreateFmt('Size (%d) does not match Extended', [ASize]);
AStream.ReadBuffer(FValue, ASize);
end;
procedure TX2LogDictionaryFloatValue.SaveToStream(AStream: TStream);
begin
// TODO TX2LogDictionaryFloatValue.SaveToStream
AStream.WriteBuffer(Value, SizeOf(Extended));
end;
{ TX2LogDictionaryDateTimeValue }
procedure TX2LogDictionaryDateTimeValue.LoadFromStream(AStream: TStream);
constructor TX2LogDictionaryDateTimeValue.Create(AValue: TDateTime);
begin
// TODO TX2LogDictionaryDateTimeValue.LoadFromStream
inherited Create(DateTimeValue);
Value := AValue;
end;
procedure TX2LogDictionaryDateTimeValue.LoadFromStream(AStream: TStream; ASize: Cardinal);
begin
if ASize <> SizeOf(TDateTime) then
raise EInvalidOperation.CreateFmt('Size (%d) does not match TDateTime', [ASize]);
AStream.ReadBuffer(FValue, ASize);
end;
procedure TX2LogDictionaryDateTimeValue.SaveToStream(AStream: TStream);
begin
// TODO TX2LogDictionaryDateTimeValue.SaveToStream
AStream.WriteBuffer(Value, SizeOf(TDateTime));
end;

View File

@ -16,8 +16,8 @@ type
class function ReadCardinal(AStream: TStream): Cardinal;
class procedure WriteCardinal(AStream: TStream; AValue: Cardinal);
class function ReadString(AStream: TStream; AEncoding: TEncoding = nil): string;
class procedure WriteString(AStream: TStream; const AValue: string; AEncoding: TEncoding = nil);
class function ReadString(AStream: TStream; AEncoding: TEncoding = nil; AReadSize: Boolean = True; ASize: Cardinal = 0): string;
class procedure WriteString(AStream: TStream; const AValue: string; AEncoding: TEncoding = nil; AWriteSize: Boolean = True);
end;
implementation
@ -57,13 +57,17 @@ begin
end;
class function TStreamUtil.ReadString(AStream: TStream; AEncoding: TEncoding): string;
class function TStreamUtil.ReadString(AStream: TStream; AEncoding: TEncoding; AReadSize: Boolean; ASize: Cardinal): string;
var
bytes: TBytes;
bytesLength: Cardinal;
begin
bytesLength := ReadCardinal(AStream);
if AReadSize then
bytesLength := ReadCardinal(AStream)
else
bytesLength := ASize;
if bytesLength > 0 then
begin
SetLength(bytes, bytesLength);
@ -75,7 +79,7 @@ begin
end;
class procedure TStreamUtil.WriteString(AStream: TStream; const AValue: string; AEncoding: TEncoding);
class procedure TStreamUtil.WriteString(AStream: TStream; const AValue: string; AEncoding: TEncoding; AWriteSize: Boolean);
var
bytes: TBytes;
bytesLength: Cardinal;
@ -84,7 +88,9 @@ begin
bytes := GetEncoding(AEncoding).GetBytes(AValue);
bytesLength := Length(bytes);
WriteCardinal(AStream, bytesLength);
if AWriteSize then
WriteCardinal(AStream, bytesLength);
if bytesLength > 0 then
AStream.WriteBuffer(bytes[0], bytesLength);
end;