FTP, Datei in Ordner schreiben

[wurst_hunter]

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

So sieht die Funktion aus

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! :wall:

[Daniel G]

Zitat:

Zitat von wurst_hunter

Warum? Ahhh! :wall:

Weil das

Delphi-Quellcode:

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

so nicht funktioniert. Du musst erst mit

Delphi-Quellcode:

FtpSetCurrentDirectory(hConnect, pchar('/html/small'));

in das Verzeichnis wechseln.

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

Delphi-Quellcode:

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

Gruß,
Daniel