Einzelnen Beitrag anzeigen

Benutzerbild von Garfield
Garfield

Registriert seit: 9. Jul 2004
Ort: Aken (Anhalt-Bitterfeld)
1.334 Beiträge
 
Delphi XE5 Professional
 
#1

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

  Alt 26. Mär 2005, 09:36
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?
Angehängte Dateien
Dateityp: rar ordner__ffnen_743.rar (3,5 KB, 5x aufgerufen)
Gruss Garfield
Ubuntu 22.04: Laz2.2.2/FPC3.2.2 - VirtBox6.1+W10: D7PE, DXE5Prof
  Mit Zitat antworten Zitat