Witam.
Mam problem z media playerem wydanym przez Lord Dr. Andrei J. Sagura II von Orechov czy jakos tak.
Chodzi o to ze jak uruchamiam zrobiony przez autora demo player to wszysto gra ale jak otworze nowy document w delphi i poloze na formatke Panel, jakis przycisk do rozpoczecia odtwarzanie lub po prostu informowania czy plik sie wczytal, dodam kod pas z demo programu autora to przy probie odtworzenia pliku video dostaje za kazdym razem komunikat "Error loading file". Dodam ze do katalogu gdzie mam wszystkie pliki projektu dodaje pliki: MediaInterface.pas, mediaplr.dll i plik video.
Co jest nie tak bo juz zglupialem. Ponizej zamieszczam kod z mojego pliku pas ktory po prostu ma informowac czy plik zostal zaladowany.
unit player;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, SHFolder, MediaInterface;
type
TForm1 = class(TForm)
Panel1: TPanel;
SpeedButton2: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
end;
var
MediaFileName : shortString = 'zegar.wmv';
Form1: TForm1 = nil;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
ShowMessage(aboutMediaPlayer);
ShowMessage(loadMediaFile(MediaFileName, Panel1.Handle));
end;
end.