WinSockAPI的问题(100分)

chenge1980 · 2002-12-05

用Connect连接到服务器后返回值是-1错误代码是10037 sckAlreadyComplete 应该如何解决？？？

tianhf · 2002-12-05

10037-WSAEALREADY(在指定的套接口上正在进行一个非阻塞的Connect)

chenge1980 · 2002-12-06

很奇怪，把WSAAsyncSelect()挪到connect后边又很正常了，只是没法触发connect事件了

zw84611 · 2002-12-06

我举个例子，希望能有所帮助： {-------------------------------------------------------------- Simple Example. Implement TCP(both Client and Server) with Socket API <zw84611@sina.com> --------------------------------------------------------------} unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   WinSock, StdCtrls; const   WM_SOCK = WM_USER + 1;    //自定义windows消息   TCP_PORT = 5432;          //设定TCP端口号 type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     ListBox1: TListBox;     procedure Button1Click(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure FormCreate(Sender: TObject);   private     { Private declarations }     HasConnected, IsServer: boolean;     CliSocket, SvrSocket: integer;     SvrAddrIn, CliAddrIn:TSockAddrIn;     procedure InitSocket;     procedure SendData(Content: string);     procedure ReadData(var Message: TMessage); message WM_SOCK;     procedure SockConnect;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.InitSocket; var   wsadata: TWsadata;   err{, optval}: integer; begin   WSAStartup($0101,WSAData);     CliSocket := socket(AF_INET, SOCK_STREAM,IPPROTO_IP);   SvrSocket := socket(AF_INET, SOCK_STREAM,IPPROTO_IP);   if (CliSocket = INVALID_SOCKET)or(SvrSocket = INVALID_SOCKET) then   begin     ShowMessage(inttostr(WSAGetLastError())+'  Socket创建失败');     CloseSocket(CliSocket);     exit;   end;   SvrAddrIn.sin_addr.s_addr:= INADDR_ANY;   SvrAddrIn.sin_family := AF_INET;   SvrAddrIn.sin_port :=htons(TCP_PORT);   Bind(SvrSocket, SvrAddrIn, sizeof(SvrAddrIn));   err := Listen(SvrSocket,5);   if err<>0 then ShowMessage('Listen error.');   {optval := 1;   if SetSockopt(SvrSocket,SOL_SOCKET,SO_REUSEADDR,pchar(@optval),sizeof(optval)) = SOCKET_ERROR then   begin     showmessage('SO_REUSEADDR set error.');   end; }   //绑定消息映射   WSAAsyncSelect(SvrSocket, Handle , WM_SOCK, FD_READ or FD_ACCEPT or FD_CONNECT or FD_WRITE or FD_CLOSE);   WSAAsyncSelect(CliSocket, Handle , WM_SOCK, FD_READ or FD_ACCEPT or FD_CONNECT or FD_WRITE or FD_CLOSE); end; procedure TForm1.SockConnect; var   err: integer; begin   CliAddrIn.sin_addr.s_addr:=inet_addr(PChar(Edit1.Text));   CliAddrIn.sin_family := AF_INET;   CliAddrIn.sin_port :=htons(TCP_PORT);   repeat     err:=connect(CliSocket,CliAddrIn, SizeOf(CliAddrIn));     if err = -1 then     begin       {  if we use WSAAsyncSelect(CliSocket...) in order to receive data at          Client side, here will get error, but it still works. why?       }       //ShowMessage('connect error.');       //ListBox1.Items.Add('connect error.');       HasConnected := false;       break;     end     else     begin       HasConnected := true;       IsServer := false;     end;   until err=0; end; procedure TForm1.SendData(Content: string); begin     Send(CliSocket,Content[1],length(Content),0); end; procedure TForm1.ReadData(var Message: TMessage); var   Event: word;   Buf:array[0..1023] of char;   AddrLen, DataLen: integer; begin   //   AddrLen :=  sizeof(SvrAddrIn);   Event := WSAGetSelectEvent(Message.LParam);   case Event of     FD_CONNECT:     begin       ListBox1.Items.Add('connect');       HasConnected := true;       //do nothing?     end;     FD_ACCEPT:     begin       IsServer := true;       HasConnected := true;       ListBox1.Items.Add('accept');       //CloseSocket(CliSocket);       CliSocket := Accept(SvrSocket,@SvrAddrIn,@AddrLen);     end;     FD_READ:     begin       DataLen := Recv(CliSocket,Buf,1024,0);       buf[DataLen] := #0;       ListBox1.Items.Add(Buf);     end;     FD_WRITE:     begin       ListBox1.Items.Add('write');     end;     FD_OOB:     begin       ListBox1.Items.Add('FD_OOB');     end;     FD_CLOSE:     begin       HasConnected := false;       ListBox1.Items.Add('close');     end;   end; //end of case end; procedure TForm1.Button1Click(Sender: TObject); begin   //202.104.32.230   if (not IsServer)and(not HasConnected) then SockConnect;   SendData('hello, world'); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   CloseSocket(SvrSocket);   CloseSocket(CliSocket); end; procedure TForm1.FormCreate(Sender: TObject); begin   HasConnected := false;   IsServer := false;   InitSocket; end; end. //源程序：http://www.playicq.com/dispdoc.php?t=27&id=2148

chenge1980 · 2002-12-06

不大明白      repeat     err:=connect(CliSocket,CliAddrIn, SizeOf(CliAddrIn));     if err = -1 then     begin       {  if we use WSAAsyncSelect(CliSocket...) in order to receive data at          Client side, here will get error, but it still works. why?       }       //ShowMessage('connect error.');       //ListBox1.Items.Add('connect error.');       HasConnected := false;       break;     end     else     begin       HasConnected := true;       IsServer := false;     end;   until err=0; 为什么要这样做，而且这样触发conncet时，其实并未连接，真正连接成功时err的值也是-1

zw84611 · 2002-12-06

不，是连接了 err:=connect(CliSocket,CliAddrIn, SizeOf(CliAddrIn));一句就已经连接了。 之所以这样，是因为我的Client和Server做在一个程序里，出现了这个问题（我不太明白 为什么）其实你把Client和Server分开， 或把 WSAAsyncSelect(CliSocket, Handle , WM_SOCK, FD_READ or FD_ACCEPT or FD_CONNECT or FD_WRITE or FD_CLOSE); 这一句去掉，只留 WSAAsyncSelect(SvrSocket, Handle , WM_SOCK, FD_READ or FD_ACCEPT or FD_CONNECT or FD_WRITE or FD_CLOSE); 则上面的代码不必注释掉，一点问题都不会有。

chenge1980 · 2002-12-06

我试过了，我只用一个Client，只要WSAAsyncSelect在connect前面，err的值永远是-1

zw84611 · 2002-12-06

仅一个Client是不需要WSAAsyncSelect的

chenge1980 · 2002-12-06

我是在工作线程里用的，不调用WSAAsyncSelect无法触发事件

chenge1980 · 2002-12-06

基本搞定

WinSockAPI的问题(100分)

chenge1980

Unregistered / Unconfirmed

tianhf

Unregistered / Unconfirmed

chenge1980

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

chenge1980

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

chenge1980

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

chenge1980

Unregistered / Unconfirmed

chenge1980

Unregistered / Unconfirmed

Similar threads