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

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

Держи компонент

В кратце:
TbsPolyglotManager кидаем только на гл. форму.
TbsPolyglotTranstator на гл. форму и на все последующие формы в проекте.

Копилируем проект.
Далее Project -> Generate LNG File -> и выбираем что нужно. По умолчанию перебирает и формы и строковые ресурсы.

вот выдрал из своего проекта процедуру смены языков:

procedure FillLanguages;
var
  i: SmallInt;
  iTrans: TbsCorePolyglot;
begin
  //Polyglot manager
  MainForm.PolyglotManager.LangsDir := HLR_GetLanguagesDir;
  //Мой ComboBox "сменьщик" языков
  SettingsForm.LangsBox.Items.Clear;
  iTrans := TbsCorePolyglot.GetCorePolyglot;
  for i := 0 to iTrans.LangCount - 1 do
  begin
    SettingsForm.LangsBox.Items.Add(itrans.Langs[i]);
    if iTrans.Langs[i] = iTrans.CurrentLang then
      SettingsForm.LangsBox.ItemIndex := i;
  end;
end;

P.S. Если уж говорить о прямоте рук и извилинах то, почему все напрочь забывают о существовании RTTI?

[spamer]

Спс. Посмотрю.
з.ы. Но вопрос первоначальный все равно как бы не закрыт...

[ArtGrek]

заменять соответственные ресурсные строки из файла

для не русских поясните пожалуста , не уверен что правельно понял

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

ArtGrek
В программе строка "this is my resource string"
в файле "Это моя строка как строковой ресурс"

В run-time происходит замена того что в программе тем что в фаиле.

хм а как вариант, в готовом exe все строковые ресурсы имеют свой номер. Как насчёт того чтобы сохранять в ini переменные с этими именами и номерами? А потом так же их подгружать но с другими значениями? (Так делает Polyglot)

[spamer]

Вот Человек_Борща правильно пояснил...

хм а как вариант, в готовом exe все строковые ресурсы имеют свой номер. Как насчёт того чтобы сохранятьь в ini рнонменные с этими именами и номерами? А потом так же их подгружать но с другими значениями?

Так после компиляции вот те номера, которые мы сохраним в файл не совпадут с теми что будут...вот тут-то и загвоздка...

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

При каких условиях?

Если произошли изменения? Допилили новые строки в resorcestrings? Нет, ничего не изменится, старые строки будут иметь теже номера.

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

[spamer]

Сообщение от Человек_Борща

При каких условиях?

Если произошли изменения? Допилили новые строки в resorcestrings? Нет, ничего не изменится, старые строки будут иметь теже номера.

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

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

А и кстати

сохранятьь в ini рнонменные с этими именами

я так понял сохранять имена ресурсстрингов, так ведь? А смысл, если будут известны id?

[veniside]

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

А что вы имели ввиду под этим? Можно конкретнее.

Ну в общем это немного бредовая идея, но она работает. Почему Борланд это не автоматизировал, я не знаю. А может ITE что-то подобное и использует, не помню. Короче, шаги такие:

1) Создаём ДДЛ-ки со строками для каждого языка. Вот код для ДЛЛ с языком ENG, остальные ДЛЛ создаются аналогично, меняется только имя и сами строки.

library
  str.Eng;

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

var
  s: string;
begin
  {$O-}
  s := a + b; // so compiler will include a and b into DLL
end.

2) Пишем наше приложение, и в нем указываем те же строки и в том же порядке, что и в ДЛЛ. Это важно, иначе ничего не будет работать! В частности, если приложение использует другие модули, которые объявляют свои resourcestring (а в VCL их дофига), то нумерация строк в ДЛЛ и в приложении будет разная. Выход - включить в ДЛЛ те же модули и в том же порядке, что и в приложении. Но не факт, что это поможет ) Вот примерный код приложения:

program
  resUse;

uses
  Windows;

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

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;

var
  s: string;
begin
  patchStrings('str.ENG.dll', [@a, @b]);
  //
  s := a + ', ' + b;	// Foo.ENG, Bar.ENG
end.

Как видно, самое интересное происходит в patchStrings(), ей передаётся имя ДЛЛ со строками на том языке, который хотим видеть, и список строк, которые нужно "пропачить".

Возможно, проблему с нумерацией строк можно как-то решить по-другому, пока не придумал )

[spamer]

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

И еще насчет смены идентификатора (к посту #17), действительно вроде не меняется - так если даже и получу список номеров строк, все равно вопрос остается, а как же подменить...
Может еще есть какие-то варианты...?

[ArtGrek]

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