AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Problem mit LoadString bei 64 bit

Ein Thema von JohannesK · begonnen am 26. Jul 2011 · letzter Beitrag vom 26. Jul 2011
Antwort Antwort
Benutzerbild von Uwe Raabe
Uwe Raabe
Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.654 Beiträge
 
Delphi 12 Athens
 
#1

AW: Problem mit LoadString bei 64 bit

  Alt 26. Jul 2011, 16:30
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
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
JohannesK

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

AW: Problem mit LoadString bei 64 bit

  Alt 26. Jul 2011, 16:58
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 !
mit freundlichem Gruss

So einfach wie möglich. Aber nicht einfacher.
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.222 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Problem mit LoadString bei 64 bit

  Alt 26. Jul 2011, 22:59
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
Könnte damit zusammen hängen das seit Vista es eigentlich nur englisches Windows mit Sprachaufsatz gibt und damit versucht das 64-Bit Windows die falsche Sprache für die ressourcen zu verwenden.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz