Подмена ресурсных строк в run-time

[spamer]

Сообщение от ArtGrek

попалось в процессе поисков,думаю ето по вашеи теме
Многоязычный интерфейс приложений в Delphi
http://www.codenet.ru/progr/delphi/stat/multilang.php

Видел это тоже, но не особо нравится мне такой способ - обходить все контролы на всех формах...та у меня программа скорее загнется пока все формы обойдет...

Неужели все же нельзя делать подмену этих resourcestring - ведь языковые движки как-то подменяют...

[Человек_Борща]

а зачем все?

Просто есть класс TComponent.Tcontrol.Text Для всех компонентов имеющих EDIT
TComponent.Tcontrol.Hint для хинтов всех компонентов

Перебери все компоненты по этим свойствам.

Зачем же перебор по классам компонент, когда у всех есть родитель по крайней мере Tcontrol .

[spamer]

Ну это ясно, но ведь все равно необходимо делать перебор...а хотелось бы этаким одним махом что-ли...

[ArtGrek]

вас что смушает, то что будет долго происходить процесс замены цаптионов?

вы их по 1 загружаете или скачиваете разом весь фаил в строковыи массив,
а потом из него разбираете что куда, что б не обрашаца каждыи раз к фаилу?

[veniside]

Сообщение от spamer

veniside, а у вас данный код работает? Ибо я не смог добиться нужного результата. А в дебаге если смотреть, то видно, что r.Module^ не меняется...

Да, работает. Проверьте, что ДЛЛ в том же каталоге лежит, где и ехе.

[spamer]

ArtGrek, файл читается один раз...

Да, работает. Проверьте, что ДЛЛ в том же каталоге лежит, где и ехе.

Интересно, а какая тогда у вас Delphi?

[veniside]

Писал в 2010, только что проверил в Д7, все ок. А чё там не работать, я ж ничего не делаю, просто заменяю в PResStringRec, который привязан к каждой resoursestring, значения Module на хендл только что загруженной ДЛЛ. Проверьте, LoadLibrary() точно не 0 возвращает?

[spamer]

Мистика какая-то...пишу также в Д2010.
На данный момент вот такой код (длл и программа):
dll

library lang;

uses
  SysUtils,
  Classes;

{$R *.res}

resourcestring
  a = 'Foo.ENG';
  b = 'Bar.ENG';

var
  s: string;
begin
  {$O-}
  s := a + b;
end.

program

...

var
  Form1: TForm1;
  g_m: hModule;

implementation

{$R *.dfm}

resourcestring
  a = 'Foo.Neutral';
  b = 'Bar.Neutral';

procedure patchStrings(const module: string; strings: array of pointer);
var
  i: integer;
  r: PResStringRec;
begin
  g_m := LoadLibrary(PChar(module));
  for i := low(strings) to high(strings) do
  begin
    r := PResStringRec(strings[i]);
    r.Module^ := g_m;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  patchStrings('lang.dll', [@a, @b]);
  s := a + ', ' + b;	
  Form1.Caption := s;
end;

Вроде бы все уже аналогично сделал. Но s как была пустой, так и осталась.
Если не затруднит, можете выложить свой проект...

[veniside]

А, не, так никакой мистики. У меня же чистый проект, без VCL.
Я там написал в начальном сообщении, что VCL переколбасит все номера строк. Т.е. в ДЛЛ нужно подключать Forms, Controls и так далее, и не факт, что поможет. В общем с этим пока затык. Если бы можно было в resourcestring сказать, какой номер присвоить начальной строке.. Сижу, думаю, как это обойти.

ЗЫ. Придумал ) Щас отпишу.

[veniside]

В общем, ДЛЛ остаётся такой же, как и была. Ниче юзать там не надо, даже наоборот, если что-то заюзать, типа Forms, будет беда.

Дополнительно создаём модуль, в который выносим все наши строки, и заодно процедуру patchStrings().

unit
  strRes;

interface

resourcestring
  a = 'Foo.Neutral';
  b = 'Bar.Neutral';

// --  --
procedure patchStrings(const module: string; strings: array of pointer);

implementation

uses
  Windows;

var
  g_m: hModule;

procedure patchStrings(const module: string; strings: array of pointer);
var
  i: integer;
  r: PResStringRec;
begin
  g_m := LoadLibrary(PChar(module));
  for i := low(strings) to high(strings) do
  begin
    r := PResStringRec(strings[i]);
    r.Module^ := g_m;
  end;
end;

end.

Теперь, самое важное. В исходник проекта подключаем этот модуль со строками самым первым.

program Project2;

uses
  strRes,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Все, теперь можно в любое время переключиться на другой язык, загрузив строки из требуемой ДЛЛ и вызвав patchStrings().

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  strRes;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  patchStrings('str.ENG.dll', [@a, @b]);
  //
  Caption := a + ', ' + b;
end;

end.

В принципе, особого преимущества перед ini файлами, например, я не вижу, зато прикольно )