Включение 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;

Недавно добавленные исходники
• Animation Loaders 710 • DeLiKaTeS Tetris (Тетрис) 5 711 • TDictionary Custom Sort 7 665 • Fast Watermark Sources 7 352 • 3D Designer 10 564 • Sik Screen Capture 7 881 • Patch Maker 8 108 • Айболит (remote control) 8 160 • ListBox Drag & Drop 6 957 • Доска для игры Реверси 100 196 • Графические эффекты 8 229 • Рисование по маске 7 620 • Перетаскивание изображений 6 223 • Canvas Drawing 6 587 • Рисование Луны 6 515 • Поворот изображения 5 686 • Рисование стержней 4 611 • Paint on Shape 3 310 • Генератор кроссвордов 4 297 • Головоломка Paletto 3 442 • Теорема Монжа об окружностях 4 261 • Пазл Numbrix 2 759 • Заборы и коммивояжеры 3 669 • Игра HIP 2 471 • Игра Go (Го) 2 461 • Симулятор лифта 2 865 • Программа укладки плитки 2 298 • Генератор лабиринта 3 026 • Проверка числового ввода 2 525 • HEX View 2 937

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

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