Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];
ВнизКак создать файл ресурсов.... Найти похожие ветки
← →
N A N (2002-06-14 19:46) [0]Как создать файл ресурсов....
Что-то я ищу ищу в дельфи про работу с файлами ресурсов ничего не найду.
Как создать файл ресурсов и добавить д=туда с 10-ток bmp"шек и потом программно их помещать на image.
Может кто знает или примерчик кинет?
← →
aus (2002-06-14 20:46) [1]Tools - Image editor
← →
allrussia (2002-06-15 03:16) [2]N A N
Скачай прогу Restorator, рульная вещь
всегда пригодится
← →
Tahion (2002-06-15 08:22) [3]Согласен. Ресторатор - кууууууууууул!!!
← →
sevylor (2002-06-15 17:21) [4]Вопрос довольно часто задается, и все рекомендуют создавать файл ресурсов, но зачем лишние телодвижения? При установке RXLib (а я думаю, ставит его большинство) в пункте "Project" появляется пункт "Resources", открывай его и пихай в ресурсы BMP, ICO, USER_DATA(RT_RCDATA).
А загрузить Image из ресурса:
Image1.Picture.Bitmap.Handle:=LoadBitmap(hInstance,PChar("BMP1")); или
Image1.Picture.Bitmap.LoadFromResourceName(hInstance,"BMP1");
← →
N A N (2002-06-16 15:59) [5]А что такое RXLib ?
← →
N A N (2002-06-16 16:02) [6]и откуда скачать Ресторатор ?
← →
Exploited (2002-06-16 16:48) [7]>А что такое RXLib ?
Хороший набор компонентов. Ищи здесь:
http://www.torry.net/
>и откуда скачать Ресторатор ?
http://www.bome.com/Restorator/download.html
← →
Exploited (2002-06-16 16:58) [8]Вот утащил, уже не помню от куда:
Рабирайся.
Kак создать dll и оттуда грузить JPG.
Создай текстовый файл, обзови его NN.RC и пропиши такие строчки:
1 RCDATA A.JPG
2 RCDATA B.JPG
Компилируй:
Brcc32.exe NN.RC
(Компилятор ресурсов Brcc32.exe находится в папке Lib Delphi).
Создавай новый проект LIB.DPR
uses SysUtils, Classes;
//добавили наши ресурсы NN.RES
{$R NN.RES}
begin
end.
После копиляции файла LIB.DPR создавай новый проект:
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;
//пример загрузки рисунка 1 в Image1
LoadJPEGFromDLL(1, Image1.Picture);
← →
~Rand~ (2002-06-16 19:17) [9]Удалено модератором
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c