Problem mit LoadString bei 64 bit

[Uwe Raabe]

Zitat von JohannesK:

Ich hab' jetzt den Code mal so geändert:

Delphi-Quellcode:

class function TResourceMeldung.GetOffset(lg: integer): integer;
var
  buffer : PWidechar;
  ls : integer;
begin
  Result := 0;
  ls := LoadStringW(hInstance, lg, @buffer, length(buffer));
  if ls <> 0 then
  begin
    Result := strtoint(buffer^);
  end;
end;

Bei WIN64 kommt jetzt ein Fragezeichen statt vorher dreien.
In WIN 32 ist das Ergebnis 1000200030004000, erwartet und in der Ursprungsversion geliefert wird 1000. Setze ich einen anderen Startpunkt, wird das Ergebnis entsprechend verkürzt, z.B. auf 30004000.

Das sollte eigentlich gar nicht gut gehen!

1. buffer ist nicht initialisiert worden und somit zeigt der Pointer irgendwohin.
2. sollte beim Aufruf wohl besser das @-Zeichen weggelassen werden, sonst hat man einen Pointer auf den Pointer