Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
Вниз
ресурсы в dll-ке Найти похожие ветки
← →
SashkoSoft © (2005-01-26 13:16) [0]Господа, поястните, почему не работает такая конструкция:
tmpResStream2 : TResourceStream;
tmpH2:THandle;
tsl:Tstringlist;
begin
tsl.Create;
tmpH2:=LoadLibrary(PChar("my.dll"));
tmpResStream2 := TResourceStream.CreateFromID(tmpH2,2, RT_RCDATA);
tsl.LoadFromStream(tmpResStream2);
my.dll содержит только файл ресурсов default.RES созданый таким образом.
1 RCDATA "pic.jpg"
2 RCDATA "info.txt"
← →
Chlavik © (2005-01-26 15:50) [1]pic RCDATA pic.jpeg
...
tmpResStream2 : TResourceStream;
tmpH2:THandle;
tsl:Tstringlist;
begin
tsl.Create;
try
tmpH2:=LoadLibrary(PChar("my.dll"));
try
tmpResStream2 := TResourceStream.Create(tmpH2,"pic",RT_RCDATA);
tsl.LoadFromStream(tmpResStream2);
finally
tmpResStream2.Free;
end;
finally
tsl.Free;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.037 c
