Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

Достать ресурс из dll   Найти похожие ветки 

 
SashkoSoft ©   (2005-01-26 12:09) [0]

Господа, подскажите пожалуйста решение.

Файл ресурсов создаю таким образом:
res.rc
1 RCDATA "pic1.jpg"
2 RCDATA "text.txt"
brcc32 res.rc --> res.res
Далее создаю dll которая является контейнером для файла ресурса.

var
tmpResStream : TResourceStream; // Resource Stream
tmpH:THandle;
begin
tmpH:=LoadLibrary(PChar(libname));   // (подгружаю ДЛЛ)
tmpResStream := TResourceStream.CreateFromID(tmpH,1, RT_RCDATA);
...
tmpJPG.LoadFromStream(tmpResStream);  (таким способом я достаю джипеги и все замечательно)

Но вот прочесть строку из текстового файла не получается!
Если Вас не затруднит, подскажите как это сделать.
Заранее Большое Спасибо.


 
Fay ©   (2005-01-26 12:26) [1]

Попробуй так
function LoadStringFromRes(cName : string) : string;
var
 r, sz : DWORD;
 p : PChar;
label
 Err;
begin
 r := FindResource(0, PChar(cName), RT_RCDATA);
 if r = 0 then goto Err;
 sz := SizeofResource(0, r);
 if sz = 0 then goto Err;
 p := PChar(LoadResource(, r));
 if p = nil then goto Err;
 SetString(Result, p, sz);
 Exit;
 Err :
 Result := "";
end;


 
SashkoSoft ©   (2005-01-26 12:43) [2]

в этом случае нужно создавать файл ресурсов не так как я делал:
1 RCDATA "pic1.jpg"
2 RCDATA "text.txt"
а иначе:
1 RCDATA "pic1.jpg"
MyText Text info.txt  ?
и в строке r := FindResource(0, PChar(cName), RT_RCDATA);
вместо cName надо подставить "MyText"?
а в строке p := PChar(LoadResource(, r)); видимо нужно написать:
p := PChar(LoadResource(tmpH2, r));  ?
предварительно написав  tmpH2:=LoadLibrary(PChar(libname));
где libname - имя длл-ки ?



Страницы: 1 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.424 c
4-1103617514
Yury
2004-12-21 11:25
2005.02.06
Изменение прозрачности формы в W 2000 и W XP


6-1101410970
Strumpf
2004-11-25 22:29
2005.02.06
Определение места сайта в Яндексе


1-1106501507
Knoxville
2005-01-23 20:31
2005.02.06
Многоязычная программа


1-1106317905
Zevs_a
2005-01-21 17:31
2005.02.06
Иерархические структуры


1-1105756712
Прекрасно
2005-01-15 05:38
2005.02.06
Существует ли качалка с открытым исходником на Дельфи ?