忘
忘情忘爱
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tmain.clscltConnect(Sender: TObject
Socket: TCustomWinSocket);
type
strdata=record
ml:string;
id:string;
end;
var mstream:Tmemorystream;
strid:strdata;
begin
strid.ml:='1';
strid.id:=code;
mstream:=Tmemorystream.Create;
try
mstream.Write(???);
socket.SendStream(mstream);
finally
mstream.Free;
end;
end;
如何获取自定义类型的变量的缓冲?
Socket: TCustomWinSocket);
type
strdata=record
ml:string;
id:string;
end;
var mstream:Tmemorystream;
strid:strdata;
begin
strid.ml:='1';
strid.id:=code;
mstream:=Tmemorystream.Create;
try
mstream.Write(???);
socket.SendStream(mstream);
finally
mstream.Free;
end;
end;
如何获取自定义类型的变量的缓冲?