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

[spamer]

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

[veniside]

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

[spamer]

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

В смысле дублировать?

Я имел ввиду вот что:
длл имеет вид:

library rus;

resourcestring
  a = 'rus_str_a';
  b = 'rus_str_b';

begin
  a;
  b;
end.

Все работает отлично.
Но в случае, если в секции инициализации не перечислить имена ресурсов, работать не будет:

library rus;

resourcestring
  a = 'rus_str_a';
  b = 'rus_str_b';

begin
// empty
end.

Или может я чего-то не понял?

[veniside]

А, ну да, линкер, собака, их выкидывает. Можно строчку

s := a + b;

вынести в отдельный .inc файл, и подключать его через {$I ... } во всех ДЛЛ. Если список изменится, достаточно будет один раз .inc файл поменять.

[spamer]

О и ответик появился...правда я уже так и поступил был (через {$include} и inc) - осталось только автоматизировать сборку и готово...вобщем всем еще раз спасибо за ответы...

[GunSmoker]

Фига вы извращенцы.

[veniside]

ггг, я сам не понял, зачем я это написал ) чисто по-приколу.

Да, можно patchStrings() сделать умнее, чтобы он смотрел, какие строки есть в подгружаемой ДЛЛ и патчил только их. Чтобы не перечислять все строки во втором параметре. Ну это потом, в версии 2.0 )

[GunSmoker]

Наверное проще использовать ITE

Если ITE сильно не охота, то проще поставить хук на LoadResString такого плана:

function LoadResStringHooked(ResStringRec: PResStringRec): string;
var
  Buffer: array [0..4095] of Char;
begin
  if ResStringRec = nil then Exit;
  if ResStringRec.Identifier < 64*1024 then
    SetString(Result, Buffer,
      LoadString(FindResourceHInstance(ResStringRec.Module^),
        ResStringRec.Identifier, Buffer, Length(Buffer)))
  else
    Result := PChar(ResStringRec.Identifier);

  GetPrivateProfileString('Translations', PChar(Result), PChar(Result), PChar(Buffer), Length(Buffer), PChar('russian.lng'));
  Result := Buffer;
end;

[spamer]

Можно попробовать и такой вариант...а вот ITE пожалуй нет...реализация его отвратительная (в плане удобства)...хотя может кому-то и нравится...

Кстати, а по выше приведенному коду такой вопрос появился:
условие

ResStringRec.Identifier < 64*1024

если оно выполняется, то ресурсная строка является нативной(т.е. та, что по умолчанию) иначе же ресурсная строка загружена из другого модуля. Правильно я понял или что-то другое имелось ввиду?

[GunSmoker]

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

реализация его отвратительная (в плане удобства)...хотя может кому-то и нравится...

Лолшто? Т.е. руками выписывать все идентификаторы в DLL, следить за порядком и правильностью назначения ID, убедиться, что их не выкидывает линкёр и не забывать руками же обновлять идентификаторы при изменениях в exe - это проще, чем нажать кнопочку Refresh all?

Я ж и говорю - извращенцы