http://swepc.se/blog/how-to-read-ftp-files-delphi-10/
burdaki örneği uygulamaya çalışıyorum ama
Kod: Tümünü seç
idftp1.List('*.*', True);
eksik olan nedir acaba
saygılarımla
Kod: Tümünü seç
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
IdFTP;
type
TForm1 = class(TForm)
edtuser: TEdit;
edtpass: TEdit;
edthost: TEdit;
edtdir: TEdit;
idftp1: TIdFTP;
btndoit: TButton;
procedure btndoitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btndoitClick(Sender: TObject);
var
i: integer;
dir: string;
searchResult: TSearchRec;
begin
idftp1.Host := edthost.Text;
idftp1.Username := edtuser.Text;
idftp1.Password := edtpass.Text;
dir := ExtractFilePath(ParamStr(0)) + 'read_ftp\';
try // find all files in read_ftp folder and delete all
begin
FindFirst(dir + '\*.*', faAnyFile + faReadOnly, searchResult);
DeleteFile(dir + '\' + searchResult.Name);
while FindNext(searchResult) = 0 do
begin
DeleteFile(dir + '\' + searchResult.Name);
end;
FindClose(searchResult);
rmdir(dir);
end;
except
// delphi is my power?
end;
if not(DirectoryExists(dir)) then // if folder not found, create it :)
begin
CreateDir(dir);
end;
ChDir(dir);
try // connect and download files from FTP
begin
idftp1.Connect;
idftp1.ChangeDir(edtdir.Text);
idftp1.List('*.*', True);
for i := 0 to idftp1.DirectoryListing.Count - 1 do
begin
idftp1.Get(idftp1.DirectoryListing.Items[i].FileName,
idftp1.DirectoryListing.Items[i].FileName, False, False);
end;
idftp1.Disconnect;
idftp1.Free;
end;
except
// delphi is my power?
end;
end;
end.