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:

  
procedure TForm1.Bilderhochladen1Click(Sender: TObject);
var filename : String;
S: String;
begin
inifile := TIniFile.Create(IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName)) + 'ftp.ini');
  clientverzeichnis := inifile.ReadString('ftp', 'clientverzeichnis', '');
  serververzeichnis := inifile.ReadString('ftp', 'serververzeichnis', '');

OpenPictureDialog1.Execute;

   filename := OpenPictureDialog1.FileName;
   S:= filename;


        host:=idftp1.Host;
    code := ping(host,hopcount,rtt,ipad);
    if code = 0 then begin // ping kam an
        end;

      begin
        InternetAutodial(internet_autodial_force_unattended, handle);
      end;

    begin

    inifile.Free;
    IdAntifreeze1.Process ;
    ProgressBar1.Position := 0;
    idftp1.Connect(True,-1);                         //Mit dem Server Verbinden
    idftp1.ChangeDir(serververzeichnis);             // Verzeichnis wechseln
    idftp1.put(clientverzeichnis+S, S, false);
    idftp1.Disconnect();                             //Verbindung trennen
    MessageDlg('Datei wurde hochgeladen',mtInformation,[mbOK],0);

    end;

     end;