Dateien auf FTP-Server schreiben

[bekas]

Hallo liebes Forum,

ich möchte mit meinem Delphi-Programm Dateien auf einen mit xampp erstellten FTP-Server schreiben.

Vorweg: Ich bin noch Anfänger beim Umgang mit Delphi und habe Delphi 7 Personal.

Ich habe gehört, dafür bräuchte ich irgendwas mit INDY, konnte damit aber nichts anfangen.

Ich brauche dringend Hilfe!

Danke schonmal im Voraus für alle Antworten.
bekas

[WM_CLOSE]

http://www.delphipraxis.net/71084-ft...ls-thread.html
Müsste man eig. übernemen können.

Du brauchst die INDY-Komponenten gidf

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