Fehlermeldung: Inkomp. Typen: 'TFNBFFCallBack' und 'Pointer

[Garfield]

Aus dem Swiss Delphi Center habe ich die Routine:

Delphi-Quellcode:

function AdvSelectDirectory (const Caption   : string;
                             const Root      : WideString;
                             var StartDir    : string;
                             var Directory   : string;
                             EditBox         : Boolean = False;
                             ShowFiles       : Boolean = False;
                             AllowCreateDirs : Boolean = True): Boolean;
  {
    Callback-Funktion, die aufgerufen wird, wenn der Dialog initialisiert oder
    ein neues Verzeichnis selektiert wurde
  }
  function SelectDirCB      (Wnd: HWND;
                             uMsg: UINT;
                             lParam, lpData: lParam): Integer; stdcall;

  var
    PathName: array [0..MAX_PATH] of Char;
  begin
    case uMsg of
      BFFM_INITIALIZED: SendMessage(Wnd, BFFM_SETSELECTION, Ord(True), Integer(lpData));
      {
        binde den folgenden Kommentar in deinen Code ein, wenn du auf das Ereignis
        reagieren willst, das aufgerufen wird, wenn ein neues Verzeichnis selektiert wurde
      }
      BFFM_SELCHANGED:  SHGetPathFromIDList(PItemIDList(lParam), @PathName);
      {
        das Verzeichnis "PathName" wurde selektiert
      }
    end;
    Result := 0;
  end;

var
  WindowList: Pointer;
  BrowseInfo: TBrowseInfo;
  Buffer: PChar;
  RootItemIDList, ItemIDList: PItemIDList;
  ShellMalloc: IMalloc;
  IDesktopFolder: IShellFolder;
  Eaten, Flags: LongWord;

const
  {
    notwendig für einige der zusätzlichen Erweiterungen
  }
  BIF_USENEWUI = $0040;
  BIF_NOCREATEDIRS = $0200;

begin
  Result := False;
  if not DirectoryExists(Directory)
  then Directory := '';
  FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
  if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil)
  then begin
    Buffer := ShellMalloc.Alloc(MAX_PATH);
    try
      RootItemIDList := nil;
      if Root <> ''
      then begin
        SHGetDesktopFolder(IDesktopFolder);
        IDesktopFolder.ParseDisplayName(Application.Handle,
                                        nil,
                                        POleStr(Root),
                                        Eaten,
                                        RootItemIDList,
                                        Flags);
      end;
      OleInitialize(nil);
      with BrowseInfo
      do begin
        hwndOwner      := Application.Handle;
        pidlRoot       := RootItemIDList;
        pszDisplayName := Buffer;
        lpszTitle      := PChar(Caption);
        {
          legt fest, wie der Dialog erscheint:
        }
        ulFlags := $25
                or BIF_RETURNONLYFSDIRS
                or BIF_USENEWUI
                or BIF_EDITBOX * Ord(EditBox)
                or BIF_BROWSEINCLUDEFILES * Ord(ShowFiles)
                or BIF_NOCREATEDIRS * Ord(not AllowCreateDirs);
        lpfn    := @SelectDirCB;
        lParam := Integer(PChar(StartDir));
      end;
      WindowList := DisableTaskWindows(0);
      try
        ItemIDList := ShBrowseForFolder(BrowseInfo);
      finally
        EnableTaskWindows(WindowList);
      end;
      Result := ItemIDList <> nil;
      if Result
      then begin
        ShGetPathFromIDList(ItemIDList, Buffer);
        ShellMalloc.Free(ItemIDList);
        Directory := Buffer;
      end;
    finally
      ShellMalloc.Free(Buffer);
    end;
  end;
end;

In meinem Testprogramm funktioniert es mit Delphi 7 Personal auch. Wenn ich es jedoch in mein Programm einbaue, bekomme ich bei Zeile 85

        lpfn := @SelectDirCB; die Fehlermeldung: Inkompatible Typen: 'TFNBFFCallBack' und 'Pointer'. Nehme ich das @ heraus, lautet die Fehlermeldung: Lokale Prozedur/Funktion 'BrowserCallBack' wurde Procedurenvariable zugewiesen.

In den Uses der Unit stehen:

Windows, SysUtils, Forms, ShellAPI, Graphics, Controls, Dialogs, Classes, Registry, ShlObj, ActiveX;

Und eine Unit mit den Uses:

Windows, SysUtils, Forms, FileCtrl, Messages, Graphics, MMSystem, StdCtrls, ExtCtrls, Classes, Controls, Dialogs, Gauges, Grids, MPlayer, ComCtrls, Buttons;

und ein paar eigene Units.

Die Sache ist nun, wenn ich die Zeile auskommentiere, wird nicht der angegebene Startordner sondern Eigene Dateien aufgeschlagen. Hat jemand eine Idee, woran das liegen könnte oder kennt eine Alternative für diese Dialogbox?

[md_mse]

Warum nimmst du nicht einfach SelectDirectory aus FileCtrl?

Dürfte eingentlich das gleiche sein, nur ohne Fehler

[Garfield]

Das mache ich im Moment. Aus ästhetischen Gründen würde ich lieber die oben genannte Routine benutzen.

[Christian Seehase]

Moin Garfield,

hast Du es schon mal so probiert?

lpfn := TFNBFFCallBack(@SelectDirCB);

[Garfield]

Moin Chris,

nein, auf die Idee bin ich, da es im Beispiel funktioniert hatte, gar nicht gekommen.

Es funktioniert! Danke.