ресурсы в 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;

ресурсы в dll-ке Найти похожие ветки