Probleme mit SHGetKnownFolderPath

[DeddyH]

Das Gedöns mit der Formklasse erscheint mir etwas merkwürdig. Versuchst Du da Klassen/Objekte zwischen Anwendung und DLL auszutauschen?

[Andidreas]

Nein...
Eigentlich werden nur die Connections zu den DBs übergeben?!
Oder welche Stelle meinst Du?

[DeddyH]

Das hier meine ich:

Zitat:

Delphi-Quellcode:

//Load DLL Form
  lMyFormClass := GetProcAddress(hDLL, 'fnForm');
  If @lMyFormClass <> Nil Then
  Begin
    frmLoadedForm   := lMyFormClass.Create(nil);
    frmLoadedForm.Position := poScreenCenter;
    frmLoadedForm.ShowModal;
  End Else
  Begin
    fnDisplayMyActionBox('ERR', 'System Error', 'prOfflineModuleLoad_Single', 'Could not load Module:', sDLLModulePath, EmptyStr, True);
  End;

[Andidreas]

Das ist ja nur dazu da um die Form anzuzeigen...
Wir haben hier zwei Varianten... entweder wird die Form als eigenständiges Fenster angezeigt oder in einem Bereich der Hauptform...


Was ich kurios finde...
Die Funktion die ich oben beschrieben habe, habe ich auch für Windows XP:

Delphi-Quellcode:

//******************************************************************************
// fnGetShellFolder --> Get Constant Special Item ID Path from Windows         *
//                                                                             *
//                      Only for WIN XP                                        *
//                      WIN7 has to use fnGetKnownFolderPath in this Unit      *
//                                                                             *
// Parameter --> iCSIDL (Constant Special Item ID)                             *
// Return    --> Boolean True/False                                            *
//******************************************************************************

function fnGetShellFolder(iCSIDL: integer): string;

var
pIDL          : PItemIdList;
sFolderPath   : string;
iSystemFolder : Integer;
Malloc        : IMalloc;
  
begin

  Malloc := nil;
  sFolderPath := '';
  SHGetMalloc(Malloc);

  If Malloc = nil Then
  Begin
    Result := sFolderPath;
    Exit;
  End;

  Try
    iSystemFolder := iCSIDL;
    If SUCCEEDED(SHGetSpecialFolderLocation(0, iSystemFolder, pIDL)) then
    Begin
      SetLength(sFolderPath, max_path);
      If SHGetPathFromIDList(pidl, PChar(sFolderPath)) Then
      Begin
        SetLength(sFolderPath, length(PChar(sFolderPath)));
      End;
    End;
    Result := sFolderPath;
  Finally
    Malloc.Free(pIDL);
  End;

end;

Ich hab die gleiche DLL jetzt unter Windows XP getestet... hier kommt kein Fehler! Also kein Runtime Error...

Liegt der Fehler dann nicht eher in der Funktion für Windows 7, das diese einen Speicherfehler verursacht?

[TiGü]

Zitat von Andidreas:

Liegt der Fehler dann nicht eher in der Funktion für Windows 7, das diese einen Speicherfehler verursacht?

Weiß jetzt nicht, ob es dein Problem beseitigt, aber es wäre schon gut CoTaskMemFree(sPath) in deiner Funktion zu ergänzen (siehe MSDN).

[Andidreas]

In der DLL habe ich jetzt mal meine Funktion die unter Windows 7 die Pfade ermitteln soll, gegen den folgenden Code ausgetauscht:

Delphi-Quellcode:

  SHGetKnownFolderPath(FOLDERID_ProgramData, 0, 0, sPath);
  ShowMessage(sPath);
  CoTaskMemFree(sPath);

Mein Runtime Error kommt immer noch...
Kann das evtl. auch an der ShlObj Unit liegen?

Als letzte Idee würde mir noch einfallen das ganze gegen die Funktion GetEnvironmentVariable auszutauschen... Was ich nicht unbedingt möchte...

@DeddyH
Ich hoffe ich konnte in meinem letzten Beitrag deine Fragen nach dem Austausch von Objekten und Klassen zwischen Forms und DLLs beantworten?!

[Sir Rufo]

Also hiermit habe ich keine Probleme

Delphi-Quellcode:

library PathLib;

uses
  Winapi.ActiveX,
  Winapi.ShellAPI,
  Winapi.ShlObj,
  Winapi.Windows,
  System.SysUtils,
  System.Classes;

{$R *.res}

function GetKnownFolderPath( ACSIDL : TGUID ) : WideString;
  var
    LPath : PWideChar;
  begin
    if SHGetKnownFolderPath( ACSIDL, 0, 0, LPath ) = S_OK
    then
      Result := LPath
    else
      Result := '';
  end;

function GetSpecialFolder( AFolderID : Integer ) : WideString;
  var
    LPath : PWideChar;
  begin
    GetMem( LPath, MAX_PATH * SizeOf( WideChar ) );
    try
      if SHGetSpecialFolderPathW( 0, LPath, AFolderID, False )
      then
        Result := LPath
      else
        Result := '';
    finally
      FreeMem( LPath );
    end;
  end;

function DocumentRoot : WideString; stdcall;
  begin
    if CheckWin32Version( 9 )
    then
      Result := GetKnownFolderPath( StringToGUID( '{FDD39AD0-238F-46AF-ADB4-6C85480369C7}' ) )
    else
      Result := GetSpecialFolder( CSIDL_MYDOCUMENTS );
  end;

exports
  DocumentRoot;

begin

end.

Delphi-Quellcode:

unit View.Main;

interface

  uses
    Winapi.Windows,
    Winapi.Messages,
    System.SysUtils,
    System.Variants,
    System.Classes,
    Vcl.Graphics,
    Vcl.Controls,
    Vcl.Forms,
    Vcl.Dialogs,
    Vcl.StdCtrls;

  type
    TMainView = class( TForm )
      Button1 : TButton;
      procedure Button1Click( Sender : TObject );
    private
      { Private-Deklarationen }
    public
      { Public-Deklarationen }
    end;

  var
    MainView : TMainView;

implementation

{$R *.dfm}
  function DocumentRoot : WideString; stdcall; external 'PathLib.dll';

  procedure TMainView.Button1Click( Sender : TObject );
    begin
      Caption := DocumentRoot;
    end;

end.

[Andidreas]

@Sir Rufo...

Hab deinen Source in meiner DLL getestet, ich bekommen weiterhin den Runtime Error...

Liegt es evtl. wirklich an DeddyH's Vermutung?