完成端口,报内存不足 ( 积分: 50 )

procedure TServerThread.Execute;
var
PerHandleData : LPPER_HANDLE_DATA;
PerIoData : LPPER_IO_OPERATION_DATA;
Flags : DWORD;
RecvBytes : DWORD;
begin
while not Terminated do
begin
Accept := WSAAccept(Listen, nil, nil, nil, 0);
PerHandleData := LPPER_HANDLE_DATA (GlobalAlloc(GPTR, sizeof(PER_HANDLE_DATA)));
PerHandleData.Socket := Accept;
CreateIoCompletionPort(Accept, CompletionPort, DWORD(PerHandleData), 0);
PerIoData := LPPER_IO_OPERATION_DATA(GlobalAlloc(GPTR, sizeof(PER_IO_OPERATION_DATA)));

ZeroMemory( @PerIoData.Overlapped, sizeof(OVERLAPPED));
PerIoData.BytesSEND := 0;
PerIoData.BytesRECV := 0;
PerIoData.DataBuf.len := DATA_BUFSIZE;
PerIoData.DataBuf.buf := @PerIoData.Buffer;
Flags:=0;
WSARecv(Accept, @(PerIoData.DataBuf), 1, @RecvBytes, @Flags,@(PerIoData.Overlapped), nil);

end;

end;

procedure TServerThread.Execute;
var
PerHandleData : LPPER_HANDLE_DATA;
PerIoData : LPPER_IO_OPERATION_DATA;
Flags : DWORD;
RecvBytes : DWORD;
begin
while not Terminated do
begin
Accept := WSAAccept(Listen, nil, nil, nil, 0);
PerHandleData := LPPER_HANDLE_DATA (GlobalAlloc(GPTR, sizeof(PER_HANDLE_DATA)));
PerHandleData.Socket := Accept;
CreateIoCompletionPort(Accept, CompletionPort, DWORD(PerHandleData), 0);
PerIoData := LPPER_IO_OPERATION_DATA(GlobalAlloc(GPTR, sizeof(PER_IO_OPERATION_DATA)));

ZeroMemory( @PerIoData.Overlapped, sizeof(OVERLAPPED));
PerIoData.BytesSEND := 0;
PerIoData.BytesRECV := 0;
PerIoData.DataBuf.len := DATA_BUFSIZE;
PerIoData.DataBuf.buf := @PerIoData.Buffer;
Flags:=0;
WSARecv(Accept, @(PerIoData.DataBuf), 1, @RecvBytes, @Flags,@(PerIoData.Overlapped), nil);

end;

end;

自己写一个内存池来管理内存

你是局部的内存吧
一般哪个只有1m
自己写个堆内存，一般没有什么问题

多人接受答案了。