一个TCP的SERVER的程序遇到的问题(1分)

bottom · 2003-08-11

一个TCP的SERVER的程序遇到的问题 不过运行时出先RUNTIM的错误，大家帮忙看看如何修改啊? program Project1; {$APPTYPE CONSOLE} uses   Windows,winsock; var    TempWSAData: TWSAData;    s: TSocket;    addr: TSockAddr;    RemoteAddr: PSockAddr;    SinSize: integer; const CRLF=#13#10; UDPPORT = 6767;            //设定UDP端口号 BEGIN     if WSAStartup($101, TempWSAData)=1 then        Writeln('StartUp Error!');     s := Socket(AF_INET, sock_stream, 0);     if (s = INVALID_SOCKET) then   //Socket创建失败     begin          Writeln('Socket创建失败');          CloseSocket(s); //          exit;     end;     //发送方SockAddr绑定     addr.sin_family := AF_INET;     addr.sin_addr.S_addr := INADDR_ANY;     addr.sin_port := htons(UDPPORT);     if Bind(s, addr, sizeof(addr)) <> 0  then       begin         Writeln('bind fail');       end;     //监听     write('listen = ');     listen(s,5);     Writeln(Listen(s,5));     write('accept = ');     New(RemoteAddr);     SinSize := SizeOf(RemoteAddr);     accept(s, RemoteAddr, PInteger(SinSize));     //write(accept(s, RemoteAddr, PInteger(SinSize))); END.

Yves · 2003-08-11

哪里的错误？ 你也不标出来？

jondy · 2003-08-16

晕死，这个是我提在CSDN和S8S8。NET上的帖子 现在还没解决呢，帮我~~

ego · 2003-08-16

>>UDPPORT = 6767;            //设定UDP端口号 >>s := Socket(AF_INET, sock_stream, 0); 不对呀，你上面是想用UDP，但下面创建Socket的时候又是用TCP。 s := socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP); 如果是用TCP，那么改为 socket(AF_INET, Sock_Stream, IPProto_TCP); 还有，地址最好符合“网络字节顺序”： ServerAddr.sin_addr.S_addr := htonl(INADDR_ANY);

一个TCP的SERVER的程序遇到的问题(1分)

bottom

Unregistered / Unconfirmed

Yves

Unregistered / Unconfirmed

jondy

Unregistered / Unconfirmed

ego

Unregistered / Unconfirmed

Similar threads