Einzelnen Beitrag anzeigen

JohannesK

Registriert seit: 17. Jul 2003
Ort: Abtwil
118 Beiträge
 
Delphi 2010 Professional
 
#3

AW: Problem mit LoadString bei 64 bit

  Alt 26. Jul 2011, 13:27
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.
mit freundlichem Gruss

So einfach wie möglich. Aber nicht einfacher.
  Mit Zitat antworten Zitat