把窗体读到内存流然后转为text

procedure TfrmBiaoBLBWH.Button1Click(Sender: TObject);
var
ABinary,AText:TMemoryStream;
begin
inherited;
ABinary:=TMemoryStream.Create;
ABinary.WriteComponent(Self);
ABinary.Position:=0;
AText:=TMemoryStream.Create;
ObjectBinaryToText(ABinary,AText);
AText.Position:=0;
ShowMessage(LoadTextW(AText));
FreeAndNil(AText);
FreeAndNil(ABinary);
end;

原文地址:https://www.cnblogs.com/maweiwei/p/7518876.html