Dateien auf FTP-Server schreiben

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