Dateien auf FTP-Server schreiben

[Bummi]

geht auch ohne INDY per WinInet

Anhang mit Beispiel

[bekas]

Danke an euch.
@WM_CLOSE: wie installiere ich die INDY-Komponenten?

[bekas]

@Bummi: Was muss ich noch alles für mich anpassen? Doch eigentlich nur Servername, Benutzername, Passwort, Localfile und Remotefile, oder???

Und was ist myagent?

[Bummi]

So sollte es sein ...

[bekas]

Ich bekomme, wenn ich auf den Button klicke, die Meldung 0.

Was hat das zu bedeuten?

Auf meinem Server ist die Datei nicht angekommen.

[Bummi]

versuchs mal damit, die Fehlercodes mit Beschreibung durch den Konstantennamen findest Du in der WinInet

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);
  if Assigned(hopen) then
      begin
        hconnect := InternetConnect(hopen, pchar(server), port, pchar(username), pchar(password), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
        if Assigned(hconnect) then
          begin
            Result := FtpPutFile(hconnect, pchar(localfile), pchar(remotefile), FTP_TRANSFER_TYPE_UNKNOWN, 0);
            InternetCloseHandle(hconnect);
          end
        else
          begin
            Showmessage(IntToStr(GetLastError));
            Result := False;
          end;
      end
    else
      begin
            Showmessage(IntToStr(GetLastError));
            Result := false;
      end;
end;

[Bummi]

Ich habe den Anhang nochmals komplett überarbeitet, Logik ist jetzt 0=kein Fehler alles andere Fehlercodes.

[DeddyH]

Jaja, ich wieder, aber...

Delphi-Quellcode:

if Assigned(hopen) then
  try
    hconnect := InternetConnect(...);
    if Assigned(hconnect) then
      try
        ...
      finally
        InternetCloseHandle(hconnect);
      end;
  finally
    InternetCloseHandle(hopen);
  end;

So werden alle Handles auch garantiert sauber wieder geschlossen, ohne dass eins vergessen wird.

[himitsu]

Zitat von bekas:

Ich bekomme, wenn ich auf den Button klicke, die Meldung 0.

Was hat das zu bedeuten?

Du siehst doch bestimmt, wo diese Zahl her kommt?
> das Result aus PutFile

Also siehe FtpPutFile und dort unter "Return Value"
> 0=False ... also "nicht erfolgreich"

@Code:
Fehlerbehandlung: 4
Fehlerauswertung: 6

Und warum vergessen alle das InternetOpen wieder zu schließen?


[edit]
Hatte etwas gebraucht zum Antworten ... und ja, da war eine RedBox, aber is mir jetzt och egal.