Delphi-PRAXiS - Einzelnen Beitrag anzeigen - nonVCL-FTP-Client

**d3g**

Hi Luckie,

schöner Client

Ich habe dein Problem mit dem verzeichnis übrigens gelöst: lenDir ist bei dir IMMER 0, weil FtpGetCurrentDirectory immer nur so viele Zeichen kopiert, wie das letzte Flag angibt (und dann den Wert so äbändert, dass die wirklich kopierten Ziechen drinstehen). So musst du also lenDir nicht mit 0, sondern mit MAX_PATH initialisieren:

markieren

Code:

			procedure GetCurDir(handle: Cardinal);

var

  szBuffer: array[0..255] of Char;

  szDir: PChar;

  lenDir: DWORD;

begin

  lenDir := MAX_PATH;

  FTPGetCurrentDirectory(hFTPSession, nil, lenDir);

  GetMem(szDir, lenDir);

  FTPGetCurrentDirectory(hFTPSession, szDir, lenDir);

  lstrcpy(szBuffer, 'aktuelles Verzeichnis: ');

  lstrcat(szBuffer, szDir);

  SendMessage(GetDlgItem(handle, IDC_LSTMSG), LB_ADDSTRING, 0, Integer(@szBuffer));

  FreeMem(szDir);

end;

MfG,
d3g