Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.10.2008, 22:59   #11
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Содержание файла gfx.rc
Цитата:
JPG RCDATA Images/jpg.jpg
GIF RCDATA Images/gif.gif
PNG RCDATA Images/png.png
Компилировать RES с помощью brcc32 (взять в папке delphi\bin) с параметром <имя файла>
Цитата:
brcc32 gfx.rc
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Jpeg, GifImage, PNGImage;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ImageJpeg: TImage;
  ImageGif: TImage;
  ImagePNG: TImage;

implementation

{$R *.dfm}
{$R gfx.res}

procedure LoadJpegFromRes;
var
MyJpeg: TJpegImage;
ResStream: TResourceStream;
begin
MyJpeg:=TJpegImage.Create;
ResStream:=TResourceStream.Create(HInstance,'JPG',RT_RCDATA);
try
  MyJpeg.LoadFromStream(ResStream);
  ImageJpeg.Picture.Assign(MyJpeg);
finally
  MyJpeg.Free;
  ResStream.Free;
end;
end;

procedure LoadGifFromRes;
var
MyGIF: TGIFImage;
ResStream: TResourceStream;
begin
MyGIF:=TGIFImage.Create;
ResStream:=TResourceStream.Create(HInstance,'GIF',RT_RCDATA);
try
  MyGIF.LoadFromStream(ResStream);
  ImageGif.Picture.Assign(MyGIF);
finally
  MyGIF.Free;
  ResStream.Free;
end;
end;

procedure LoadPNGFromRes;
var
MyPNG: TPNGObject;
ResStream: TResourceStream;
begin
MyPNG:=TPNGObject.Create;
ResStream:=TResourceStream.Create(HInstance,'PNG',RT_RCDATA);
try
  MyPNG.LoadFromStream(ResStream);
  ImagePNG.Picture.Assign(MyPNG);
finally
  MyPNG.Free;
  ResStream.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ImageJpeg:=TImage.Create(Self);
ImageJpeg.Parent:=Self;
LoadJpegFromRes;

ImageGif:=TImage.Create(Self);
ImageGif.Parent:=Self;
ImageGif.Left:=100;
LoadGifFromRes;

ImagePNG:=TImage.Create(Self);
ImagePNG.Parent:=Self;
ImagePNG.Left:=200;
LoadPNGFromRes;
end;

end.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 03.11.2008, 11:03   #12
Алкаш
 
Регистрация: 27.10.2008
Сообщений: 7
По умолчанию

что за модули "Jpeg, GifImage, PNGImage" ?
Алкаш вне форума Ответить с цитированием
Старый 03.11.2008, 17:58   #13
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Jpeg стандартный.
Остальные скачиваются отдельно, можно сказать почти стандартные, GifImage насколько я знаю подарен Борланду и с 2007 входит в стандартную поставку. Они добавляют поддержку форматов в TImage.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 03.11.2008, 19:32   #14
JRcoker
Форумчанин
 
Аватар для JRcoker
 
Регистрация: 18.07.2008
Сообщений: 119
По умолчанию

[DCC Error] Unit1.pas(41): E2003 Undeclared identifier: 'ImagePNG'
[DCC Error] Unit1.pas(41): E2066 Missing operator or semicolon
[DCC Error] Unit1.pas(41): E2008 Incompatible types
[DCC Error] Project1.dpr(9): F2063 Could not compile used unit 'Unit1.pas'
mutabor,РУГАЕТСЯ.....
МОЖЕШЬ ВЫЛОЖИТЬ ИСХОДНИК?
Улыбайся...Люди любят идиотов...
JRcoker вне форума Ответить с цитированием
Старый 03.11.2008, 19:54   #15
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Приветствую, и опять говорю почему не использовать GDI+ ? Там форматов поддержка уйма. И все довольно таки легко
BOBAH13 вне форума Ответить с цитированием
Старый 04.11.2008, 18:32   #16
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Цитата:
Сообщение от JRcoker Посмотреть сообщение
МОЖЕШЬ ВЫЛОЖИТЬ ИСХОДНИК?
Исходник вместе с необходимыми модулями
Вложения
Тип файла: zip Resourses.zip (570.6 Кб, 49 просмотров)
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Просмотр изображения Artem Мультимедиа в Delphi 4 08.05.2012 18:58
Чтение изображения из базы данных, Вместо изображения - "System.Byte[]" ruelCrow Общие вопросы .NET 3 10.07.2008 23:29
Загрузка изображения с http Рустам Работа с сетью в Delphi 1 04.02.2008 18:28
Трехмерные изображения anarchist Помощь студентам 7 25.10.2007 17:31
Изображения в БД alikon1 БД в Delphi 3 08.10.2007 13:13