Видео в Delphi

[SалександрS]

Как можно прикрепить видео к программе на языке Delphi 7, и можно ли прикрепить его к компоненту web-browser? или какие - нибудь другие способы, помогите пожалуйста..

[Streletz]

Сообщение от SалександрS

Как можно прикрепить видео к программе на языке Delphi 7

Что значит прикрепить видео к программе? Какого формата это видео?
Если речь идёт о воспроизведении в программе обычных видеофайлов, то вот несколько способов:
Воспроизведение видео в Delphi

[SалександрS]

А можно ли вообще прикрепить его к компоненту webBrowser?

[zvygin1964]

unit Unit1;   //

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    MediaPlayer1: TMediaPlayer;
    CheckBox1: TCheckBox;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    function sGetTempPath: string;
    procedure Button2Click(Sender: TObject);
    procedure MediaPlayer1Notify(Sender: TObject);

    private
    { Private declarations }
    public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation
uses Unit2;

{$R *.dfm}
{$R Resources.RES}

function TForm1.sGetTempPath: string;
var
Buffer: array[0..1023] of Char;
begin
 SetString(Result, Buffer, GetTempPath(Sizeof(Buffer) - 1, Buffer));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'sample_avi', Pchar('AVI'));//название в Resources.rc sample_avi
//Res := TResourceStream.Create(hInstance, \'MY_MOV\', Pchar(\'ANYOL\'));
Res.SavetoFile(sGetTempPath+'sound.avi'); // название скомпилированого источника
//Res.SavetoFile(sGetTempPath+\'movie.swf\'); // где sGetTempPath - функция поиска каталога temp
Res.Free;

MediaPlayer1.Notify   := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.Visible:=True;
 CheckBox1.Checked :=False;
 MediaPlayer1.DeviceType:= dtAutoSelect;
 MediaPlayer1.FileName := 'C:\DOCUME~1\Admin\LOCALS~1\Temp\sound.avi';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
 end;

{ОТЛАДОЧНЫЕ ДЕЙСТВИЯ:}

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Add(sGetTempPath);// Ищу куда распаковывался   sound.avi .
  //Нашел, сюда: C:\DOCUME~1\Admin\LOCALS~1\Temp\sound.avi
end;
 {"После окончания работы программы не забывайте подчищать за собой",- как удалять файл будем разбираться позже}
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin    //Определяю состояние  MediaPlayer
if mediaplayer1.Mode = mpStopped then
begin // статус = mpStopped, то значит, видео закончилось
    CheckBox1.Checked := MediaPlayer1.Notify;
    Form2.Visible:=False;
end;
end;
end.

[Streletz]

Сообщение от SалександрS

А можно ли вообще прикрепить его к компоненту webBrowser?

Создать страничку с тегом <video> (это HTML5) либо с использованием Flash плеера. После открыть её в компоненте webBrowser.
Компонент webBrowser предназначен для отображения в программе web страниц, а не для воспроизведения видео.

[Alex11223]

А можно ли вообще прикрепить его к компоненту webBrowser?

Что именно вы хотите? У вас файл с видео (на том же компе) и его надо воспроизвести или надо видео с какого-то сайта?

Создать страничку с тегом <video> (это HTML5)

На страницу тогда надо добавить

<meta http-equiv="X-UA-Compatible" content="IE=edge"/>

Ну и соответственно на компе должен стоять IE не ниже 9 версии. И видео должно быть в mp4.

По умолчанию WebBrowser использует режим 7 версии IE независимо от версии установленной на компе.

[SалександрS]

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

Что именно вы хотите? У вас файл с видео (на том же компе) и его надо воспроизвести или надо видео с какого-то сайта?

У меня программа справочника, на компоненте TreeView расположены разделы с наименованиями, при нажатии на компоненте любого наименования в компоненте webBrowser отображается информация, хочу к этой информации еще видео файл добавить

[Alex11223]

Ну значит смотрите сообщения #5 и #6.

[SалександрS]

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

Ну значит смотрите сообщения #5 и #6.

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

[Alex11223]

IE >= 9 подходит? Тогда что-то типа

<!DOCTYPE html> 
<head>
    <meta http-equiv="X-UA-Compatible" content="IE=edge"/>
</head>
<html> 
<body> 

<video src="путь_к_видео/видео.mp4" controls />

</body> 
</html>

ссылку на сайт с подобной информацией?

https://www.google.com/search?q=html5+video