网络传输的问题 ( 积分: 300 )

  • 主题发起人 主题发起人 天真
  • 开始时间 开始时间

天真

Unregistered / Unconfirmed
GUEST, unregistred user!
对于一个套接字我是这么发送的.

procedure send(var buf : pTcpInfo);
procedure sendbuf(var buf ; count : integer);
begin
...........这儿是wsasend发送的
end;
begin
这儿调用sendbuf。。。。
end;


客户端接收是一个线程接收的
while not terminated do
begin
i := recv(buffer,16384);
end;

好象接收的速度不快是什么原因,
急死我了,

 
对于一个套接字我是这么发送的.

procedure send(var buf : pTcpInfo);
procedure sendbuf(var buf ; count : integer);
begin
...........这儿是wsasend发送的
end;
begin
这儿调用sendbuf。。。。
end;


客户端接收是一个线程接收的
while not terminated do
begin
i := recv(buffer,16384);
end;

好象接收的速度不快是什么原因,
急死我了,

 
申明:
我是在本机发送接收测试的.
 
用 serversocket 和 clientsocket 吧
 
我在想TSERVERSOCKET
我现在服务器就是用TSERVERSOCKET的,
但客户端不是

在服务器的发送是用TSERVERSOCKET的套接字
 
接受答案了.
 
后退
顶部