Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Jpg и Dll.


Dankin ©   (2002-11-12 09:49:00) 

Граждане, подскажите пожалуйсто как можно запихнуть
jpg картинку в библиотеку и достать ее оттуда.
Можно хотя-бы ссылочку.Буду премного благодарен.


BarikNT   (2002-11-13 01:56:00) [1]

1.Добавь ресурс в проект
Project->Resources->правый клик мышки->New->User Data и грузи
из файла *.jpg
2.переменуй имя ресурса (обычно он автоматом генерится RCDATA_1 ) просто в номер к примеру 2002
а далее так

procedure TForm1.Button1Click(Sender: TObject);
var
MyJPG : TJPEGImage;
ResStream : TResourceStream;
begin
try
MyJPG := TJPEGImage.Create;
ResStream := TResourceStream.CreateFromID(HInstance, 2002, RT_RCDATA);
MyJPG.LoadFromStream(ResStream);
Canvas.Draw(12,12,MyJPG);
finally
MyJPG.Free;
ResStream.Free;
end;
end;


Dankin   (2002-11-13 01:27:00) [2]

Извиняюсь за серость, но где можно почитать про BPL? Как вобще с ним работать.


IDKFA   (2002-11-12 13:04:00) [3]

Автору: я сам парился с этой проблемой очень долго - лучше в данном случае не использовать DLL, юзай BPL(но он только для D,CB)...


Skier   (2002-11-12 11:21:00) [4]

>Dankin

> Мне нужно чтобы сам EXE фаил не увеличивался, а если использовать
> как ресурс он вроде будет включен в exe.

А причем здесь Exe ?
Ты же собираешься использовать файл-ресурса в DLL,
насколько я понял...


Dankin   (2002-11-12 11:18:00) [5]

Мне нужно чтобы сам EXE фаил не увеличивался, а если использовать
как ресурс он вроде будет включен в exe.


Angus   (2002-11-12 11:18:00) [6]

Помоему где-то здесь есть хороший пример прграммы создания ресурса. Поройся на сайте.


Bsl   (2002-11-12 10:26:00) [7]

Можно картирку запихнуть в ресурс, затем из приложения:
1) либо напрямую вытянуть катинку,
2) либо возвращать (данные) по вызову какой-либо функции.


neXt   (2002-11-12 10:05:00) [8]

можно поместить jpg в ресурс


Наверх

Титульная страница Поиск, карта сайта Написать письмо