FTP Upload Fehlersuche?

[MaToBe]

Hallo ihr da draußen,

kann mir bitte mal einer erklären und verbessern, was an diesem Code falsch ist ?

Delphi-Quellcode:

function putfile(server, username, password, localfile, remotefile: string; port: word = 21): boolean;
var
  hopen, hconnect: HINTERNET;
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 TMainForm.FormDestroy(Sender: TObject);
begin
    ini:=TIniFile.create('MHLog.ini');
    ini.writestring(DatetoStr(Date),TimeToStr(Now),Memo1.Text);
    ini.free;

    putfile('ftp://[e-mail]', 'MaToBe', '***', 'MHLog.ini', '/MHLog.ini');

end;

[Die Muhkuh]

Mal abgesehen davon, dass Du nicht sagst, was das Problem ist:

Du solltest auf jeden Fall einen absoluten Pfad beim Erstellen der Ini-Datei angeben. Beim Runterladen natürlich auch.

[MaToBe]

oh sorry.

das problem ist ganz einfach das es keine fehlermeldung oder ähnliches gibt.

allerdings finde ich die Datei auch nicht auf meinem Webspace, wo sie eigentlich sein sollte =(

[Die Muhkuh]

Gibt es einen Grund, warum Du direkt über die API gehst und nicht die Indys verwendest?

Ansonsten lass Dir mal den letzten Fehler anzeigen (GetLastError)

[MaToBe]

um ehrlich zu sein bin ich ein ziemlicher Anfänger und hab den Code irgendwo hier gefunden und kopiert.

Dachte halt ich kann für die Schule mich schonma bisschen schlau machen und ausprobieren weil wir uns demnächst damit beschäftigen werden.

Das mit Gelasterroer versteh ich leider auch nicht =(

aber wie gesagt es gibt auch kein error, ich glaube eher er stellt die Verbindung nicht so richtig her ...

[smallsmoker]

das
und das ...

:D

€2: hehe http://www.instanticons.com/buddyico...y-Gonzales.gif

[Die Muhkuh]

Du hast da einen Suchlink um den normalen Link platziert ;)

[edit] Tatapa, war er wieder schneller [/edit]

[MaToBe]

sorry jetzt check ichs garnich mehr, was den für einen "Suchlink" ?

bei Google hab ich Indy gefunden, aber das is ja noch komplizierter ...

[Die Muhkuh]

Das mit Suchlink auf war auf den Smallsmoker bezogen.

Zu GetLastError:

Delphi-Quellcode:

if (not (putfile('ftp://[e-mail]', 'MaToBe', '***', 'MHLog.ini', '/MHLog.ini'); )) then
  ShowMessage(SysErrorMessage(GetLastError));

So müsste es gehen.

[MaToBe]

Als Error steht dann da

"Das Handel ist ungültig" ??

[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!