Hi!
Ich möchte einen eigenen DVD-Player mit Delphi proggen und dachte mir, dass das am besten mit der MSWebDVD-Komponente funktionieren würde.
Jetzt habe ich versucht diese zu implementieren, was auch gut funktioniert, jedoch weiß ich nicht, in was für einem Feld (vielleicht "TAnimate"?) ich das Video (die DVD) anzeigen kann. Hier ist der Quellcode, den ich bis jetzt geschrieben habe.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MSWEBDVDLib_TLB, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject; DVD: TMSWEBDVD);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject; DVD: TMSWEBDVD);
begin
DVD.DVDDirectory:='
D:\VIDEO_TS\';
DVD.Play;
end;
end.
Ich hoffe, dass mir da jemand weiterhelfen kann.