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

2021-07-28 06:55

阅读:606

标签: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


评论


亲,登录后才可以留言!