xstreams.pas

duiwenjiandechuli fangbianguanli.

unit xStreams;

interface

uses Windows, SysUtils, Classes, Forms, TypInfo, ZLib;

procedure compressstream(FileName: string);
procedure decompressstream(FileName: string);

procedure SavePropertyToStream(Stream: TStream; Instance: TPersistent; PropName:
  string);
procedure LoadPropertyFromStream(Stream: TStream; Instance: TPersistent);

procedure ReadFormAsText(AExeName, AClassName: string; Strings: TStrings);
procedure WriteFormAsBinary(AExeName, AClassName: string; Strings: TStrings);

function VisualizeForm(Strings: TStrings): TForm;
procedure TextizeForm(AForm: TForm; Strings: TStrings);

implementation

type
  TMyWriter = class(TWriter)
  public
    procedure WriteProperty(Instance: TPersistent; PropInfo: Pointer);
  end;

  TMyReader = class(TReader)
  public
    procedure ReadProperty(Instance: TPersistent);
  end;

  { TMyWriter }

procedure TMyWriter.WriteProperty(Instance: TPersistent; PropInfo: Pointer);
begin
  inherited WriteProperty(Instance, PropInfo);
end;

{ TMyReader }

procedure TMyReader.ReadProperty(Instance: TPersistent);
begin
  inherited ReadProperty(Instance);
end;

procedure SavePropertyToStream(Stream: TStream; Instance: TPersistent; PropName:
  string);
begin
  with TMyWriter.Create(Stream, 4096) do
  try
    WriteListBegin;
    WriteProperty(Instance, GetPropInfo(Instance.ClassInfo, PropName));
    WriteListEnd;
  finally
    Free;
  end;
end;

procedure LoadPropertyFromStream(Stream: TStream; Instance: TPersistent);
begin
  with TMyReader.Create(Stream, 4096) do
  try
    ReadListBegin;
    while not EndOfList do
      ReadProperty(Instance);
    ReadListEnd;
  finally
    Free;
  end;
end;

// 盢 form