Datei per FTP hochladen

[DeddyH]

Und lass das Free weg, sonst knallt es ganz gehörig beim nächsten Klick auf den Button oder beim Programmende.

[zod1ac]

Hm, da erscheint wieder dieser Fehler:

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

Ich hab alles nochmal von vorne aufgesetzt, aber leider kein Erfolg. Ich habe lediglich 2 EditFelder hinzugefügt und ein TString eingebaut. Also hier nochmal mein neuer Quelltext, beide Programme funktionierten unabhängig voneinander zwar, aber wenn man sie zusammen benutzt, leider nicht:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    ftp: TidFTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var sl:TStrings;
begin
  sl:=TStringList.Create;
  sl.Add(Edit1.text);
  sl.Add(Edit2.text);
  sl.SaveToFile('C:\text.txt');
  sl.Free;

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

   end;
 end;
end;


end.

[DeddyH]

Häng doch bitte mal die *.pas und die *.dfm an.

[zod1ac]

http://www.fileuploadx.de/251631

Hier ist mein kompletter Ordner mit dem Projekt darin.

Ich hoffe ihr könnt mir helfen, ich verzweifle langsam^^

[Sir Rufo]

Zitat:

Zitat von zod1ac

http://www.fileuploadx.de/251631

Hier ist mein kompletter Ordner mit dem Projekt darin.

Ich hoffe ihr könnt mir helfen, ich verzweifle langsam^^

Warum hängst du die Datei nicht an den Thread dran????

Wenn du den Namen der Komponente im Quelltext änderst, dann darfst du dich auch nicht wundern!

Du hast IdFtp1 umbenannt in ftp ...

Mach das über den Objekt-Inspektor ... dann kriegen auch alle mit, dass der Name geändert werden soll

[DeddyH]

In der *.dfm heißt die Komponente IdFTP1 und in der *.pas ftp. Wenn Du Komponenten umbenennst, dann mach das immer über den Objektinspektor. Übrigens: Du kannst auch direkt hier in der DP Dateien an Deinen Beitrag anhängen.

[zod1ac]

Es funktioniert top, vielen vielen Dank. Ihr habt mir echt geholfen, vor allem du DeddyH dir einen ganz großen Dank, es läuft einwandfrei. Merci ;)

lg

[zod1ac]

Hey, ich bins wieder :pale:

Wie gesagt, funktioniert es bei mir einwandfrei. Doch ich glaube das bezieht sich nur auf Local oder?
Ich habs meinem Freund geschickt, er sollte was in die Edit Felder eintippen, doch anschließend kam:

"cannot create file "C:\test.txt". Zugriff verweigert."

Ich glaube das Programm hat keine Rechte eine Textdatei auf einem anderen System zu erstellen, oder sehe ich das falsch? Doch wie kann man dieses Problem umgehen? Gibt es da eine andere Alternative?


mfg

[Sir Rufo]

Zitat:

Zitat von zod1ac

"cannot create file "C:\test.txt". Zugriff verweigert."

Eine Datei direkt im Pfad "C:\" zu erstellen ist ja auch extrem eklig.

Woher weißt du ob es den Pfad "C:\" auf dem Zielsystem gibt? (Ich bin nicht gezwungen mein System auf C: zu installieren!)
Woher weißt du ob du in dem Pfad "C:\" Schreibrechte hast?

Es gibt dafür eine "Styleguide" von Microsoft "Where to put the fu**ing data-files"

Schaue nach Special Folders Special Folders Delphi Special Folders

[zod1ac]

Ja genau, das hab ich mir auch gedacht, wie kann ich herausfinden, WO genau ich denn Schreibrechte habe und wo nicht?

Also dieser Befehl schafft Abhilfe?


Edit: Ich hab grad einiges über Special Folders gelesen und das scheint ja eine richtig komplizierte Sache zu werden. Gibts denn nichts anderes? Also gibts keinen Platz auf dem es im Normalfall Schreibrecht gibt?

lg