Ovládanie WindowsMediaPlayer1 cez activex v delphi

HMilos · Napísal **HMilos**: 30.09.2009 21:30

Cez activex mám v delphi 7 vložený windows media player a tomu dávam visible false
keď chcem niečo prehrať robím to takto:
WindowsMediaPlayer1.url:=cestaksuboru;

no a to je jediné čo som zistil
má to ešte nejaké možnosti ? zišlo by sa napríklad stav či sa ešte prehráva elbo už skončilo a podobne

shiro · Napísal **shiro**: 01.10.2009 0:52

sak ked napises windowsmediaplayer1. (s bodkou na konci) tak ti vybehne autocomplete, a tam mas vsetko co vie ta komponenta pouzit a co podporuje.

Draco · Napísal **Draco**: 29.10.2009 22:27

To ci pesnicka skoncila mozes zistit aj tak, ze komponentu Gauge (popripade ProgressBar) priradis prehravac.Position. To daj co timeru, nech sa ti to obnovuje. Jeho max hodnotu das ako prehravac.Length.

Prosim Vas, ja by som mal tiez otazky co sa tyka prehravacu:
1, Pridal som tlacidlo na "pretacanie" piesne. Avsak potrebujem, aby ked bude tlacidlo stlacene sa vykonalo toto (prehravac.Pause;
posuvanie_t.Enabled:=true;) a ked uvolnim tlacidlo tak toto( posuvanie_t.Enabled:=false;
prehravac.play;). Popripade while cyklus, ze pokym je tlacidlo stlacene aby to nieco vykonavalo. Ale nenasiel som nieco ako buttonpress

2, Mam vytvoreny subor IniFile, kde sa mi uklada playlist. Ten sa nasledne vypisuje do ListBoxu. Avsak potreboval by som, aby sa do ListBoxu vypisal iba nazov penicky. Niekde som cital nieco o ExtractFilePath ale nieviem si predstavit ako to pouzit.

Vopred dakujem

Fico · Napísal **Fico**: 30.10.2009 11:56

1.) dá sa to napríklad takto: V OnMouseDown tlačidla sa bude vykonávať kód a OnMouseUp sa dá povel na ukončenie vykonávania. Mohlo by to vyzerať nasledovne:

Kód:

var
  start: boolean = false;

(* ... *)

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

start:= true;

while start do begin

// potrebný kód ...

  Application.ProcessMessages;

end;

end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

start:= false;

end;

2.) Názov súboru sa získa pomocou funkcie ExtractFileName, ktorého parameter je celá cesta k súboru (ExtractFilePath extrahuje cestu, teda všetko okrem názvu).

Draco · Napísal **Draco**: 30.10.2009 17:15

1, Toto som vyriesil uz trochu inak ale skusim to aj takto, ci to bude lepsie

2, Tu je problem, ze do toho listboxu davam TStringList. Pre lepsiu predstavu, tu mas kod kde s tym pracujem

Kód:

var
pauza: boolean;
prehravac: TMediaPlayer;
skladby: TStringList;
ini:TIniFile;
procedure TForm1.FormCreate(Sender: TObject);
var
    i: Integer;
begin
 ini:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'\nastaveni.ini');
 skladby:= TStringList.Create;
 ini.ReadSection('skladby',skladby);
 for i := 0 to skladby.Count -1 do
  playlist.Items.Add(ini.ReadString('skladby',skladby.Strings[i],''));
 playlist.ItemIndex:=ini.ReadInteger('ostatni','aktualni',0);
 skladby.free;
 ini.free;
 prehravac:=TMediaPlayer.Create(Form1);
 prehravac.Parent:=Form1;
 prehravac.Visible:=false;

end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var ini:TIniFile;
    i: integer;
begin
 prehravac.Free;
 ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\nastaveni.ini');
 ini.EraseSection('skladby');

  for i := 0 to playlist.Items.Count-1 do begin
   ini.WriteString('skladby', IntToStr(i), playlist.Items.Strings[i]);
  end;
  ini.WriteInteger('ostatni','aktualni', playlist.ItemIndex);
  ini.Free;
 end;


procedure TForm1.pridat_soubor_btnClick(Sender: TObject);
begin
opendialog1.execute();
playlist.Items.AddStrings(opendialog1.files);

Fico · Napísal **Fico**: 30.10.2009 19:15

Z riadku:

Kód:

ini:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'\nastaveni.ini');

odstráň v +'\nastaveni.ini' lomítko, pretože ExtractFilePath ho už obsahuje (asi to funguje aj takto, keďže si nič nehlásil, ale správny zápis by mal byť tento).

Pridávanie do ListBoxu som našiel iba v tele procedúry OnClick tlačidla pridat_soubor_btn. Takže úprava:

Kód:

if OpenDialog1.Execute then
    playlist.Items.Add( ExtractFileName(OpenDialog1.FileName) );

Draco · Napísal **Draco**: 30.10.2009 23:17

JJ, funguje to

Problém nastáva, že keď aj označím viac pesničiek, tak sa mi pridá iba jedna. Multiselect v opendialogu mám povolený - teda každý názov sa mi dáva do úvodzoviek ;-)

Ešte by som sa chcel spýtať - kde sa možem pokračovať učiť v delphi? Pretože väčšinu seriálov som už prešiel a knižku som nenašiel žiadnu.

Fico · Napísal **Fico**: 31.10.2009 0:02

Aha, máš MultiSelect, tak v tom prípade to uprav takto:

Kód:

if OpenDialog1.Execute then
  for i:= 0 to (OpenDialog1.Files.Count - 1) do
    Memo1.Lines.Add( ExtractFileName(OpenDialog1.Files[i]) );

Snáď to už je dobre

Odkiaľ sa učiť? Myslím, že ak človek ovláda jazyk na pokročilej úrovni, tak úplne stačí niečo vygoogliť a učiť sa. Buď nejaký seriál, alebo nejaké "triky", ktoré sa môžu hodiť. Ak nemáš šajnu, kde začať, na http://www.builder.cz chodievali dosť dobré seriály o čomkoľvek - či už jednoduché vizuálne aplikácie, konvertovanie grafických formátov, hry s využitím DelphiX, práca s portami, databázy, pluginy do winampu, atď. Je z čoho vyberať.

Draco · Napísal **Draco**: 31.10.2009 12:19

Funguje to

Akurát, playlist sa uloží ale pri druhom spustení vyhodí chybu. (pri inicializaci MCI nastala chyba). Asi bude niekde len drobná chybička, tak to pozriem

Mohol by si mi, prosím ťa, napísať príkaz, aby miesto Caption buttonu bol nejaký obrázok?:)

Neviem či na pokročilej úrovni. Ovládam cykly, podmienky, vlastné funckie, procedúry, polia, triedy, záznamy (čiže trochu aj OOP) a tu už väščina seriálov končí

Ale ten builder.cz sa mi pozdáva

Draco · Napísal **Draco**: 31.10.2009 23:27

Našiel som problém ten problém. Ide o to, že si nezapamätá cestu k tomu adresáru, čiže pri opätovnom spustení vyhodí chybu (pokiaľ sa pesnička nenachádza v priečinku s Delphi). Napadlo mi, že z opendialogu by sa mohli tie piesne ukladat do toho ini súboru (extractfilepath) a playlist by sa mohol odtiaľ načítavať(extractfilename). Zajtra večer to skúsim tak nejak spraviť, dám vedieť

Fico · Napísal **Fico**: 07.11.2009 0:01

Draco píše:

Mohol by si mi, prosím ťa, napísať príkaz, aby miesto Caption buttonu bol nejaký obrázok?

Sorry, až teraz som si všimol tú otázku. Ak chceš mať v buttone obrázok, tak namiesto klasického použi SpeedButton (v záložke Additional). V Object Inspectore vyber položku Glyph a vyhľadaj si obrázok (*.bmp)

Ovládanie WindowsMediaPlayer1 cez activex v delphi

Podobné témy