Söker efter controllerna till WindowsMediaPlayer activex. Känner något till dem? I mitt Delphi ligger den under fliken System tillsammans med bla. Timern. Har importerat activex controllern för WindowsMediaPlayer och jag kanske uttryckte mig oklart men det jag är ute efter är vilka kommandon som finns och vad de gör.... Lägg in kontrollen på din Form och sätt den AutoOpen = True Jag har försökt med hjälp filen men det gäller inte den interna MediaPlayern utan den importerade activex controllen för WindowsMediaPlayer. Kommandona du gav som exempel fungerar inte tillsammans med denna. Djä... "Bullshit" din djä... tönt Sven, du kan nog vara en tönt själv. Han vill ju inte använda den inbyggda mediaplayern utan köra en importerad sak. Din kod löser inte problemet... Oki jag ber om ursät för ett obalanserat uttalande. Tacksam för din dyrbara tid och dina fungerande exempel. Tyvärr fungerade de inte alls för mig, vi har pratat om två helt olika saker, men problemet löst genom traditionellt, hederligt markarbete. Ok "No hard feelings" hoppas jagWindowsMediaPlayer activex
Skulle vilja dölja control baren under filmfönstret.Sv: WindowsMediaPlayer activex
Sv:WindowsMediaPlayer activex
Sv: WindowsMediaPlayer activex
Sätt alla knappar EnabledButtons = True
Sätt alla knappar VisbleButtons = True
Lägg in en .wav fil under FileName och spela för glatta livet
Knapparna funkar som man är van vid på vilken spelare som helst.
Förmodligen har du glömt sätta AutoOpen = True
Om du bara skriver MediaPlayer1. så kommer ju alla
valmöjligheter/kommando upp när du tryckt (punkt)
<code>
{'type TMPDeviceTypes = (dtAutoSelect, dtAVIVideo, dtCDAudio,
'dtDAT, dtDigitalVideo, dtMMMovie, dtOther, dtOverlay, dtScanner,
'dtSequencer, dtVCR, dtVideodisc, dtWaveAudio);
'procedure Open;
'Use Open to open a multimedia device.
'The multimedia device type must be specified in the DeviceType property
'before a device can be opened.}
procedure TForm1.Button1Click(Sender: TObject);
var
wavPath : String ;
begin
wavPath := 'C:\Windows\Media\tada.wav' ;
MediaPlayer1.FileName := wavPath ;
//'If DeviceType is dtAutoSelect, the media player attempts to determine
//'the type of device from the extension of the file specified by FileName."
//' Förmodligen skall du välja dtAVIVideo här
MediaPlayer1.DeviceType := dtAutoSelect ;
MediaPlayer1.Open ;
MediaPlayer1.Play ;
end;
</code>
Sen ett gott, råd lär dig hitta i Hjälpfilen i detta fall Delphi VCL TMediaPlayer
där hittar du svaret på din fråga.Sv:WindowsMediaPlayer activex
Sv: WindowsMediaPlayer activex
Om du bara gjort dig besvär och startat en nytt projekt
och kört den kod jag visar så funkar det !!!Sv:WindowsMediaPlayer activex
Sv: WindowsMediaPlayer activex
Men jag blir så djä... frustrerad när man lägger ner tid på att visa ett fungerande exempel.Sv:WindowsMediaPlayer activex
Sv: WindowsMediaPlayer activex
Förmodligen satte koden jag visade Er på,på spår ! ;-)