| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос на засыпку: как создать dll и оттуда грузить JPG [D6, Win95/98, WinXP]
Vvedensk © (2002-03-15 14:33:00)И сново привет. Вопрос на засыпку: как создать dll и от туда грузить JPG. Заранее благодарен...
Vvedensk (2002-03-17 09:54:00) [1]Спасибо за ответы.
copyr25 (2002-03-15 22:13:00) [2]
========
in NN.RC:
1 RCDATA A.JPG
2 RCDATA B.JPG
...
========
in LIB.DPR
...
uses SysUtils, Classes;
{$R NN.RES}
begin
end.
========
in MAIN.PAS:
...
uses jpeg;
...
procedure LoadJPEGFromDLL(TheJPEG: integer; ThePicture : TPicture);
var
AModule : THandle;
MyJPG : TJPEGImage;
A:array[0..15] of Char;
S:String;
ResStream:TResourceStream;
begin
S:="lib.dll";
StrPCopy(A,S);
AModule:=LoadLibrary(A);
MyJPG:=TJPEGImage.Create;
ResStream:=nil;
try
ResStream:=TResourceStream.CreateFromID(AModule,TheJPEG,RT_RCDATA);
MyJPG.LoadFromStream(ResStream);
ThePicture.Assign(MyJPG);
finally
MyJPG.Free;
ResStream.Free;
FreeLibrary(AModule);
end;
end;
...
LoadJPEGFromDLL(i, Image1.Picture);
======
VuDZ (2002-03-15 21:45:00) [3]LoadLibrary()
LoadResource()
| |
