Как сделать, чтобы при запуске программы включалось видео

@yegis · Регистрация: 22.11.2014

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

Я сделал программу в которой при запуске включается видео, как мне сделать что бы видео включалось(автоматически) на чужом компе, проблема в том что путь указан на моем компе не подходит к чужим.Помогите плз!

@Cortex1998 · 23.11.2014, 15:55

Хоть код выложите..

@yegis · 23.11.2014, 16:24 **[ТС]**

Добавлено через 10 минут

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
if button2.visible = true then
with MediaPlayer1 do begin
Display:= Panel1;
FileName:= OpenDialog1.FileName;
Open;
DisplayRect := Panel1.ClientRect;
Play; end;
end ;
 
 
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
MediaPlayer1.Open;
mediaplayer1.Display:= Panel1;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
button2.visible:=true;
if button2.visible = true then
with MediaPlayer1 do begin
Display:= Panel1;
FileName:= OpenDialog1.FileName;
Open;
DisplayRect := Panel1.ClientRect;
Play; end;
end ;
end;

@cotseec · 23.11.2014, 16:26

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

@yegis · 23.11.2014, 16:30 **[ТС]**

Да, но будьте добры, приведите пример кода(правильного), я долго мучался с этим, менял, но в другом случаю надо показывать переходы в ручную, а мне нужно что бы автоматически видео включалось.

@cotseec · 23.11.2014, 16:55

файл, который необходимо запустить первым, положить в папку с программой, тогда вместо

Delphi

.....
with MediaPlayer1 do begin
Display:= Panel1;
FileName:= OpenDialog1.FileName;
Open;
.....

будет

Delphi

....
with MediaPlayer1 do begin
Display:= Panel1;
FileName:= ExtractFilePath (ParamStr(0)) + 'Имя файла, который необходимо воспроизвести';
Open;
.....

@yegis · 23.11.2014, 17:08 **[ТС]**

путь не находит, вопрос - мне нужно удалить опендиалог что бы работало?

@cotseec · 23.11.2014, 17:19

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

путь не находит

файл, который необходимо воспроизвести находится в папке с программой? как выглядит измененная строка?

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

мне нужно удалить опендиалог

судя по приведенному коду, опендиалог используется как хранилище пути, можно заменить строковой переменной

@yegis · 23.11.2014, 17:29 **[ТС]**

Работает я удалил опендиалог, указал в медиаплеер видео, но есть одно но, указанный путь в медиаплеер вот- C:\Users\Andrew\Desktop\antosha\video.avi, а на чужом компьютере другой будет, из-за этого может не запустить,(ваш код работает).

@cotseec · 23.11.2014, 17:34

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

на чужом компьютере другой будет, из-за этого может не запустить

т.е. строка FileName:= ExtractFilePath (ParamStr(0)) + 'Имя файла, который необходимо воспроизвести'; (в данном случае FileName:= ExtractFilePath (ParamStr(0)) + 'video.avi'

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

везде, где есть FileName:= ..... напишите FileName:= ExtractFilePath (ParamStr(0)) + 'video.avi'; и будет счастье при условии, что файл (на любом компьютере) будет находится в папке с запускаемой программой

@yegis · 23.11.2014, 17:44 **[ТС]**

Последний вопрос, мне в медиаплаеере(там где обьект инспектор) надо добавить переход в программу, если я добавлю переход(на своем компьютере) и скину кому-то программу(вместе с видео) то будет счастье?(я везде заменю как вы сказали.)

@cotseec · 23.11.2014, 17:55

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

надо добавить переход в программу,

что скрывается под этой фразой?
в любом случае все абсолютные пути к требуемым файлам необходимо менять на относительные

@yegis · 23.11.2014, 18:03 **[ТС]**

переход программы к видео.

Добавлено через 6 минут

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

что скрывается под этой фразой?

переход программы к видео. сейчас там вот так - C:\Users\Andrew\Desktop\Чит\MyFirstGame\video.avi , а надо как?

@саша40 · 23.11.2014, 18:38

yegis, Поместить видео файл в папку поближе к программе. И путь задавать для проигрывания так:

Delphi

1	MediaPlayer1.FileName:=ExtractFilePath(Application.ExeName)+'Movies\видео1.avi';

видео1.avi- это название файла с проигрываемым видео. Файл находится в папке Movies, которая находится в папке с программой.

@yegis · 29.11.2014, 20:00 **[ТС]**

Мне пишет ошибку, при запуске программы: ,,Не удалось определить тип устройства по указанному расширению имени файла.

@yegis · 29.11.2014, 21:05 **[ТС]**

Название видео(video.avi) мне нужно что бы на чужом компьютере при включение программы включалось видео, проблема в том - что я не знаю как написать правильный код ( в моем случае пишет ошибку:Не удалось определить тип устройства по указанному расширению имени файла. или программа включается но только на моем компьютере, а необходимо и на чужом!).

Пример моего кода

Pascal

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
MediaPlayer1.FileName:=ExtractFilePath(Application.ExeName)+'video.avi';
MediaPlayer1.Open;
 mediaplayer1.Display:= Panel1;
end;
 
button2.visible:=true; //оно всегда видимо(всегда вкл).
if button2.visible = true then
with MediaPlayer1 do  begin
Display:= Panel1;
FileName:= ExtractFilePath (ParamStr(0)) + 'video.avi';
Open;
DisplayRect := Panel1.ClientRect;
Play; end;
end ;
end;

@nmcf · 29.11.2014, 21:09

Это Delphi, а раздел про C++.
Проблема с воспроизведением вообще, или ты не знаешь, как сделать, чтобы оно сразу включалось?

@taras atavin · 29.11.2014, 21:11

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

как сделать что бы при запуске программы включалось видео(автоматически)!

Пропиши запуск видео в исходном тексте программы.

@JokeR.BY · 29.11.2014, 21:25

это делфи, а не паскаль, нет?

Добавлено через 4 минуты
п.с. копайте в сторону TForm1.FormShow

@yegis · 29.11.2014, 21:42 **[ТС]**

Я сделал программу в которой при запуске включается видео, как мне сделать что бы видео включалось(автоматически) на чужом компе, проблема в том что путь указан на моем компе(В Медиаплеере ) не подходит к чужим.Помогите плз! у меня путь к файлу в медиа плеере C:\Users\Andrew\Desktop\antosha\video.avi

код:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
if button2.visible = true then
with MediaPlayer1 do  begin
Display:= Panel1;
FileName:= ExtractFilePath (ParamStr(0)) + 'video.avi';
Open;
DisplayRect := Panel1.ClientRect;
Play; end;
end ;
 
 
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
FileName:= ExtractFilePath (ParamStr(0)) + 'video.avi';
MediaPlayer1.Open;
 mediaplayer1.Display:= Panel1;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
if button2.visible = true then
with MediaPlayer1 do  begin
Display:= Panel1;
FileName:= ExtractFilePath (ParamStr(0)) + 'video.avi';
Open;
DisplayRect := Panel1.ClientRect;
Play; end;
end ;
end;

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	23.11.2014, 17:55	12
	Сообщение от yegis надо добавить переход в программу, что скрывается под этой фразой? в любом случае все абсолютные пути к требуемым файлам необходимо менять на относительные 0

@yegis 0 / 0 / 1 Регистрация: 22.11.2014 Сообщений: 31
	23.11.2014, 18:03 [ТС]	13
	переход программы к видео. Добавлено через 6 минут Сообщение от cotseec что скрывается под этой фразой? переход программы к видео. сейчас там вот так - C:\Users\Andrew\Desktop\Чит\MyFirstGame\video.avi , а надо как? 0

@Cortex1998 18 / 18 / 11 Регистрация: 05.01.2014 Сообщений: 119 Записей в блоге: 2
	23.11.2014, 15:55	2
	Хоть код выложите.. 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	23.11.2014, 16:26	4
	на формкриэйт что-то загружается соглано пути в опендиалоге, если в нем сразу прописан конкретный путь (судя по приведенному коду так оно и есть), то корень зла таится в нем 0

@yegis 0 / 0 / 1 Регистрация: 22.11.2014 Сообщений: 31
	23.11.2014, 16:30 [ТС]	5
	Да, но будьте добры, приведите пример кода(правильного), я долго мучался с этим, менял, но в другом случаю надо показывать переходы в ручную, а мне нужно что бы автоматически видео включалось. 0

@yegis 0 / 0 / 1 Регистрация: 22.11.2014 Сообщений: 31
	23.11.2014, 17:08 [ТС]	7
	путь не находит, вопрос - мне нужно удалить опендиалог что бы работало? 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	23.11.2014, 17:19	8
	Сообщение от yegis путь не находит файл, который необходимо воспроизвести находится в папке с программой? как выглядит измененная строка? Сообщение от yegis мне нужно удалить опендиалог судя по приведенному коду, опендиалог используется как хранилище пути, можно заменить строковой переменной 0

@yegis 0 / 0 / 1 Регистрация: 22.11.2014 Сообщений: 31
	23.11.2014, 17:29 [ТС]	9
	Работает я удалил опендиалог, указал в медиаплеер видео, но есть одно но, указанный путь в медиаплеер вот- C:\Users\Andrew\Desktop\antosha\video.avi, а на чужом компьютере другой будет, из-за этого может не запустить,(ваш код работает). 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	23.11.2014, 17:34	10
	Сообщение от yegis на чужом компьютере другой будет, из-за этого может не запустить т.е. строка FileName:= ExtractFilePath (ParamStr(0)) + 'Имя файла, который необходимо воспроизвести'; (в данном случае FileName:= ExtractFilePath (ParamStr(0)) + 'video.avi' и дважды напоминание о положить файл в папку с программой остались без внимания везде, где есть FileName:= ..... напишите FileName:= ExtractFilePath (ParamStr(0)) + 'video.avi'; и будет счастье при условии, что файл (на любом компьютере) будет находится в папке с запускаемой программой 0

@yegis 0 / 0 / 1 Регистрация: 22.11.2014 Сообщений: 31
	23.11.2014, 17:44 [ТС]	11
	Последний вопрос, мне в медиаплаеере(там где обьект инспектор) надо добавить переход в программу, если я добавлю переход(на своем компьютере) и скину кому-то программу(вместе с видео) то будет счастье?(я везде заменю как вы сказали.) 0

@yegis 0 / 0 / 1 Регистрация: 22.11.2014 Сообщений: 31
	29.11.2014, 20:00 [ТС]	15
	Мне пишет ошибку, при запуске программы: ,,Не удалось определить тип устройства по указанному расширению имени файла. 0

@nmcf 7789 / 6556 / 2984 Регистрация: 14.04.2014 Сообщений: 28,661
	29.11.2014, 21:09	17
	Это Delphi, а раздел про C++. Проблема с воспроизведением вообще, или ты не знаешь, как сделать, чтобы оно сразу включалось? 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	29.11.2014, 21:11	18
	Сообщение от yegis как сделать что бы при запуске программы включалось видео(автоматически)! Пропиши запуск видео в исходном тексте программы. 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	29.11.2014, 21:25	19
	это делфи, а не паскаль, нет? Добавлено через 4 минуты п.с. копайте в сторону TForm1.FormShow 0