_____________倾家荡产也要解决啊(放出源码)

Question

这个程序是从一个类似程序中提取出来的,(扫描IP 查找共享)但是不知道为什么 不能进入扫描的线程
请帮忙看看,告诉我那里需要纠正... 
http://final.51.net/download/network.rar

Answer 1

ping.pas描述              Using this object, you can easily ping any host on your network.Works only in 32 bits mode (no Delphi 1) under NT or 95.
可能是这个原因

Answer 2

我是楼主，上面的既然不好答，看看这个吧：比如,有很多共享的目录,并且以下面的形式在一个MEMO里面
"\\61.183.64.1\SharedDocs"
"\\61.183.64.2\C"
"\\61.183.64.3\我的共享"
我要拷贝我的程序所在目录的一个文件,
他的文件名 放在edit1里面
拷贝MEMO里面第1行是
CopyFile(LPCTSTR(ExtractFilename(Application.exename)+Edit1.Text),LPCTSTR('61.183.64.1\SharedDocs'+Edit1.Text),False)
怎么才可以拷贝MEMO每一行的地址,MEMO的内容不是固定的,而且当要拷贝的文件过大时,怎么等一个文件COPY完了做COP下一个,或者谁能写成多线程的?

Answer 3

var
  i: Integer;   ...for i := 0 to Memo1.Lines.Count - 1 do
  CopyFile(...);这样不行吗?

Answer 4

哪个地址没有了，YYQQ(阿鱼)的方法是同时复制把，要复制的内容大一点，就会没有响应了！