Indy是怎麼回事---用過Indy的近來,沒人解答嗎，S 找进销存系统需求文档
2楼: 用一段容错脚本吧,如果出错,在一定时间内重新请求.这和语言版本没什么关系,你可以ping一下你的FTP服务器会不会丢包. 如最新用友财务软件
3楼: 兄弟，說明白點，容錯腳本哪裡有，怎麼樣判斷丟包
4楼: 11001: 不知道这样的主机。
5楼: 我的FTP server有問題嗎
6楼: 直接使用ftp的IP地址看看。
进销存软件版7楼: 先检查FTP服务器吧
8楼: 直接使用ftp的IP地址沒有問題
9楼: 給我一個可以用的FTP地址試下也行
10楼: (11001). Host not found. 主机未知。此名字不是一个正式主机名，也不是一个别名，它
不能在查询的数据库中找到。 此错误也可能在协议和服务查询中返回，它意味着指定的名字不能在相关数据库中找到。
11楼: 打开dos,然后输入 ping 000.000.000.000 -t
注:000.000.000.000换成你的FTP服务器的IP
12楼: 如果是同一个网段，那先看看“网上邻居”能否找到ftp所在的主机。如果不是同一个网段，那就更要使用ip地址。
最后建议，尽量使用IP地址。 如进销存系统需求文档
13楼: procedure TForm1.Button1Click(Sender: TObject);
begin
try
//你的FTP操作代码
except
showmessage(＇＇程序出错啦＇＇); //如果出错,程序就跳到这里
end;
end;
进销存软件版14楼: procedure TMainForm.ConnectButtonClick(Sender: TObject);
begin
ConnectButton.Enabled := false;
if IdFTP1.Connected then try
if TransferrignData then IdFTP1.Abort;
IdFTP1.Quit;
finally
CurrentDirEdit.Text := ＇＇/＇＇;
DirectoryListBox.Items.Clear;
SetFunctionButtons(false);
ConnectButton.Caption := ＇＇Connect＇＇;
ConnectButton.Enabled := true;
ConnectButton.Default := true;
end
else with IdFTP1 do try
Username := UserIDEdit.Text; //---anonymous
Password := PasswordEdit.Text;//--------為空
Host := FtpServerEdit.Text;// Connect; //------------------------此處跳錯
Self.ChageDir(CurrentDirEdit.Text);
SetFunctionButtons(true);
SaveFTPHostInfo(FtpServerEdit.Text, ＇＇FTPHOST＇＇);
finally
ConnectButton.Enabled := true;
if Connected then begin
ConnectButton.Caption := ＇＇Disconnect＇＇;
ConnectButton.Default := false;
end;
end;
end;
15楼: Host := 192.168.2.139
看明白我写的没,不要在IP前面加ftp://啊...
16楼: 接受答案了.
联系我们
