------ procedure TForm1.Button1Click(Sender: TObject); begin nsplay1.FileName := edit1.Text; nsplay1.Play; end;
end.
Som I kan se, bruger jeg NSPlay, men Delphi kommer med fejlen "Ole error 800A00005" - hvordan kan det være?
Faktisk var Variants.dcu også en del af uses, men denne har jeg slettet da jeg ikke har denne .dcu på min maskine åbenbart. Kan der være en sammenhæng mellem fejlen og at Variants ikke er en del af mine uses?
Variants er en Delphi7 (og nyere!?) ting, så hvis du bruger Delphi6 eller ældre, kan du blot fjerne den - det burde ikke have nogen indflydelse på dit program. Kan ikke helt huske hvilke funktioner der ligger i Variants ;)
Mht. NSPlay så ved jeg ikke lige hvad fejlen kan være - kender ikke rigtig det komponent, men du kan jo prøve at tjekke om stien passer.
OK - så fjerner du bare Variants under Uses - det burde som sagt ikke give nogen problemer, og har helt sikkert ikke noget at gøre med dit NSPlay problem :)
det har jeg gjort, men den bliver ved med at dukke op.. jeg har lige fundet ud af, at naar jeg starter programmet fra http://eksperten.dk/spm/186549 saa siger mangler der aabenbart noge komponenter?! Selvom jeg har installeret som der staar deri
LOL :-) , har I installeret det nye fede fra M$ framework 1.1 ? og 2 andre ting jeg ikke kan huske for at Delphi2005 kan lave .net appl i XP (jeg ved godt det ikke er en .net appl) M$ = nazi Heil Gates
Jeg har en XP med Delphi 7 ent og D2005 Arc. der virker det ikke, men på min 2k virker det, men NSPlay er også et interface til den gamle mediaplayer, så måske det er derfor det ikke rigtig kører i XP
Det jeg gjore var at lave en version under w2k og det virkede, så tog jeg exe filen over på min xp, og der virkede den fint, men jeg kan ikke compilere den under xp, jeg har så efterfølgende fået sat en property eller hvad det nu er, så nu virker den ikke, hverken på xp eller w2k, jeg har ikke haft tid til at kigge nærmere på det, men jeg vil foreslå dig at prøve dig lidt frem, evt kigge alle dine typelib's igennem, der dukker mange spændene ting op.
type TForm1 = class(TForm) NSPlay1: TNSPlay; Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin nsplay1.FileName := edit1.Text; // edit1.Text = path til en downloaded asx fil fra dr.dk nsplay1.Play; end;
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
