Вопрос на засыпку: как создать 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]

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

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