[Bars1992]

Мне нуже хороший видео плеер наподобе флеш плееров которые используются на сайтах. Я уже облазил и torry и другие сайты но ничего подходящего не нашел.
Возможности плеера:
-Встроенные кнопки которые выежают с низу екрана (как у обычных флеш плееров)
-Развертывание на всеь экран
-чтение хоть одного известного видео формата

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

Поищите у себя в хранилищах, возможно у кого-то такой и завалялся

[NumLock]

чем через TWebBrowser не устраивает?

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser: TWebBrowser;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  if WebBrowser.Document=nil then WebBrowser.Navigate('about:blank');
  while WebBrowser.Document=nil do Application.ProcessMessages;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  document: OleVariant;
begin
  if OpenDialog1.Execute then
  begin
    document:=WebBrowser.Document;
    document.clear;
    document.open;
    document.write('<object type="application/x-shockwave-flash" width="200" height="200"><param name="movie" value="'+OpenDialog1.FileName+'" /></object>');
    document.close;
    while WebBrowser.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages;
  end;
end;

end.

http://data.cod.ru/67602

[friz]

если ты вставляешь флеш, то зачем тебе webbrowser? вставляй флеш на прямую! В нете есть много примеров работы delphi и флеш

[Bars1992]

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

если ты вставляешь флеш, то зачем тебе webbrowser? вставляй флеш на прямую! В нете есть много примеров работы delphi и флеш

Мне лутче чтоб плеер был в браузере, хотя твой вариант тоже надо попробывать. Только я наткнулся на один камень во флеше. скачал флеш плеер, создал тестовую страницу и пытался запустить локальный видеофайл. Но он не открылся. Пошарив в нете я узнал, что флеш, якобы обезопасивая меня, розрешает работать только с теми файлами и папками которые я указал в панели контроля на ихнем сайте. А такой вариант сам понимаешь не подходит. Попробую запустить плеер напрямую через флеш минуя браузер.

NumLock в твоем коде компилятор ругается на "document:=WebBrowser.Document;" и while WebBrowser.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages; с сообщением: "Object or class type required"

[NumLock]

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

NumLock в твоем коде компилятор ругается на "document:=WebBrowser.Document;" и while WebBrowser.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages; с сообщением: "Object or class type required"

ну я на delphi6 писал)