Okay... Irgendwie bekomm ich es nicht hin, eine Datei in einen Ordner auf meinem FTP-Server upzuloaden!

So sieht die Funktion aus

zusammenfalten · markieren

Delphi-Quellcode:

function UploadFolder(lpszServer, lpszUsername, lpszPassword, lpszLocalDirectory, lpszRemoteDirectory: String; wPort: Word = 21): Boolean;
var
  hOpen, hConnect: HINTERNET;
begin
  Result := False;
  hOpen := InternetOpen('MyAgent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  if (hOpen <> nil) then
  begin
    hConnect := InternetConnect(hOpen, PChar(lpszServer), wPort, PChar(lpszUsername), PChar(lpszPassword),
                                INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);

   Result := FtpPutFile(hconnect, pchar(lpszLocalDirectory),
    pchar('/html/small/test.jpg'), //<-- test.jpg soll in den Ordner small, klappt aber nicht!
      FTP_TRANSFER_TYPE_UNKNOWN, 0);
   InternetCloseHandle(hConnect);
   InternetCloseHandle(hOpen);
  end
end;

Warum? Ahhh!

Zitat von wurst_hunter:

Warum? Ahhh!

Weil das

markieren

Delphi-Quellcode:

Result := FtpPutFile(hconnect, pchar(lpszLocalDirectory),
    pchar('/html/small/test.jpg'), //&lt;-- test.jpg soll in den Ordner small, klappt aber nicht!
      FTP_TRANSFER_TYPE_UNKNOWN, 0);

so nicht funktioniert. Du musst erst mit

FtpSetCurrentDirectory(hConnect, pchar('/html/small')); in das Verzeichnis wechseln.

Und dann lauten die Parameter für die Funktion FtpPutFile:

markieren

Delphi-Quellcode:

Result := FtpPutFile(hconnect, pchar(lpszLocalDirectory),
    pchar('test.jpg'), FTP_TRANSFER_TYPE_BINARY, 0);

Gruß,
Daniel