1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

procedure TFTP_Uploader.FTPUpload(const FTPDir, LocaleDir: string; Button: TBitBtn);
var
  ZeileNr, I, IndexOfsrcList: Integer;
  FTPList: TStringList;
begin
  srcList := TStringList.Create;
  FTPList := TStringList.Create;
  try
    try
      idFTP1.Host     := Host;
      idFTP1.Username := Username;
      idFTP1.Password := Password;
      idFTP1.Connect;
      idFTP1.ChangeDir(FTPDir);
      idFTP1.List(FTPList, '', false);
      FindFiles(LocaleDir, '*', lbSource.Items, False);
      srcList.Assign(lbSource.Items);

      try
        // Dateilisten vergleichen
        for I := 0 to Pred(FTPList.Count) do
        begin
          IndexOfsrcList := srcList.IndexOf(FTPList[I]);
          if IndexOfsrcList <> -1 then
            srcList.Delete(IndexOfsrcList);
        end;
      except
        on E: Exception do Application.MessageBox(PChar(E.Message), 'Dateifehler', MB_OK);
      end;

      for ZeileNr := 0 to srcList.Count - 1 do
        idFTP1.Put(LocaleDir + '\' + srcList[ZeileNr]);

      idFTP1.Disconnect;

      Button.Font.Color := clgreen;
    except
      on E: Exception do Application.MessageBox(PChar(E.Message), 'Verbindungsfehler!', MB_OK);
    end;
  finally
    srcList.Free;
    FTPList.Free;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

for M := 0 to IdFTP1.DirectoryListing.Count - 1 do
      begin
        Date := IdFTP1.DirectoryListing[M].ModifiedDate;
        if Date < now then
          begin
            lbSource.Items.Add(idFTP1.DirectoryListing[M].FileName);
            for ZeileNr := 0 to srcList.Count - 1 do
            idFTP1.Put(LocaleDir + '\' + srcList[ZeileNr]);
          end;
      end;