MSWEBDVD - Unit???

[beckz]

Habe ein Problem will eine Unit schreiben die auf die MSWEBDVD.dll aufsetzt, wie man diese einbindet und welche Methoden was tun weiß ich schon aber ich hab Probleme das in eine Unit einzubinden auf die ich dann zugreife!!

Delphi-Quellcode:

unit uMSWEBDVD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MSWEBDVDLib_TLB;


implementation

procedure play(DVD: TMSWebDVD);
begin
  DVD.DVDDirectory := 'E:\VIDEO_TS\';
  DVD.Play;
end;

end.

Ich binde diese Unit dann in meiner DVDPlayer-Unit ein aber er findet die procedure play nicht was mache ich falsch??

Bitte helft mir!

[Khabarakh]

Du musst die Prozedur noch im interface-Abschnitt deklarieren:

Delphi-Quellcode:

unit uMSWEBDVD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MSWEBDVDLib_TLB;

procedure play(DVD: TMSWebDVD);

implementation

procedure play(DVD: TMSWebDVD);
begin
  DVD.DVDDirectory := 'E:\VIDEO_TS\';
  DVD.Play;
end;

end.

PS: Mit Multimedia hat das ja eigentlich nichts zu tun, eher Pascal allgemein.