WINSOCKET2错误定义导致lNet组件onConnect在WINCE下不能正常工作

damcool

大家好，最近在用lNet开发一个WinCE下的网络程序，发现onConnect老是无法正常工作。总是说连接成功，即使服务器根本没有起来。搜索源码后发现WINSOCKET2.DLL的定义了错误的DLL。这个文件位于目录lazarus\fpc\2.6.0\source\rtl\win\winsock2.pp. 原来的定义是：

1. Const
2.   WINSOCK_VERSION = $0202;
3.   WINSOCK2_DLL = 'ws2_32.dll';

复制代码

修改如下后，问题解决。与大家分享以避免不必要的调试。

1. Const
2.   WINSOCK_VERSION = $0202;
3.   {$ifdef WINCE}
4.   WINSOCK2_DLL = 'ws2.dll';
5.   {$else}
6.   WINSOCK2_DLL = 'ws2_32.dll';
7.   {$end}

复制代码

zyx7742

不错的提醒啊