Probleme mit API-Funktiosaufruf

[Luckie]

Hi.
ich programmiere gerade einen einfachen FTP-Client ohne VCL :mrgreen:
Nicht, dass ich ihn ersthaft nutzen will, es ist eigentlich nur eine Studie.

Nun habe ich aber mit folgender API-Funktion Probleme:

Code:

FTPGetCurrentDirectory()

Aus dem PSDK:

Zitat:

Retrieves the current directory for the specified FTP session.

Syntax

Code:

BOOL FtpGetCurrentDirectory(          HINTERNET hConnect,
    LPTSTR lpszCurrentDirectory,
    LPDWORD lpdwCurrentDirectory
);

Parameters

hConnect
[in] Valid handle to an FTP session.

lpszCurrentDirectory
[out] Pointer to a buffer that receives the current directory string, which specifies the absolute path to the current directory. The string is null-terminated.

lpdwCurrentDirectory
[in, out] Pointer to a variable that specifies the length, in characters, of the buffer for the current directory string. The buffer length must include room for a terminating NULL character. Using a length of MAX_PATH is sufficient for all paths. When the function returns, the variable receives the number of characters copied into the buffer.

Aufrufen tue ich sie wie folgt:

Code:

var
  szCurDir: array[0..255] of Char;
  lenDir: DWORD;
begin
  ...
  FTPGetCurrentDirectory(hFTPSession, szCurDir, lenDir);

Nur ist bei mir szCurDir immer leer und lenDir immer 0.

Wie rufe ich die Funktion also richtig auf? Denn irgendwas mache ich da falsch.

[sakura]

Hi Luckie,

wenn die Funktion so wie die anderen Windows API Funktionen funktioniert, dann gibt es zwei Aufrufkombinationen.

Übergebe nil für den Buffer, um die benötigte Größe in lenDir zurückzuerhalten.

Code:

FTPGetCurrentDirectory(hFTPSession, nil, lenDir);

... Platz in szCurDir mit Hilfe von GetMem reservieren ...

und Funktion erneut aufrufen. In der Variable lenDir muss der Wert enthalten sein, der angibt, wieviel Speicher Du in szCurDir zur Verfügung gestellt hast.

Code:

FTPGetCurrentDirectory(hFTPSession, szCurDir, lenDir);

Ich hoffe, das hilft weiter...

P.S. In Deinem Fall geht auch

Code:

lenDir := SizeOf(szCurDir);
FTPGetCurrentDirectory(hFTPSession, szCurDir, lenDir);

[Christian Seehase]

Moin Luckie,

hast Du auch daran gedacht Dir mit InternetOpen gefolgt von InternetConnect ein Handle zu besorgen?

[toms]

Hi,

Kannst ja mal meinen VCL-Code als Vorlage nehmen zum Schauen, wie
es ungefähr funktioniert. Wichtig ist, dass du jeweils die Handles mit
InternetCloseHandle() schliesst, falls eine Funktion nicht erfolgreich ausgeführt wird.

tom

Code:

uses
  WinInet, ComCtrls;

function FtpDownloadFile(strHost, strUser, strPwd: string;
  Port: Integer; ftpDir, ftpFile, TargetFile: string; ProgressBar: TProgressBar): Boolean;

  function FmtFileSize(Size: Integer): string;
  begin
    if Size >= $F4240 then
      Result := Format('%.2f', [Size / $F4240]) + ' Mb'
    else
    if Size < 1000 then
      Result := IntToStr(Size) + ' bytes'
    else
      Result := Format('%.2f', [Size / 1000]) + ' Kb';
  end;

const
  READ_BUFFERSIZE = 4096;  // or 256, 512, ...
var
  hNet, hFTP, hFile: HINTERNET;
  buffer: array[0..READ_BUFFERSIZE - 1] of Char;
  bufsize, dwBytesRead, fileSize: DWORD;
  sRec: TWin32FindData;
  strStatus: string;
  LocalFile: file;
  bSuccess: Boolean;
begin
  Result := False;

  { Open an internet session }
  hNet := InternetOpen('Program_Name', // Agent
                        INTERNET_OPEN_TYPE_PRECONFIG, // AccessType
                        nil,  // ProxyName
                        nil, // ProxyBypass
                        0); // or INTERNET_FLAG_ASYNC / INTERNET_FLAG_OFFLINE

  {
    Agent contains the name of the application or
    entity calling the Internet functions
  }


  { See if connection handle is valid }
  if hNet = nil then
  begin
    ShowMessage('Unable to get access to WinInet.Dll');
    Exit;
  end;

  { Connect to the FTP Server }
  hFTP := InternetConnect(hNet, // Handle from InternetOpen
                          PChar(strHost), // FTP server
                          port, // (INTERNET_DEFAULT_FTP_PORT),
                          PChar(StrUser), // username
                          PChar(strPwd),  // password
                          INTERNET_SERVICE_FTP, // FTP, HTTP, or Gopher?
                          0, // flag: 0 or INTERNET_FLAG_PASSIVE
                          0);// User defined number for callback

  if hFTP = nil then
  begin
    InternetCloseHandle(hNet);
    ShowMessage(Format('Host "%s" is not available',[strHost]));
    Exit;
  end;

  { Change directory }
  bSuccess := FtpSetCurrentDirectory(hFTP, PChar(ftpDir));

  if not bSuccess then
  begin
    InternetCloseHandle(hFTP);
    InternetCloseHandle(hNet);
    ShowMessage(Format('Cannot set directory to %s.',[ftpDir]));
    Exit;
  end;

  { Read size of file }
  if FtpFindFirstFile(hFTP, PChar(ftpFile), sRec, 0, 0) <> nil then
  begin
    fileSize := sRec.nFileSizeLow;
    // fileLastWritetime := sRec.lastWriteTime
  end else
  begin
    InternetCloseHandle(hFTP);
    InternetCloseHandle(hNet);
    ShowMessage(Format('Cannot find file ',[ftpFile]));
    Exit;
  end;

  { Open the file }
  hFile := FtpOpenFile(hFTP, // Handle to the ftp session
                       PChar(ftpFile), // filename
                       GENERIC_READ, // dwAccess
                       FTP_TRANSFER_TYPE_BINARY, // dwFlags
                       0); // This is the context used for callbacks.

  if hFile = nil then
  begin
    InternetCloseHandle(hFTP);
    InternetCloseHandle(hNet);
    Exit;
  end;

  { Create a new local file }
  AssignFile(LocalFile, TargetFile);
  {$i-}
  Rewrite(LocalFile, 1);
  {$i+}

  if IOResult <> 0 then
  begin
    InternetCloseHandle(hFile);
    InternetCloseHandle(hFTP);
    InternetCloseHandle(hNet);
    Exit;
  end;

  dwBytesRead := 0;
  bufsize := READ_BUFFERSIZE;

  while (bufsize > 0) do
  begin
    Application.ProcessMessages;

    if not InternetReadFile(hFile,
                            @buffer, // address of a buffer that receives the data
                            READ_BUFFERSIZE, // number of bytes to read from the file
                            bufsize) then Break; // receives the actual number of bytes read

    if (bufsize > 0) and (bufsize <= READ_BUFFERSIZE) then
      BlockWrite(LocalFile, buffer, bufsize);
    dwBytesRead := dwBytesRead + bufsize;

    { Show Progress }
    ProgressBar.Position := Round(dwBytesRead * 100 / fileSize);
    Form1.Label1.Caption := Format('%s of %s / %d %%',[FmtFileSize(dwBytesRead),FmtFileSize(fileSize) ,ProgressBar.Position]);
  end;

  CloseFile(LocalFile);

  InternetCloseHandle(hFile);
  InternetCloseHandle(hFTP);
  InternetCloseHandle(hNet);
  Result := True;
end;

[Luckie]

@Christian:
Ja das habe ich. Es ist mir ja auch schon gelungen eine Datei hochzuladen. Nur wollte ich das Verzeichnis überprüpfen.

Die Fehlermeldung lautet übrigens (habe ich gerade herausgefunden):

Zitat:

Überlappender E/A-Vorgang wird verarbeitet.

Wenn ich das ganmze auf einen ButtonClick lege bekomme ich folgende Meldung:

Zitat:

Falscher Parameter