TCP通信传送类信息

摘要: uses DBXJSONReflect,DBXJSON; TTest=class private FAnsistr:AnsiString; Fstr:string; Fms:TStream; public constructor Create; destructor Destroy; override; end;{ Ttest }constructor Ttest.create;begin Fms:=TMemoryStream.Create;end;destructor Ttest.Destroy;begin Fms.Free; inherited;end;procedure TForm1.B 阅读全文
posted @ 2010-12-16 17:14 懒蛋皮球 阅读(239) 评论(1) 推荐(0)