如何使用TcpClient和TcpServer组件发送接受一个数组?(100分)

  • 主题发起人 主题发起人 feng_me
  • 开始时间 开始时间
F

feng_me

Unregistered / Unconfirmed
GUEST, unregistred user!
希望可以得到一个例子。
最好可以发送到信箱:
feng_me@xinhuanet.com
同时问一下,使用这两个组件能不能同时在3个不同端口上建立、保持连接?
 
这个很容易吗,
var
buf:array[0..12]of integer;
sendbuf(buf,sizeof(buf));就OK了
 
server端:
var
x:array of byte;
i:integer;
begin
for i:=0 to 10 do
x:=$A
send(client.sockethandle,x[0],length(x),0);
end;
 
同意张无忌
补充一下:
如果不是buf数组
再copymemory一下就可以了
 
嘿嘿,能给我个正式代码吗?希望是Delphi6的。
呵呵,只看关键代码对我这种小菜来说太难理解了,呵呵,谢了。
 
使用流的形式stream
 
后退
顶部