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

Вниз

Вопрос на засыпку: как создать dll и оттуда грузить JPG   Найти похожие ветки 

 
Vvedensk   (2002-03-15 14:33) [0]

И сново привет. Вопрос на засыпку: как создать dll и от туда грузить JPG. Заранее благодарен...


 
VuDZ ©   (2002-03-15 21:45) [1]

LoadLibrary()
LoadResource()


 
copyr25 ©   (2002-03-15 22:13) [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);
======



 
Vvedensk   (2002-03-17 09:54) [3]

Спасибо за ответы.



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
14-81447
Sergey_
2002-06-27 15:03
2002.07.25
Скажите пожалуйста, где я могу надыбать иконок для Delphi?


7-81507
vlad0007
2002-04-11 20:02
2002.07.25
Okey кто нить знает???


3-81168
Pro
2002-07-04 07:26
2002.07.25
SQL Запрос с группировкой по месяцам


1-81352
Macuca
2002-07-13 15:14
2002.07.25
Массив элементов управления


14-81485
Sergo
2002-06-26 17:07
2002.07.25
AVI