ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Соединить две gif картинки
22 сообщений из 22, страница 1 из 1
Соединить две gif картинки
    #39901704
Delphi_Watcher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi_Watcher
Гость
Можно ли как то две разные картинки разрешением 320x640 находящиеся в двух разных папках соединить в одно фото и сохранить в третью папку?
...
Рейтинг: 0 / 0
12.12.2019, 10:35
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39901706
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Уверен, что можно
...
Рейтинг: 0 / 0
12.12.2019, 10:36
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39901715
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
не знаю как пацаны, но я лично не возражаю. (С)
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
12.12.2019, 10:45
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39901718
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
Delphi_Watcher
Можно ли как то две разные картинки разрешением 320x640 находящиеся в двух разных папках соединить в одно фото и сохранить в третью папку?
Конечно, можно. Используй класс TGIFImage и метод Canvas.Draw
...
Рейтинг: 0 / 0
12.12.2019, 10:49
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39901727
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
12.12.2019 10:49, Квейд пишет:
> Используй класс TGIFImage и метод Canvas.Draw

зонуда!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
12.12.2019, 11:02
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39901746
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Сейчас выяснится что они анимированные...
...
Рейтинг: 0 / 0
12.12.2019, 11:28
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902272
Delphi_Watcher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi_Watcher
Гость
А в Console Application это можно сделать?
...
Рейтинг: 0 / 0
13.12.2019, 07:23
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902341
Delphi_Watcher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi_Watcher
Гость
Не получается 2 разные картинки соединить в одном Image1.
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure TForm1.Button1Click(Sender: TObject);
var
q,qq: TGIFImage;
R,S: TRect;
begin
q:= TGIFImage.Create;
q.LoadFromFile('C:\Users\Администратор\Desktop\60\2019.12.13 09.00.03.gif');
R.Left:=0; R.Top:=0; R.Right:=320; R.Bottom:=640;
Image1.Canvas.StretchDraw(R,q);
q.Free;
qq.LoadFromFile('C:\Users\Администратор\Desktop\60\2019.12.13 08.00.02.gif');
S.Left:=20; S.Top:=40; S.Right:=320; S.Bottom:=640;
Image1.Canvas.StretchDraw(S,qq);
qq.Free;
end;
...
Рейтинг: 0 / 0
13.12.2019, 10:22
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902358
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
Delphi_Watcher
Не получается 2 разные картинки соединить в одном Image1.

Что, программа прям так и выдает мессаджбокс - "Звиняй, хозяин, не получается у меня твоя шняга"?
...
Рейтинг: 0 / 0
13.12.2019, 10:42
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902364
Delphi_Watcher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi_Watcher
Гость
Василий 2
Delphi_Watcher
Не получается 2 разные картинки соединить в одном Image1.

Что, программа прям так и выдает мессаджбокс - "Звиняй, хозяин, не получается у меня твоя шняга"?

http://joxi.ru/5mdz5j8i3D3EKA
...
Рейтинг: 0 / 0
13.12.2019, 10:50
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902381
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
Delphi_Watcher
Не получается 2 разные картинки соединить в одном Image1.
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
procedure TForm1.Button1Click(Sender: TObject);
var
  q,qq: TGIFImage;
  R,S: TRect;
begin
  q:= TGIFImage.Create; // Объект q создаётся
  q.LoadFromFile('C:\Users\Администратор\Desktop\60\2019.12.13 09.00.03.gif'); // Объект q используется
  R.Left:=0; R.Top:=0; R.Right:=320; R.Bottom:=640;
  Image1.Canvas.StretchDraw(R,q);
  q.Free;

  qq.LoadFromFile('C:\Users\Администратор\Desktop\60\2019.12.13 08.00.02.gif'); // Объект qq используется, но его не создали
  S.Left:=20; S.Top:=40; S.Right:=320; S.Bottom:=640;
  Image1.Canvas.StretchDraw(S,qq);
  qq.Free;
end;


...
Рейтинг: 0 / 0
13.12.2019, 11:08
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902405
Delphi_Watcher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi_Watcher
Гость
goldmi45
Delphi_Watcher
Не получается 2 разные картинки соединить в одном Image1.
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
procedure TForm1.Button1Click(Sender: TObject);
var
  q,qq: TGIFImage;
  R,S: TRect;
begin
  q:= TGIFImage.Create; // Объект q создаётся
  q.LoadFromFile('C:\Users\Администратор\Desktop\60\2019.12.13 09.00.03.gif'); // Объект q используется
  R.Left:=0; R.Top:=0; R.Right:=320; R.Bottom:=640;
  Image1.Canvas.StretchDraw(R,q);
  q.Free;

  qq.LoadFromFile('C:\Users\Администратор\Desktop\60\2019.12.13 08.00.02.gif'); // Объект qq используется, но его не создали
  S.Left:=20; S.Top:=40; S.Right:=320; S.Bottom:=640;
  Image1.Canvas.StretchDraw(S,qq);
  qq.Free;
end;



Спасибо, косяк понял. Но почему то картинка одна, правее белая область((
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
procedure TForm1.Button1Click(Sender: TObject);
var
q,qq: TGIFImage;
R,S: TRect;
begin
q:= TGIFImage.Create;
q.LoadFromFile('C:\Users\Администратор\Desktop\60\2019.12.13 09.00.03.gif');
R.Left:=0; R.Top:=0; R.Right:=320; R.Bottom:=640;
Image1.Canvas.StretchDraw(R,q);
q.Free;
//Image1.Update;
qq:= TGIFImage.Create;
qq.LoadFromFile('C:\Users\Администратор\Desktop\60\2019.12.13 08.00.02.gif');
S.Left:=320; S.Top:=0; S.Right:=320; S.Bottom:=640;
Image1.Canvas.StretchDraw(S,qq);
qq.Free;
//Image1.Update;
end;
...
Рейтинг: 0 / 0
13.12.2019, 11:32
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902417
Delphi_Watcher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi_Watcher
Гость
Получилось вот так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
procedure TForm1.Button1Click(Sender: TObject);
var
q,qq: TGIFImage;
begin
q:= TGIFImage.Create;
q.LoadFromFile('C:\Users\Администратор\Desktop\60\2019.12.13 09.00.03.gif');
Image1.Canvas.Draw(0,0,q);
q.Free;
qq:= TGIFImage.Create;
qq.LoadFromFile('C:\Users\Администратор\Desktop\60\2019.12.13 08.00.02.gif');
Image1.Canvas.Draw(320,0,qq);
qq.Free;
end;
...
Рейтинг: 0 / 0
13.12.2019, 11:37
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902429
Delphi_Watcher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi_Watcher
Гость
Теперь не могу из Image1 сохранить это все в gif
Белая гифка создается пустая(
Код: pascal
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.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,GIFImage;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure SaveBitmapToGif(Bmp: TBitmap; FileName: string);
var
  Gif: TGIFImage;
begin
  //Создаем объект TGIFImage
  Gif := TGIFImage.Create;
  //Передаем туда картинку из Bitmap'а
  Gif.Assign(Bmp);
  //Удаляем лишние цвета из палитры
  Gif.OptimizeColorMap;
  //* Ура! *//
  //Сохраняем картинку в gif формате
  Gif.SaveToFile(FileName);
  Gif.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
q,qq: TGIFImage;
Bmp: TBitmap;
R: TRect;
begin
q:= TGIFImage.Create;
q.LoadFromFile('C:\Users\Администратор\Desktop\60\2019.12.13 09.00.03.gif');
Image1.Canvas.Draw(0,0,q);
q.Free;
qq:= TGIFImage.Create;
qq.LoadFromFile('C:\Users\Администратор\Desktop\60\2019.12.13 08.00.02.gif');
Image1.Canvas.Draw(320,0,qq);
qq.Free;
Image1.Update;
Bmp := TBitmap.Create;
Bmp.Width := 640;
Bmp.Height := 640;
R.Left := 0;
R.Right := 0;
R.Top := 0;
R.Bottom := 0;
Bmp.Canvas.CopyRect(R, Image1.Canvas, R);
SaveBitmapToGif(Bmp,'C:\Users\Администратор\Desktop\60\test.gif');
end;


end.



Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
13.12.2019, 11:51
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902435
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
13.12.2019 11:51, Delphi_Watcher пишет:
> Теперь не могу из Image1 сохранить это все в gif

пиши на ассемблере.
ты ж можешь.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13.12.2019, 11:57
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902437
Delphi_Watcher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi_Watcher
Гость
Мимопроходящий

13.12.2019 11:51, Delphi_Watcher пишет:
> Теперь не могу из Image1 сохранить это все в gif

пиши на ассемблере.
ты ж можешь.

не шарю в нем
...
Рейтинг: 0 / 0
13.12.2019, 11:59
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902440
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
13.12.2019 11:59, Delphi_Watcher пишет:
МП>>
МП>> пиши на ассемблере.
МП>> ты ж можешь.
>
> не шарю в нем

не может быть!
Delphi+asm
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13.12.2019, 12:04
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902452
Delphi_Watcher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi_Watcher
Гость
В чем косяк canvas выше?
...
Рейтинг: 0 / 0
13.12.2019, 12:24
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902456
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
13.12.2019 12:24, Delphi_Watcher пишет:
>
> В чем косяк canvas выше?
>

регистры не той разрядности.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13.12.2019, 12:25
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902478
Sapersky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sapersky
Гость
Delphi_Watcher
В чем косяк canvas выше?

R.Left := 0;
R.Right := 0;
R.Top := 0;
R.Bottom := 0;
...
Рейтинг: 0 / 0
13.12.2019, 12:59
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902557
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
Интересно, пациента можно как-то приучить оборачивать код в теги, или он в принципе не обучаем?
...
Рейтинг: 0 / 0
13.12.2019, 14:47
| Ответить | Цитировать | Написать  
Соединить две gif картинки
    #39902571
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
13.12.2019 14:47, Василий 2 пишет:
>
> Интересно, пациента можно как-то приучить оборачивать код в теги, или он в принципе не обучаем?

это тро-ло-ло.
почитай его предыдущие "опусы".
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13.12.2019, 15:08
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Соединить две gif картинки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39902557&tid=2038774]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 140ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 222ms
total:  461ms
созд. / загр.: 461ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]