FTP Upload Fehlersuche?

[Luckie]

Liefern denn InternetOpen und InternetConnect gültige Handles zurück?

[MaToBe]

sorry das ich euch mit meinem stümperhaften Verhalten vielleicht nerve, aber mir wäre das sehr wichtig, dass ich es hinbekomme das es funktionier.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinInet;

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

var
  Form1: TForm1;
  hopen, hconnect: HINTERNET;

implementation

{$R *.dfm}

function putfile(server, username, password, localfile, remotefile: string; port: word = 21): boolean;
begin
  hopen := InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  hconnect := InternetConnect(hopen, pchar(server), port, pchar(username), pchar(password), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
  Result := FtpPutFile(hconnect, pchar(localfile), pchar(remotefile), FTP_TRANSFER_TYPE_UNKNOWN, 0);
  InternetCloseHandle(hconnect);
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  if (not (putfile('ftp://[e-mail]', 'MaToBe', 'Pfadfinder2002', 'MHLog.ini', '/MHLog.ini') )) then
  ShowMessage(SysErrorMessage(GetLastError));
end;

end.

Kann das vielleciht jemand mal teste, warum das nicht klappt? Stimmen die Verbindungsdaten nicht? Also MaToBe und Pfadfinder2002 stimmen, aber vielleicht muss die FTP-Addresse anders eingegeben werden?

Ich hoffe mir kann nochmal einer helfen oder vielleicht sogar den Code so verbessern, dass er funktioniert

MFG MaToBe

PS: Wegen den Daten, auf dem FTP ist nichts wichtiges zu finden und das Passwort kann ich ja auch später wieder ändern ;)

[MaToBe]

mmh, ich habe den Serverhost leider falsch angegeben, mein Fehler jetzt klappt es.

Kann mir einer vielleicht noch sagen wie ich z.B. alle Dateien des Types .ini vom Server herunterlade (alle im gleichen Verzeichnis), und wie kann ich einen kompletten Ordner herunterladen?

MFG

[Die Muhkuh]

Du musst Dir erst eine Dateiliste vom Server geben lassen und dann nach und nach jede Datei einzeln runterladen. Mit dem Ordner ist es genau das gleiche: In den Ordner wechseln, Dateiliste holen und eins nach dem anderen runterladen

[MaToBe]

ok und die Dateiliste realisiert man auch per Ini oder Text Datei oder gibt es da ein Komponente bei den Indys ect. ?

[Hobby-Programmierer]

Zitat:

Zitat von MaToBe

ok und die Dateiliste realisiert man auch per Ini oder Text Datei oder gibt es da ein Komponente bei den Indys ect. ?

Vielleicht solltest du dazu erstmal Eigeninitiative entwickeln und in der Bordsuche aktiv werden. Und dann bitte einen neuen Thread, dieser beantwortet den Upload auf einen Server!