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

标签：send   bin   message   pos   text   obj   position   and   procedure   

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;

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

标签：send   bin   message   pos   text   obj   position   and   procedure   

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