兄弟们救命啊

[tianzhenn]

procedure TForm1.WMSocket(var Msg: TMessage);
var
sock: TSocket;
addr: TSockAddrIn;
addrlen: Integer;
buf: array[0..4095] of Char;
i: integer;
begin
//Msg的WParam是产生了网络事件的socket句柄，LParam则包含了事件类型
case WSAGetSelectEvent(Msg.LParam) of
FD_ACCEPT:
begin
addrlen := sizeof(addr);
sock := accept(Msg.WParam, addr, addrlen);
if sock <> INVALID_SOCKET then
WSAAsyncSelect(sock, Handle, WM_SOCKET, FD_READ or FD_WRITE or FD_CLOSE);

Memo1.Lines.Add(inttostr(sock) + '加入');
FCurrentSocket := Sock;
end;

FD_CLOSE:
begin
closesocket(Msg.WParam);
Memo1.Lines.Add(inttostr(Msg.WParam) + '退出');
end;

FD_READ:
begin
i := recv(Msg.WParam, buf[0], 4096, 0);
inc(sendtotal, i);
end;

FD_WRITE: ;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
sendtotal := 0;
WSAStartup($202, WSADATA);
m_sock := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
addr.sin_family := AF_INET;
addr.sin_port := htons(4000);
addr.sin_addr.S_addr := htonl(INADDR_ANY);
bind(m_sock, @addr, sizeof(SOCKADDR));

WSAAsyncSelect(m_sock, Handle, WM_SOCKET, FD_ACCEPT or FD_CLOSE);
listen(m_sock, 5);

Button1.Enabled := false;
Button2.Enabled := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
closeSocket(m_sock);
WSAClEANUP;

Button1.Enabled := true;
Button2.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := inttostr(sendtotal);
sendBuffer;
end;

procedure TForm1.SendBuffer;
var
RoutineInfo: pRoutineInfo;
Buffer: PWSABuf;
BytesSent: DWORD;
begin
new(RoutineInfo);
ZeroMemory(RoutineInfo, SizeOf(RoutineInfo^));
New(Buffer);
buffer.buf := @FSendBuffer;
Buffer.len := SendSize;
GetMem(Buffer.buf, SendSize);


if WSASend(FCurrentSocket, Buffer, 1, BytesSent, 0, @RoutineInfo.Overlapped, nil) = SOCKET_ERROR then
writelog(inttostr(WSAGETLASTERROR));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(F2, extractfilepath(paramstr(0)) + 'Listen.txt');
ReWrite(F2);
SendSize := 1024*1024*20;
end;


///////////////////////////////////////////////////////////////////////////////////////
这是我写的服务器基于WSASYNSELECT IO的模型，当用户进来以后，就向该用户每秒发送160Mb的数据
这样就会造成服务器程序内存直线上升，可我是在千兆网上测试的啊，
是不是还得对IO进行什么设置？
服务器配置： 双CPU 3G 4G内存

如果几十M的数据就没有问题，这是什么原因啊，兄弟，救命啊。。。。。

[qrlvls]

这应该是正常情况，资源占用出现瓶颈后处理复杂度不是线性上升的
你应该考虑优化服务器程序的结构了

[qrlvls]

因为协议需要确认，不会在未确认之前把所有数据都传送到网上，关键在于发送和接收时造成了某一方的延迟，因此不是发送速度达不到，而是被处理过程延迟了

[tianzhenn]

我想问的是，为什么在KM网上
我的WSASEND发送时速度还不能达到100M?

[tianzhenn]

有道理，我再去客户端看看

[load888]

学习

[baoyuhua]

另一方面，协议栈的实现考虑的是为整个网络服务，所以其在算法实现上不会允许你的突发数据达到那么大，算法最终会使网络流量达到一个平衡，不可能达到你期望的数值。