Гиф анимация

@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]

Новые блоги и статьи Все статьи Все блоги /
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .

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

	Гиф анимация 19.01.2023, 14:46. Показов 1867. Ответов 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

Гиф анимация

Решение