Problem mit LoadString bei 64 bit

[JohannesK]

Hallo,

ich habe ein Problem mit LoadString in 64-bit Windows.

Delphi-Quellcode:

class procedure TResourceMeldung.GetResMeldung(var ResMeldung: TStringlist; Offset : integer; lang: string);
var
  buffer : array[0..MaxBuffer] of char;
  ls : integer;
  idx, lng : integer;
  maxPos : integer;
begin

  if lowercase(lang) = 'de' then lng := 1;
  if lowercase(lang) = 'en' then lng := 2;
  if lowercase(lang) = 'fr' then lng := 3;
  if lowercase(lang) = 'sp' then lng := 4;

  ls := GetOffset(lng);
  maxPos := GetMaxPos(offset);

  if ls = 0 then exit;

  for idx := ls to ls+MaxPos do
  begin
    ResMeldung.Add(GetString(Offset + idx));
  end;
end;

class function TResourceMeldung.GetOffset(lg: integer): integer;
var
  buffer : array[0..MaxBuffer] of char;
  ls : integer;
begin
  Result := 0;
  ls := LoadString(hInstance, lg, buffer, sizeof(buffer));
  if ls <> 0 then
  begin
    Result := strtoint(buffer);
  end;
end;

Funktioniert in WIN32 ohne jedes Problem, als Wert für deutsch wird korrekt 1000 aus dem Ressourcenfile zurückgeliefert, SizeOfBuffer ist 4.
WIN64 liefert ???, sowohl Server 2008 wie Win7 Home, SizeOfBuffer ist 3.

Bin dankbar für jeden Hinweis, da beim suchen nicht wirklich fündig geworden.

Johannes

[himitsu]

PS: SizeOf(buffer) ist falsch, denn es müßte Length(buffer) heißen, da dieser Parameter die Anzahl der Zeichen und nicht der Bytes angibt.


Probier mal ein WideChar-Array und LoadStringW, eventuell gibt es dort Problemchen mit der Ansi-Variante?


Wobei aber SizeOf nur abhänig vom Compiler sein sollte und nicht vom Betriebssystem, da die Datenstuktur ganz alleine vom Compiler und dessen Einstellungen abhängig ist.

[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.

[JohannesK]

Weitere Variante die unter W32 funktioniert, aber unter W64 als Ergebnis in buffer nur ??? liefert.

Delphi-Quellcode:

class function TResourceMeldung.GetOffset(lg: integer): integer;
var
  buffer : array[0..1023] of Widechar;
  ls : integer;
begin
  Result := 0;
  ls := LoadStringW(hInstance, lg, @buffer, length(buffer));
  if ls <> 0 then
  begin
    showmessage(inttostr(length(buffer)));
    showmessage(buffer);
  end;
end;

Hat jemand eine Idee ?

[Bernhard Geyer]

Wie bekommst du hInstance bzw. welche Datei sollt hInstance repräsentieren?

[JohannesK]

Ich benutze nur ein Ressourcenfile, hinstance wird nicht explizit zugewiesen, repräsentiert meine Bibliotheksname.res, in W32 ist wie gesagt bisher kein Problem aufgetreten.

[p80286]

Zitat von JohannesK:

Weitere Variante die unter W32 funktioniert, aber unter W64 als Ergebnis in buffer nur ??? liefert.

    showmessage(buffer);

Dir ist schon klar, daß showmessage nicht den vollständigen buffer-Inhalt anzeigt?
was steht denn in buffer wenn Du den debugger bemühst?

oder immer wieder gern genommen:

Delphi-Quellcode:

for i:=0 to sizeof(buffer) do
  msg:=msg+inttohex(buffer[i],2);
showmessage(msg);

Gruß
K-H

[JohannesK]

Es kommen in beiden Fällen die gleichen Rückgaben: der korrekte Wert 1000 bei WIN32 und ??? bei WIN64.

[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

[JohannesK]

Ich habe das Problem mittlerweile gelöst - oder umgangen ?

Den Stringtable der Ressource hatte ich über den Visual C- Editor erstellt, als Sprache war "German" angegeben. Das habe ich jetzt umgestellt auf "neutral". Die Fehler sind jetzt bei beiden Zugriffsmethoden weg. Leider verstehe ich immer noch nicht warum

Es funktioniert also

Delphi-Quellcode:

class function TResourceMeldung.GetOffset(lg: integer): integer;
var
  buffer : array[0..MaxBuffer] of char;
  ls : integer;
begin
  Result := 0;
  ls := LoadString(hInstance, lg, buffer, length(buffer));
  if ls <> 0 then Result := strtoint(buffer);
end;

genauso wie

Delphi-Quellcode:

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

Danke an alle für die Unterstützung !