Главная страница
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.018 c
1-81333
Александр
2002-07-12 21:23
2002.07.25
Интересно


4-81511
Alibaba
2002-05-20 17:23
2002.07.25
Error 216?


7-81490
Glonia Zbanov
2002-05-07 13:00
2002.07.25
принтеры


3-81204
Filat
2002-07-04 09:16
2002.07.25
Сделал Create Table, не погу подключить програмно. Help!


3-81137
ArhAngeL2
2002-07-02 11:39
2002.07.25
Индексирование в рантайме