咏南中间件统一的数据序列(还原)类

咏南中间件统一的数据序列(还原)类

1）支持DELPHI7及以上版本（已测试通过），更低DELPHI版本，有待测试，理论上也是能够支持的

2）支持序列/还原的基本类型包括：string, integer, bool, date, time, datetime, float

3）支持扩展的类型包括：buffer, stream, file, bytes, stringlist, oleVariant

4）支持直接序列/还原 数据集对象

5）支持跨平台序列/还原

支持的序列/还原接口：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

procedure WriteString(const key, value: string); procedure WriteInteger(const key: string; value: integer); procedure WriteFloat(const key: string; value: Double); procedure WriteBool(const key: string; value: Boolean); procedure WriteDate(const key: string; value: TDateTime); procedure WriteTime(const key: string; value: TDateTime); procedure WriteDateTime(const key: string; value: TDateTime); procedure WriteStream(const key: string; value: TStream); procedure WriteBuf(const key: string; const buf; const len: integer); procedure WriteBytes(const key: string; const bytes: TBytes); procedure WriteStringList(const key: string; const list: TStringList); procedure WriteFile(const key, filename: string); {$IFDEF fd} procedure WriteFDDataSet(const key: string; dataset: TFDAdaptedDataSet); procedure WriteFDDelta(const key: string; dataset: TFDAdaptedDataSet); {$ENDIF} {$IFDEF ole} procedure WriteOleVariant(const key: string; ole: OleVariant); procedure WriteDelta(const key: string; cds: TClientDataSet); procedure WriteParams(const key: string; params: TParams); {$ENDIF} //-------------------------------------------------------------------------- function ReadString(const key: string): string; function ReadInteger(const key: string): Integer; function ReadFloat(const key: string): Double; function ReadBool(const key: string): Boolean; function ReadDate(const key: string): TDateTime; function ReadTime(const key: string): TDateTime; function ReadDateTime(const key: string): TDateTime; procedure ReadStream(const key: string; value: TStream); procedure ReadBuf(const key: string; var buf; const len: integer); procedure ReadBytes(const key: string; var bytes: TBytes); procedure ReadStringList(const key: string; var list: TStringList); procedure ReadFile(const key: string; stream: TStream); {$IFDEF fd} procedure ReadFDDataSet(const key: string; dataset: TFDMemTable); procedure ReadFDDelta(const key: string; stream: TStream); {$ENDIF} {$IFDEF ole} function ReadOleVariant(const key: string): OleVariant; procedure ReadClientDataSet(const key: string; cds: TClientDataSet); procedure ReadParams(const key: string; params: TParams); {$ENDIF}

　　下面是序列/还原的演示：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103

procedure TForm1.Button1Click(Sender: TObject); // 基本类型 序列/还原 var   serial, serial2: TynSerial;   s: string; begin   serial := TynSerial.Create;   serial.WriteString('str', 'yn');   serial.WriteInteger('int', 888);   serial.WriteDateTime('now', now);   serial.WriteFloat('float', 12.68);   serial.WriteBool('bool', True);   s := serial.Text;     serial2 := TynSerial.Create;   serial2.Text := s;   Memo1.Lines.Add(serial2.ReadString('str'));   Memo1.Lines.Add(IntToStr(serial2.ReadInteger('int')));     serial.Free;   serial2.Free; end;   procedure TForm1.Button2Click(Sender: TObject); // 流 序列/还原 var   ms: TMemoryStream;   serial, serial2: TynSerial;   s: string; begin   ms := TMemoryStream.Create;   ms.LoadFromFile(ExtractFilePath(ParamStr(0)) + '1.bmp');   ms.Position := 0;   serial := TynSerial.Create;   serial.WriteStream('img', ms);   s := serial.Text;     serial2 := TynSerial.Create;   serial2.Text := s;   ms.Clear;   serial2.ReadStream('img', ms);   ms.Position := 0;   Image1.Picture.Bitmap.LoadFromStream(ms);     ms.Free;   serial.Free;   serial2.Free; end;   procedure TForm1.Button3Click(Sender: TObject); // buffer 序列/还原 var   r, r2: TRec;   serial, serial2: TynSerial;   s: string; begin   r.id := 1;   r.name := 'buf';   serial := TynSerial.Create;   serial.WriteBuf('buf', r, SizeOf(r));   s := serial.Text;     serial2 := TynSerial.Create;   serial2.Text := s;   serial2.ReadBuf('buf', r2, SizeOf(r2));   Memo1.Lines.Add(IntToStr(r2.id));   Memo1.Lines.Add(r2.name);     serial.Free;   serial2.Free; end;   procedure TForm1.FormCreate(Sender: TObject); begin   ADOConnection1.Connected := True; end;   procedure TForm1.Button4Click(Sender: TObject); // 数据集 序列/还原 var   serial, serial2: TynSerial;   s: string; begin   ADOQuery1.Close;   ADOQuery1.SQL.Clear;   ADOQuery1.SQL.Add('select * from tgoods');   serial := TynSerial.Create;   serial.WriteOleVariant('goods', DataSetProvider1.Data);     ADOQuery1.Close;   ADOQuery1.SQL.Clear;   ADOQuery1.SQL.Add('select * from tunit');   serial.WriteOleVariant('unit', DataSetProvider1.Data);   s := serial.Text;     serial2 := TynSerial.Create;   serial2.Text := s;   serial2.ReadClientDataSet('goods', ClientDataSet1);   serial2.ReadClientDataSet('unit', ClientDataSet2);     serial.Free;   serial2.Free; end;