Включение JPEG в EXE-файл 2

Разговор программиста с женой. Программер:
- Ты слыхала, что через 10-15 лет станет возможным иметь секс с компьютером?
- А тебе-то что? Для тебя ничего не изменится...

1) Создайте текстовый файл с расширением ".rc". Имя этого файла должно отличаться от имени файла-пректа или любого модуля проекта. Файл должен содержать строку вроде:

MYJPEG JPEG C:\DownLoad\MY.JPG

где: "MYJPEG" имя ресурса "JPEG" пользовательский тип ресурса "C:\DownLoad\MY.JPG" путь к JPEG файлу.

Пусть например rc-файл называется "foo.rc"

Запустите BRCC32.exe (Borland Resource CommandLine Compiler) - программа находится в каталоге Bin Delphi/C++ Builder'а - передав ей в качестве параметра полный путь к rc- файлу.

В нашем примере:

C:\DelphiPath\BIN\BRCC32.EXE C:\ProjectPath\FOO.RC

Вы получите откомпилированный ресурс - файл с расширением ".res". (в нашем случае foo.res).

Далее добавте ресурс к своему приложению.

{Грузим ресурс} 
{$R FOO.RES} 

uses Jpeg; 

procedure LoadJPEGFromRes(TheJPEG : string; ThePicture : TPicture); 
var        
 ResHandle : THandle;        
 MemHandle : THandle;        
 MemStream : TMemoryStream;        
 ResPtr   : PByte;        
 ResSize  : Longint;        
 JPEGImage : TJPEGImage; 
begin        
 ResHandle := FindResource(hInstance, PChar(TheJPEG), 'JPEG');        
 MemHandle := LoadResource(hInstance, ResHandle);        
 ResPtr   := LockResource(MemHandle);        
 MemStream := TMemoryStream.Create;        
 JPEGImage := TJPEGImage.Create;        
 ResSize := SizeOfResource(hInstance, ResHandle);         
 MemStream.SetSize(ResSize);        
 MemStream.Write(ResPtr^, ResSize);        
 FreeResource(MemHandle);        
 MemStream.Seek(0, 0);        
 JPEGImage.LoadFromStream(MemStream);         
 ThePicture.Assign(JPEGImage);        
 JPEGImage.Free;        
 MemStream.Free; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin        
 LoadJPEGFromRes('MYJPEG', Image1.Picture); 
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 485 • TDictionary Custom Sort 6 514 • Fast Watermark Sources 6 302 • 3D Designer 9 248 • Sik Screen Capture 6 637 • Patch Maker 7 012 • Айболит (remote control) 7 020 • ListBox Drag & Drop 5 893 • Доска для игры Реверси 97 190 • Графические эффекты 7 224 • Рисование по маске 6 523 • Перетаскивание изображений 5 392 • Canvas Drawing 5 761 • Рисование Луны 5 472 • Поворот изображения 5 000 • Рисование стержней 3 551 • Paint on Shape 2 816 • Генератор кроссвордов 3 689 • Головоломка Paletto 2 974 • Теорема Монжа об окружностях 3 778 • Пазл Numbrix 2 492 • Заборы и коммивояжеры 3 173 • Игра HIP 2 140 • Игра Go (Го) 2 077 • Симулятор лифта 2 452 • Программа укладки плитки 2 118 • Генератор лабиринта 2 594 • Проверка числового ввода 2 269 • HEX View 2 599 • Физический маятник 2 212

Включение JPEG в EXE-файл 2

Похожие по теме исходники