Datei per FTP hochladen

[s.h.a.r.k]

Was soll mit dem Quelltext sein? Kommt ein Fehler? Ist das die fertige Lösung, die funktioniert?

[zod1ac]

Zitat von DeddyH:

ftp wird ja nirgends erzeugt, dafür aber freigegeben.

Inwiefern erzeugt? Es soll ja eine Verbindung zum FTP hergestellt werden, also was genau muss ich noch hinzufügen?

habs grad mit TidFTP.Create probiert nach Begin klappt aber auch nicht, kommt die gleiche Fehlermeldung.

[DeddyH]

Jetzt geht mir ein Licht auf: Du hast eine IdFTP-Komponente aufs Formular gezogen und dann die Deklaration nach private verschoben, richtig? Mach das mal wieder rückgängig.

[zod1ac]

Soll ich sie ganz rausnehmen oder wohin soll ich sie verschieben?

[DeddyH]

Also hast Du die Komponente auf dem Formular? Dann so:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    ftp: TidFtp; //hierhin
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }      
  public
    { Public declarations }
  end;

[zod1ac]

So oke an sich ist das Problem jetzt zwar behoben, doch nun kommt eine Meldung:

"Field.Form1.ftp does not have a corresponding component.Remove the declaration?"

Heißt es, dass der FTP nicht geht?

[DeddyH]

Wenn das eben gepostete der gesamte Quelltext war scheint es mir das Einfachste, Du fängst von vorn an: neues Formular, da eine TIdFTP und Deinen Button drauf, Eigenschaften im OI einstellen und im ButtonClick das Put aufrufen.

[zod1ac]

Ja wahrscheinlich schon^^

Aber hier nochmal mein kompletter Quelltext, vllt habe ich ja auch die falsche FTP Adresse eingegeben, was ich aber nicht glaube naja, solange ich von vorne anfange hier nochma das Ganze:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdFtp, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdExplicitTLSClientServerBase;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ftp: TidFTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }

  public
    { Public declarations }

  end;

  var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

with ftp do
begin
  try
    Host := ' ftp://kidgudi.ki.funpic.de/';
    Username := 'kidgudi';
    Password := '*****';
    Passive := true;
    Connect;
    Put('C:\text.txt', 'text.txt', false);
    Disconnect;
  finally
    ftp.Free;
  end;
end;
end;

end.

[Klaus01]

Mahlzeit,

den Host bitte ohne "FTP://"

Das "FTP://" benötigt nur ein Webbrowser damit er weiß das er nun mit einem
FTP Server spricht.

Grüße
Klaus

[zod1ac]

Es funktioniert, vielen Dank. Du hast mir wirklich sehr geholfen, danke nochmals!!!