Гиф анимация

@SebastianLa · Регистрация: 27.02.2022

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

Люди помогите пожалуйста создал программу с гиф анимацией на лазарус, но когда перенес на другой комп программу, программа не открывается с гиф анимацией (другой комп не имеет лазаруса) и выдает постоянные ошибки. Как сделать так чтобы данная программа открывалась с гиф анимацией, но без лазаруса ?

Verevkin · 19.01.2023, 16:21

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

не обязательно, можно только один GifViewer

Но без них невозможно открыть проект.

@AzAtom · 19.01.2023, 16:40

SebastianLa, смотри, очищаешь у всех GIFView поле FileName, потом в OnCreate формы пишешь:

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm4.FormCreate(Sender: TObject);
var
  p: string;
begin
  p := ExtractFilePath(Application.ExeName);
  GIFViewer1.FileName := p + 'Vertical 2.gif';
  GIFViewer2.FileName := p + 'Vertical 2.gif';
  GIFViewer3.FileName := p + 'Vertical 2.gif';
  GIFViewer4.FileName := p + 'Vertical 2.gif';
end;

Delphi
1
2
3
4
5
6
7
8
procedure TForm8.FormCreate(Sender: TObject);
var
  p: string;
begin
  p := ExtractFilePath(Application.ExeName);
  GIFViewer1.FileName := p + 'Ankh.gif';
  GIFViewer2.FileName := p + 'Ankh.gif';
end;

И так для каждой формы для всех гифок.
Тогда программа всегда будет искать гифки рядом с .exe файлом.

@SebastianLa · 19.01.2023, 16:42 **[ТС]**

спасибо огромное, ты спас мой мозг, а то его полностью весь сломал

Verevkin · 19.01.2023, 16:43

Компонент прекрасно работает, кстати.

Делать было нечего.....

Verevkin · 19.01.2023, 16:49

Моё демо-приложение:

@SebastianLa · 19.01.2023, 18:48 **[ТС]**

Спасибо еще раз большое )

Добавлено через 1 час 56 минут
а как на линуксе это сделать, а то я только линукс использую, при этом нужно чтобы это было постоянно

Verevkin · 19.01.2023, 19:00

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

а как на линуксе это сделать, а то я только линукс использую, при этом нужно чтобы это было постоянно

А чо не получается?

@SebastianLa · 19.01.2023, 19:03 **[ТС]**

Показывает путь и все, а все также сделал как вы сказали

Verevkin · 19.01.2023, 19:09

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

Показывает путь и все, а все также сделал как вы сказали

Как я сказал?!
----
Ладно, просто проверь, есть файл-то по этому пути...

@SebastianLa · 19.01.2023, 19:12 **[ТС]**

хорошо, сейчас проверю

Verevkin · 19.01.2023, 19:16

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

хорошо, сейчас проверю

Одолжение мне делаешь?
Не надо.

@SebastianLa · 19.01.2023, 19:23 **[ТС]**

все равно выдает к несчастью ошибку

Добавлено через 43 секунды
Одолжение мне делаешь?
Не надо. ----я не хотел оскорбить сорри )))

Добавлено через 2 минуты
у меня такой путь к файлу /home/archonr/Документы/Mea consilia in Lazarum/BloodPad/

Verevkin · 19.01.2023, 19:23

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

все равно выдает к несчастью ошибку

Файл-то есть?
Я не знаю французского.
Как переводится это сообщение об ошибке?

Verevkin · 19.01.2023, 19:24

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

у меня такой путь к файлу /home/archonr/Документы/Mea consilia in Lazarum/BloodPad/

А в сообщении об ошибке - другой путь.

@SebastianLa · 19.01.2023, 19:26 **[ТС]**

le ficher - фаил

Добавлено через 46 секунд
я клонировал программу

сам путь вот /home/archonr/Документы/Mea consilia in Lazarum/Full Version/BloodPad/

Verevkin · 19.01.2023, 19:26

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

le ficher - фаил

А дальше?

@SebastianLa · 19.01.2023, 19:29 **[ТС]**

est introuvable - не найден

Verevkin · 19.01.2023, 19:31

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

le ficher - фаил

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

est introuvable - не найден

Ну. Какие-нибудь мысли у тебя по этому поводу появились?

@SebastianLa · 19.01.2023, 19:35 **[ТС]**

я понимаю что фаил по данному пути не найдет, следовательно нужно сделать прописать полный путь к файлу с переменной , я прав? (да кстати я не программист, всего лишь саллага в этом) и программу делаю для себя

Verevkin · 19.01.2023, 19:37

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

следовательно нужно сделать прописать полный путь к файлу с переменной , я прав?

Нет.
Нужно полное имя файла с путём вычислять во время выполнения программы.
Тебе ж показали, как это делать.

[DELETED]

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@SebastianLa 0 / 0 / 0 Регистрация: 27.02.2022 Сообщений: 56

	Гиф анимация 19.01.2023, 14:46. Показов 1847. Ответов 49 Метки нет (Все метки) Люди помогите пожалуйста создал программу с гиф анимацией на лазарус, но когда перенес на другой комп программу, программа не открывается с гиф анимацией (другой комп не имеет лазаруса) и выдает постоянные ошибки. Как сделать так чтобы данная программа открывалась с гиф анимацией, но без лазаруса ? 0

@SebastianLa 0 / 0 / 0 Регистрация: 27.02.2022 Сообщений: 56
	19.01.2023, 16:42 [ТС]
	спасибо огромное, ты спас мой мозг, а то его полностью весь сломал 0

@SebastianLa 0 / 0 / 0 Регистрация: 27.02.2022 Сообщений: 56
	19.01.2023, 18:48 [ТС]
	Спасибо еще раз большое ) Добавлено через 1 час 56 минут а как на линуксе это сделать, а то я только линукс использую, при этом нужно чтобы это было постоянно 0

@SebastianLa 0 / 0 / 0 Регистрация: 27.02.2022 Сообщений: 56
	19.01.2023, 19:03 [ТС]
	Показывает путь и все, а все также сделал как вы сказали Миниатюры 0

@SebastianLa 0 / 0 / 0 Регистрация: 27.02.2022 Сообщений: 56
	19.01.2023, 19:12 [ТС]
	хорошо, сейчас проверю 0

@SebastianLa 0 / 0 / 0 Регистрация: 27.02.2022 Сообщений: 56
	19.01.2023, 19:23 [ТС]
	все равно выдает к несчастью ошибку Добавлено через 43 секунды Одолжение мне делаешь? Не надо. ----я не хотел оскорбить сорри ))) Добавлено через 2 минуты у меня такой путь к файлу /home/archonr/Документы/Mea consilia in Lazarum/BloodPad/ 0

@SebastianLa 0 / 0 / 0 Регистрация: 27.02.2022 Сообщений: 56
	19.01.2023, 19:26 [ТС]
	le ficher - фаил Добавлено через 46 секунд я клонировал программу сам путь вот /home/archonr/Документы/Mea consilia in Lazarum/Full Version/BloodPad/ 0

@SebastianLa 0 / 0 / 0 Регистрация: 27.02.2022 Сообщений: 56
	19.01.2023, 19:29 [ТС]
	est introuvable - не найден 0

@SebastianLa 0 / 0 / 0 Регистрация: 27.02.2022 Сообщений: 56
	19.01.2023, 19:35 [ТС]
	я понимаю что фаил по данному пути не найдет, следовательно нужно сделать прописать полный путь к файлу с переменной , я прав? (да кстати я не программист, всего лишь саллага в этом) и программу делаю для себя 0

Гиф анимация

Решение