德爾福FTP上傳訪問衝突

Question

我想在我的網站空間上傳文件的.txt，但隨後的問題開始，我試過的代碼是這樣的：

我沒有得到任何錯誤，但是當我啓動程序，我按一下按鈕，我得到一個錯誤：

後

立即另：

並且按鈕消失。

爲什麼？謝謝！

Answer 1

您必須在訪問之前實例化TIdFTP對象局部變量FTP。所以嘗試使用這個：

procedure TForm1.Button1Click(Sender: TObject); 
var 
    FTP: TIdFTP; 
begin 
    FTP := TIdFTP.Create(nil); 
    try 
    FTP.Host := 'serioussamhd.altervista.org'; 
    FTP.Username := 'serioussamhd'; 
    FTP.Password := 'password'; 
    FTP.Port := 21; 
    FTP.Connect; 
    FTP.Put('C:\Users\user\Desktop\text.txt'); 
    FTP.Quit; 
    finally 
    FTP.Free; 
    end; 
end; 

Answer 2

您必須先創建tidftp的實例。

var 
FTP:tidftp; 
begin 
FTP:=Tidftp.Create(nil); //create the instance 
try 
    FTP.Host:='siteweb.altervista.org'; 
    FTP.Username:='siteweb'; 
    FTP.Password:='password'; 
    FTP.Port:=25; 
    FTP.Connect; 
    FTP.Put('C:\Users\user\Desktop\text.txt'); 
    FTP.Quit; 
finally 
    FTP.Free; 
end; 
end;