难道现在真的没有高手吗?我等.......真是头痛,如何实现发送一个记录集,希望大哥们能帮帮小弟 (100分)

  • 主题发起人 主题发起人 laijf
  • 开始时间 开始时间
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;
 
写2个转换函数就行了
chang1(s,var str)//发送时调用这个函数
begin
str:=inttostr(s.id)+'|'+inttostr(...)+'|'+.....
end

chang2(str,var s) //收到时调用这个函数
begin
根据分割符号'|'分割开各个域
end;
procedure TfrmMain.Button2Click(Sender: TObject);
var
s:tbind;
begin
{
s.id:=...
s.leixin:=...
s.gs:=...
...

change1(s,str);

}
try
client.Socket.SendBuf(str,len);
memo1.Lines.Add();//这又该怎么加进去;
finally
freemem(s);
end;
end;


 
虽然没完全达成我的目标但我还是很感谢,只有你一人给了我一个答案
 
后退
顶部