Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2002.07.25;
Скачать: [xml.tar.bz2];

Вниз

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

Форум: "Media";
Текущий архив: 2002.07.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.02 c
6-81397
DKemper
2002-05-15 22:39
2002.07.25
!!!Очень!!! нужна помощь с TServerSocket.....


1-81280
Explorer
2002-07-12 15:30
2002.07.25
Childs окна


1-81355
qqqqq
2002-07-13 09:37
2002.07.25
Как видео запихать в прогу???


14-81467
jin-jon1
2002-06-20 15:59
2002.07.25
Где найти в интернете программу Delphi.


1-81370
Goblinus
2002-07-13 19:18
2002.07.25
Convert





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский