SOCKET ERROR , HELP ME!
呵呵!我用SOCKET编写了一段程序,对应DEMO中的CHAT程序,但是
在SPEEDBUTTON1的PRESS 事件中 抱错:
Project chatforwin.exe raised exception class esocketerror with message
'Asynchronous socket error 10049 ', process . use step or run to continue
。
下面是源程序:
if clientsocket.active then clientsocket.active:=false;
if inputquery('输入IP地址','请输入服务器IP地址:',server) then
if length(server)>0 then
with clientsocket do
begin
host:=server;
active:=true ;
listen1.Checked:=false;
end;