L
laijf
Unregistered / Unconfirmed
GUEST, unregistred user!
type tbind=^bind_mess;
bind_mess=record
id:integer;
leixin:byte;
gs,pwd:string;
end;
procedure TfrmMain.Button2Click(Sender: TObject);
var
s:tbind;
begin
{小弟想不出这部分因该怎么写,希望各位大吓赐教
}
try
client.Socket.SendBuf(s^,len);
memo1.Lines.Add();//这又该怎么加进去;
finally
freemem(s);
end;
end;
bind_mess=record
id:integer;
leixin:byte;
gs,pwd:string;
end;
procedure TfrmMain.Button2Click(Sender: TObject);
var
s:tbind;
begin
{小弟想不出这部分因该怎么写,希望各位大吓赐教
}
try
client.Socket.SendBuf(s^,len);
memo1.Lines.Add();//这又该怎么加进去;
finally
freemem(s);
end;
end;