Загрузка JPEG из ресурсов -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [98.80.143.34]

Модераторы: Rouse_, jack128, Krid

Загрузка JPEG из ресурсов

s-mike

Сообщ. #1 , 16.02.05, 07:28

Unregistered

uses Jpeg;

{$R test.res}

function LoadJpegRes(const ID: string): TJpegImage;

var

RS: TResourceStream;

begin

Result := TJpegImage.Create;

RS := TResourceStream.Create(HInstance, ID, RT_RCDATA);

try

RS.Seek(0, soBeginning);

Result.LoadFromStream(RS);

finally

RS.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

MyJpeg: TJpegImage;

begin

MyJpeg := LoadJpegRes('MYJPEG');

Image1.Canvas.Draw(0, 0, MyJpeg);

end;

Для JPEG, загнанного в ресурсы таким образом:
Цитата

Цитата

MYJPEG RCDATA "Test.jpg"

Автор: s-mike

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0376 ] [ 16 queries used ] [ Generated: 10.10.24, 01:09 GMT ]