работа с ресурсами .res

[The Chase]

проблемма такая
через $R подключаю несколько файлов ресурсов
и пытаюсь прочитать через FindResource...

однако подхватываются ресурсы только с первого по порядку $R
как подлючить / прочитать остальные?

зараннее извиняюсь ежели это вопрос одной галочки или одного ключа... но ни в .PDF хелпа (http://www.freepascal.org/docs.var) ни на форуме я ответа не нашел...

[alexs]

версия компилятора?

[The Chase]

версия компилятора?

fpc-2.0.4
под Lazarus-0.9.22

[alexs]

попробуй в 2.2.0
2.0.4 кажется не умел рабоать с несколькими ресурсами

[nagash]

Да, так и есть. Сам с этим сталкивался, при использовании $R добавляется только один ресурс. В 2.2.0 точно все нормально, так что смело обновляйся

[The Chase]

Да, так и есть. Сам с этим сталкивался, при использовании $R добавляется только один ресурс. В 2.2.0 точно все нормально, так что смело обновляйся

Действительно это что-то в 2,0,4... Спасибо, помогло

[YuriPro]

Но это еще не все.
В systemh.inc тип Integer определен как SmallInt! Процедуры работы с ресурсами описаны в файлах resh.inc (и elfres32.inc), которые подключаются в systemh.inc. А переопределение Integer = Longint происходит ниже, в system.inc. Получается, что функция SizeOfResource будет возвращать значения типа SmallInt. Т.е. при относительно больших ресурсах возвращаемое значение будет некорректным.

[Sergei I. Gorelkin]

Теперь (в современном 2.3.1) она уже все-таки LongWord возвращает, как и положено...

[YuriPro]

Теперь (в современном 2.3.1) она уже все-таки LongWord возвращает, как и положено...

Очень любезно с ее стороны. Будем ждать стабильную версию.

[VAshot]

Поясните пожалуйста, есть два ресурса value.rc и value2.rc

Код: Выделить всё

STRINGTABLE {
4, "hello World !"
5, "hello world again !"
6, "last hello world !"
}

STRINGTABLE {
1, "--------------"
2, "=============="
3, "++++++++++++++"
}

Выполняю процедуру:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
  Function LoadResourceString (Index : longint): Shortstring;
  begin
    SetLength(Result,LoadString(FindResource(0,NIL,RT_STRING),Index,@Result[1],SizeOf(Result)));
  end;

Var
  I: longint;
begin
  For i:=1 to 6 do
  try
    ShowMessage(Loadresourcestring(i));
  except
  end;
end;

Получаю строки первого ресурса, как получить и второго?

0.9.27, 2.2.5, WinXP