求教TMemoryStream 如何通过inty9(tcp)用 Record传输/接收
如题求教如何处理
record如下
type
tdata=record
i:integer;
s:string[100];
ms:TMemoryStream;
end;
ptdata=^tdata;
procedure TForm1.Button1Click(Sender: TObject);
var
c:ptdata;
qms:TMemoryStream;
begin
qms:=TMemoryStream.Create;
RecordsetToMS(ADOQuery1.Recordset,qms);//转化用的这个正常的,我直接发stream是可以读出的.
c:=allocmem(sizeof(tdata));
c^.i:=1;
c^.s:='tset';
c^.ms:=qms;
idtcpclient1.Connect;
idtcpclient1.WriteBuffer(c^,sizeof(tdata));
freemem(c);
end;
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
a:ptdata;
o:integer;
z:string;
qms:TMemoryStream;
begin
a:=allocmem(sizeof(tdata));
athread.Connection.ReadBuffer(a^,sizeof(tdata));
try
o:=a^.i;
z:=a^.s;
try
qms:=a^.ms;
memo1.Lines.Add(inttostr(qms.Size));//这里我发现获取不到大小
except
end;
finally
end;
end;
