有谁知道connect.dcu文件？ winsock2.h谁有？(50分)

vc++的INCLUDE目录里有winsock2.h

JEDI有Delphi的Winsock2的声明。

直接用就可以了
uses
winsock;
这个里面有大部分的套接字的描述！！！！
看winsock.pas

我的程序中其中用到 Uses connect
现在是缺少Connect.dcu文件,我users winsock了但是却没用！
这个Connect.pas到底是什么东西来？？？

另：wys205、Kingron你们收到我的信没？

什么信件?没有留意到~~~~~~~~

没收到，另我又没留EMAIL，你怎么发？：）
wys205@sina.com

另：connect.pas文件在安装光盘
Delphi4安装盘/Info/Extras/NetManage/Demos/Nntp/下，是一个自带的例子

哎,要你到JEDI下载,你尤不去,只好帮你找个连接了.:
ftp://delphi-jedi.org/api/Winsock2.zip

不用的直接调用winsock.pas就可以了
比如/；
uses winsock;
var
wsa:twsadata;
address:taddrin;
s:tsocket;
begin
wsastartup(makeword(2,2),0);
address.sin_famil:=af_inet;
address.sin_address.inet_address:=inet_addr('127.0.0.1');
address.sin_port=htons(99);
s:=socket(AF_INET,sock_stream,0)
if (s<>invalid_socket) then
begin
bind(s,address,sizeof(address));
listen(s,100);
end;
end;


上面这个程序里面很多的单词我都打错了，因为是在学校里面所以就不更正了，如果你要我可以
把我用delphi写的一个端口扫描的工具给你！！！

=======================================================================
版权没有，转载自由！！！不过希望你能贴出改进的版本！
搞得都是自己问自己答了，呵呵，100分啊，又不能给自己，所以，谁把多线程的
写出来，谁就可以得分，最好是给一些线程的相关资料。比如说用createthread
怎么来实现，而用tthread 类怎么来实现！！！！！！！！！！！！！！！！！
=======================================================================
源程序如下：




program Project1;
{$APPTYPE CONSOLE}

uses winsock,sysutils,windows;

const
startport=1;
stopport=30;
var
s:tsocket;
i,j,error:integer;
server:tsockaddrin;
wsa:twsadata;
begin

writeln('===============================================================================');
writeln('== Very Slow Port Scanner ==');
writeln('== Edit by whaoye@21cn.com ==');
writeln('===============================================================================');
writeln(' == ==');
writeln(' == ==');
writeln(' =====================================================================');
writeln(' == ==');
wsastartup(makeword(1,1),wsa);
server.sin_family:=AF_INET;
server.sin_addr.S_addr:=inet_addr('127.0.0.1');
for i:=startport to stopport do
begin
s:=socket(AF_INET, SOCK_STREAM, 0);
server.sin_port:=htons(i);
error:=connect(s,server,sizeof(server));
if error=0 then
begin
write(' == Scan port: '+inttostr(i));
for j:=0 to 5-length(inttostr(i)) do
write(' ');
writeln(' [ok] ==');
closesocket(s);
end;
end;
writeln(' == ==');
writeln(' =====================================================================');
writeln(' == ==');
writeln(' == ==');
writeln('===============================================================================');
writeln('== Thank you for your test! Good luck! ==');
writeln('== Edit by whaoye@21cn.com ==');
writeln('===============================================================================');
wsacleanup();
end.

刚出差回来.......

wys205：你说的connect.pas 非那connect.pas！你能给我winsock2.h吗？我手头上没有
这东东。先谢了！
whaoye：还是没有解决问题！
Kingron：谢谢你的连接，但还是没有用！

前次给wys205,Kingron的邮件是给错了！呵呵，不好意思。。。。：）

我faint,JEDI不能进去吗？倒~~~~~~~~
用一个代理吧~~~~~

怎么不要winSock2.pas,却要winSock2.h???

问题没有解决，但我重写源码了！
结束问题吧！
再谢回答问题的大富翁们！