Перекодировать графическое изображение.

@MadMag · Регистрация: 16.10.2008

Студворк — интернет-сервис помощи студентам

Приветствую, подскажите, как перекодировать gif в bmp (на худой случай) или взять bitmap gifовой картинки напрямую из нее?

Добавлено через 2 минуты
Или чтобы в Timage можно было загрузить gif.

Добавлено через 3 минуты
Использование gif и gifimg вроде как позволяет с ними работать, но происходит какая-то странная ошибка.

Code
1
2
3
4
5
6
7
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0046976E in module 'Project1.exe'. Read of address 8BD88B9F'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

Код вот такой:

Delphi
1
2
3
4
5
6
procedure TForm1.Button2Click(Sender: TObject);
var
  bmp:tgif;
begin
bmp.LoadFromFile('c:/1.gif');
end;

@MadMag · 28.10.2009, 13:03 **[ТС]**

Код вот такой:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TForm1.Button1Click(Sender: TObject);
var
  bmp:tBitmap;
  a:array of array of integer;
  i,j:integer;
  bin:textfile;
  bn:tgifimage;
begin
image1.Picture.LoadFromFile('C:/1.bmp');
bmp:=image1.picture.bitmap;
SetLength(a, image1.picture.bitmap.Width, image1.picture.bitmap.Height);
for i := 0 to image1.picture.bitmap.height - 1 do
   for j := 0 to image1.picture.bitmap.Width - 1 do  begin
     a[j,i]:=image1.picture.bitmap.Canvas.Pixels[j,i];
     if a[j,i]=16777215 then a[j,i]:=1;
   end;
 
assignfile(bin, 'E:/1.txt');rewrite(bin);
for I := 0 to image1.picture.bitmap.Height - 1 do begin
   for j := 0 to image1.picture.bitmap.width - 1 do
      write(bin,a[j,i]);
   writeln(bin);
end;
closefile(bin);
 
for I := 0 to image1.picture.bitmap.Height - 1 do
   for j := 0 to image1.picture.bitmap.width - 1 do
    if a[j,i]=0 then image2.Canvas.Pixels[j,i]:=clblack;
 
end;

Забава в том, что я не могу сделать его под gif.

@АНК · 28.10.2009, 14:10

Сообщение от MadMag

Приветствую, подскажите, как перекодировать gif в bmp (на худой случай) или взять bitmap gifовой картинки напрямую из нее?

Добавлено через 2 минуты
Или чтобы в Timage можно было загрузить gif.

Взято с Delphi World. Сам не проверял

из файловов GIF (анимированных) вытаскивает каждую картинку в отдельности, или записывает в отдельный BMP по очереди Для этих программок нужен всеми любимый RX Lib !!!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button4Click(Sender: TObject);
var
  i, a: integer;
  bm: TBItmap;
begin
  a := 0;
  bm := TBItmap.Create;
  bm.Height := RxGIFAnimator1.Height;
  bm.Width := RxGIFAnimator1.Image.Count * RxGIFAnimator1.width;
  for i := 0 to RxGIFAnimator1.Image.Count - 1 do
  begin
    RxGIFAnimator1.FrameIndex := i;
    bm.Canvas.Draw(a, 0, RxGIFAnimator1.Image.Frames[i].Bitmap);
    a := a + RxGIFAnimator1.Height;
  end;
  //form1.Canvas.Draw(0,0,bm);
  bm.SaveToFile(Edit1.Text + '.bmp');
  bm.free;
end;

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем