TidFtp download? |
缺席
|
bear28
一般會員 發表:44 回覆:53 積分:19 註冊:2002-09-10 發送簡訊給我 |
請幫忙看一下這段程式碼,
為何在1.IdFTP1.List(Ls1);與2.IdFTP1.List(Ls2);程式進行時,這兩處會有錯誤訊息:
"Invalid floating point operation".
謝謝 procedure Tfmload.acf2Execute(Sender: TObject);
var
Ls1, Ls2: TStringList;
begin
try
Ls1:=TStringList.Create;
Ls2:=TStringList.Create; IdFTP1.ChangeDir('\door\linedown\exe\'); //到ftp之door\linedown\exe目錄
IdFTP1.TransferType := ftASCII;
IdFTP1.List(Ls1); if Ls1.Count > 0 then
begin
IdFTP1.Get('\door\linedown\exe\lineexe.rar', 'd:\doorexe\line\lineexe.rar', false, true);
end; IdFTP1.ChangeDir('\door\linedown\mdb\');
IdFTP1.TransferType := ftASCII;
IdFTP1.List(Ls2); if Ls2.Count > 0 then
begin
IdFTP1.Get('\door\linedown\mdb\lineedit.rar', 'd:\doorexe\line\lineedit.rar', false, true);
end;
Finally
idftp1.Disconnect;
Ls1.Free;
Ls2.Free;
end; end;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |