Erklärung zu Code gesucht...

[Win32.API]

Versuchs mal so:

Delphi-Quellcode:

function GetWinDir(): PChar; stdcall;
var tmp : String;
begin
  SetLength(tmp, MAX_PATH);
  SetLength(tmp, GetWindowsDirectory(PChar(tmp), MAX_PATH));
  result := pchar(tmp);
end;

--win32

[TheMiller]

Das funktioniert! Nur warum muss ich eine Zwischenvariable einfügen? Danke, gell!

[Win32.API]

Weil intern der Speicher fuer dich von Delphi reserviert und freigegeben wird.

Man koennte das Ganze auch per Hand machen und mit getmem und freemem dem Speicher selber reservieren.

[TheMiller]

Okay!

Danke euch allen

[marabu]

Hallo du Schelm,

Zitat von DJ-SPM:

Nur warum muss ich eine Zwischenvariable einfügen?

du hast ab Beitrag #10 einfach kühn die Signatur deiner Funktion geändert!

Freundliche Grüße

[TheMiller]

*fg*

Joa, hatte aber damit nix zu tun. Hatte es an allen Stellen geändert. Die Änderungen kamen durch verschiedene Tests. Daher.

[ste_ett]

Einen PChar als Rückgabewert zu benutzen, kann böse ins Auge gehen.
Der Speicher für die vier Byte für den Pointer sind zwar reserviert, nicht aber der Speicherbereich, auf den der PChar in deinem Fall verweisst.
Bei einem String ist das kein Problem, aber bei PChar kann es zu Fehlern führen, da der Speicher sofort wieder überschrieben werden kann.

Entweder allokierst du in der Funktion Speicher, der hinterher wieder freigegeben wird, oder du übergibst einen PChar mit geung Speicher. MAX_PATH wird hier von MS empfohlen.

Delphi-Quellcode:

function GetWinDir(WinDirPath: PChar): UINT;
begin
  Result := GetWindowsDirectory(@WinDirPath[0], MAX_PATH);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: array[0..MAX_PATH-1] of char;
begin
  if (GetWinDir(@Dir[0]) >0) then
  begin
    ShowMessage(Dir);
  end
  else
  begin
    ShowMessage(SysErrorMessage(GetLastError));
  end;
end;

Durch den statischen Array fällt zusätzlich noch das manuelle Allokieren von Speicher weg, das macht der Compiler für uns.

[TheMiller]

Also, die Funktion funktioniert einwandtfrei, so wie ich sie habe. Auch der Speicher sollte doch durch SetLength erst maximiert, dann auch die größe des Strings "zugeschnitten" werden. Und einen PChar kann ich doch bedenkenlos aus der DLL exportieren, oder nicht?

Also hier klappt alles!

[ste_ett]

Zitat von DJ-SPM:

Und einen PChar kann ich doch bedenkenlos aus der DLL exportieren, oder nicht?

Also hier klappt alles!

Nein, das geht nicht.
S. meinen Post oben.

Es kann gut gehen, aber solche Stellen sidn Fehlerquellen, wo man sich z.B. bei Multi-Threading tot sucht.