XE2 und dxgettext / gnugettext.pas

[Bbommel]

(Hinweis: die Frage habe ich so ähnlich auch schon auf der englischen dxgettext-Mailingliste gestellt, vielleicht lässt sich aber hier schneller eine Lösung finden, weil schon mehr Leute mit XE2 rumgetestet haben. Daher hoffe ich, dass der Crosspost ok ist)

Hallo zusammen,

beim Testen mit der Trial-Version von XE2 bin ich über ein Problem beim Komplieren der Datei gnugettext.pas gestolpert, also der Datei des Übersetzungstools GNU Gettext für Delphi.

Hier mal der Ausschnitt aus der Datei, der vielleicht für die Fehlersuche reichen müsste:

Delphi-Quellcode:

type
  PStrData = ^TStrData;
  TStrData = record
    Ident: Integer;
    Str: String;
  end;

function SysUtilsEnumStringModules(Instance: Longint; Data: Pointer): Boolean;
{$IFDEF MSWINDOWS}
var
  Buffer: array [0..1023] of Char; // WideChar in Delphi 2008, AnsiChar before that
begin
  with PStrData(Data)^ do begin
    SetString(Str, Buffer,
      LoadString(Instance, Ident, @Buffer[0], sizeof(Buffer)));
    Result := Str = '';
  end;
end;
{$ENDIF}
{$IFDEF LINUX}
var
  rs:TResStringRec;
  Module:HModule;
begin
  Module:=Instance;
  rs.Module:=@Module;
  with PStrData(Data)^ do begin
    rs.Identifier:=Ident;
    Str:=System.LoadResString(@rs);
    Result:=Str='';
  end;
end;
{$ENDIF}

function SysUtilsFindStringResource(Ident: Integer): string;
var
  StrData: TStrData;
begin
  StrData.Ident := Ident;
  StrData.Str := '';
  EnumResourceModules(SysUtilsEnumStringModules, @StrData);
  Result := StrData.Str;
end;

Der Fehler tritt dann bei vorvorletzten Zeile auf, also bei EnumResourceModules(SysUtilsEnumStringModules, @StrData); . Hier gibt es dann den Klassiker: "[DCC Fehler] gnugettext.pas(925): E2250 Es gibt keine überladene Version von 'EnumResourceModules', die man mit diesen Argumenten aufrufen kann"

Hat irgendwer eine Idee? EnumResourceModules ist aus der system.pas, aber die ist natürlich bei der Trial-Version nicht im Quelltext dabei, so dass ich nicht alte und neue Version vergleichen kann.

Bis denn
Bommel

[Klaus01]

Hallo,

wenn Du mit der Maus über EnumResourceModules fährst/bzw den Mauspointer darauf liegen lässt,
erscheint dann nicht ein Fenster mit den Parametern welche die Procedure/Function erwartet?

Grüße
Klaus

[Bbommel]

Doch klar, hätte ich gleich dazu schreiben sollen, sorry:

Code:

System.EnumResourceModules(TEnumModuleFuncLW,Pointer) Methode 

Deklariert in System

Parameter

Func 
   System.EnumResourceModules.TEnumModuleFuncLW 
Data 
  System.Pointer

Ich nehme an, dass das Problem ist, dass die als Parameter erwartete Funktion und die tatsächlich übergebene nicht übereinstimmen. Übergeben wird ja "SysUtilsEnumStringModules" (Deklaration habe ich ja oben extra mit aufgenommen) und erwartet wird eine Funktion vom Typ System.EnumResourceModules.TEnumModuleFuncLW. Und wie eben dieses TEnumModuleFuncLW kann ich in der system.pas ja nicht nachgucken. Offenbar aber anders als bisher oder bin ich auf einem Irrweg?

[Klaus01]

Guten Abend,

kompilierst Du für die 64bit Platform -> da haben sich meines Wissens u.a. die Pointergrößen
verändert.

Wenn Du das für die 32bit Platform kompilierst sollten eingentlich keine Unterschiede von Typgrößen
vorhanden sein.

Grüße
Klaus

[daywalker9]

function SysUtilsEnumStringModules(Instance: Longint; Data: Pointer): Boolean;
Longint muss hier NativeInt sein.

[Bbommel]

NativeInt hat wunderbar geholfen, vielen Dank.

[v2afrank]

Kannst Du die ganze Datei einmal hier hochschieben ? Heute ist meine Bestellung für XE 2 raus und dxgettext verwendi ich auch viel

[Bbommel]

Klar... diese Version hier habe ich auch an Lars geschickt, so dass er sie hoffentlich veröffentlicht. Sie sollte wieder unter allen Delphi-Versionen laufen. Getestet habe ich mit D2009 und XE2.

[DerDan]

Hallo,

Vorübersetzte Strings für die Delphi Runtime Library gibt es auf der dxgettext Seite nur bis Delphi 2006!
siehe http://dybdahl.dk/dxgettext/translations/
Gibt es dafür einen Grund oder gibt es eine andere Quelle?

Ich bin grade das erste mal dabei ein Projekt für mehrer Sprachen zu erstellen.
Da ist bei Delphi2010 dxgettext doch okay oder gibt es was besseres?

mfg

DerDan

[jaenicke]

Du kannst vieles benutzen, auch die interne Lösung von Delphi (Projekt --> Sprachen).