刚学完成端口，下面一句怎么老是出问题！
创建线程报错:‘.' execpted but ',' found
unit ServerMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SyncObjs,StdCtrls, Buttons, ExtCtrls, IPEdit,winsock2,ServerPublic,WorkThread,
ComCtrls;
type
TForm_Server = class(TForm)
Image1: TImage;
login_name: TLabeledEdit;
login_password: TLabeledEdit;
server: TBitBtn;
star: TBitBtn;
stop: TBitBtn;
Label1: TLabel;
server_port: TLabeledEdit;
server_ip: TIPEdit;
Bevel1: TBevel;
msg: TStatusBar;
procedure serverClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure starClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_Server : TForm_Server;
//AServerThread : TServerThread;
CompletionPort : THANDLE ; //完成端口句柄
Listen : TSOCKET;
GlobalLock : TCriticalSection;
implementation
{$R *.dfm}
procedure TForm_Server.serverClick(Sender: TObject);
begin
if form_server.Height=275 then
form_server.Height:=193
else
form_server.Height:=275
end;
procedure TForm_Server.FormCreate(Sender: TObject);
begin
ReadIpAndPort(DBServerIP,DBServerPort);
server_ip.IPString:=DBServerIP;
server_port.Text:=inttostr(DBServerPort);
end;
procedure TForm_Server.starClick(Sender: TObject);
var
wsaData : TWSAData;
i : integer;
SystemInfo : SYSTEM_INFO;
ThreadHandle : THandle;
ThreadID : DWORD;
ListenSocket : TSOCKET;
begin
WriteIpAndPort(server_ip.IPString,strtoint(server_port.Text));
WSAStartup(makeword(2, 0), wsaData);
CompletionPort:=CreateIoCompletionPort(INVALID_HANDLE_VALUE, 0, 0, 0);
GetSystemInfo(SystemInfo);
for i:= 0 to SystemInfo.dwNumberOfProcessors * 2 +2 do
begin
///就下面一句报错！错误：‘.' execpted but ',' found
ThreadHandle :=CreateThread(nil, 0,@WorkThread,Pointer(CompletionPort),0, ThreadID);
CloseHandle(ThreadHandle)
end;
end;
end.
问题点数：0、回复次数：3Top
1 楼fengzhengren（风筝）回复于 2005-06-01 08:28:25 得分 0
CloseHandle(ThreadHandle)
落了一个;
CloseHandle(ThreadHandle);Top
2 楼bruin74（fire.bruin）回复于 2005-06-01 08:36:11 得分 0
不对呀,我加了也不行!Top
3 楼bruin74（fire.bruin）回复于 2005-06-03 10:58:34 得分 0
没人回答吗?Top
