Ĺadny brzuch
Zrobiłem odtwarzacz na podstawie opisu z eksperta i nie chce on pokazywać obrazu filmu na 2 formie (jest czarna i nic sie nie dzieje) Gdzy się wyłączy okno wideo to leci dziwięk z filmu.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DSPack, Menus, Buttons; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; OpenDialog1: TOpenDialog; FilterGraph1: TFilterGraph; DSTrackBar1: TDSTrackBar; Button1: TButton; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; procedure Button1Click(Sender: TObject); procedure DSTrackBar1Timer(sender: TObject; CurrentPos, StopPos: Cardinal); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation Uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin FilterGraph1.ClearGraph; FilterGraph1.RenderFile(OpenDialog1.FileName); if(OpenDialog1.filterIndex=1) then Form2.ShowModal else Form2.Hide; Label2.Caption:=openDialog1.FileName; FilterGraph1.Play; end; end; procedure TForm1.DSTrackBar1Timer(sender: TObject; CurrentPos, StopPos: Cardinal); begin label1.Caption:=Format('%s/%s', [TimeToStr(CurrentPos/(24*3600*1000)), TimeToStr(StopPos/(24*3600*1000))]); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin FilterGraph1.ClearGraph; filterGraph1.Destroy; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin FilterGraph1.Stop; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin FilterGraph1.Pause; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin FilterGraph1.play; end; end.
Użytkownik turboasm edytował ten post 25 czerwiec 2005, 13:37
pierwsze co mi się nasuwa to pytanie czy masz kodeki do odtwarzania?
drugie. dokładnie zrobiłes wszystko jak w ekspercie?
trzecie. a kompilujesz to aspod delphi czy uruchamiasz tak jak twórcy przykazali? bo mi się uruchomić dało spod delphi ale miałem takie efekty jak ty.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DSPack, Menus, Buttons; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; OpenDialog1: TOpenDialog; FilterGraph1: TFilterGraph; DSTrackBar1: TDSTrackBar; Button1: TButton; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; procedure Button1Click(Sender: TObject); procedure DSTrackBar1Timer(sender: TObject; CurrentPos, StopPos: Cardinal); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation Uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin FilterGraph1.ClearGraph; FilterGraph1.RenderFile(OpenDialog1.FileName); if(OpenDialog1.filterIndex=1) then Form2.ShowModal else Form2.Hide; Label2.Caption:=openDialog1.FileName; FilterGraph1.Play; end; end; procedure TForm1.DSTrackBar1Timer(sender: TObject; CurrentPos, StopPos: Cardinal); begin label1.Caption:=Format('%s/%s', [TimeToStr(CurrentPos/(24*3600*1000)), TimeToStr(StopPos/(24*3600*1000))]); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin FilterGraph1.ClearGraph; filterGraph1.Destroy; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin FilterGraph1.Stop; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin FilterGraph1.Pause; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin FilterGraph1.play; end; end.
Użytkownik turboasm edytował ten post 25 czerwiec 2005, 13:37
pierwsze co mi się nasuwa to pytanie czy masz kodeki do odtwarzania?
drugie. dokładnie zrobiłes wszystko jak w ekspercie?
trzecie. a kompilujesz to aspod delphi czy uruchamiasz tak jak twórcy przykazali? bo mi się uruchomić dało spod delphi ale miałem takie efekty jak ty.