TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Názory ke článku Delphi II – 7. lekce
20. 4. 2007
Pane Vrátil,
cením si vaší práce... Dnes nad ránem jsem projel kompletní váš kompletní kurz až sem. Pokusil jsem si naprogramovat přehrávač a skutečně jede. Jenom bych si dovolil malou poznámku která snad pomůže začátečníkům jako jsem já:
Používám Delphi 7 a při spouštění programu Delphi nezná MaxValue, MinValue a Progress. Po chvilce bádání jsem přišel že místo MaxValue musí být pouze Max, MinValue je Min a Progress je Position. Poté program funguje báječně. Nebo spíš tak jak jsme si ho naprogramovali.
Zároveň bych Vás chtěl požádat o další úpravu a to:výběr souboru ne cestou ale hezky roletkou, a kdyby jste trošku objasnil jak se programují panely tak, aby se běhu programu při kliknutí na Button otevřel další panel s jinou nabídkou(předpokládám že tam bude jenom jiný Form a budou se na sebe odkazovat, ale jako nováček na to sám asi nepřijdu).
Děkuji mnohokrát za Vaši práci a snahu.
Děkuji, že se Vám můj kurz líbí.
Použití hodnot MaxValue, MinValue a Progress se používá u komponenty ProgressBar, kterou mám chybně uvedenou v tom obrázku. V programu používám komponentu Gauge....chybu jsem již odstranil, omvlouám se.
K dalším způsobům otevírání souborů a podobným věcem se budeme dostávat postupně, nechci probrat všechny komponenty během několika dílů...chci se jim věnovat postupně, takže vězte že i na takové věci jako je panel, rozbalovací seznamy a pod. dostane.....
16. 5. 2007
Měl bych dotaz ohledně deklarace globální proměnné pauza typu boolean a prehravac typu TMediaPlayer. Mohl by mi někdo povědět jak toho docílím? Po přeložení my vyskočí error "Field Form1.prehravac does not have a corresponding component..." (to samé i u Form1.pauza) Hádám že jsem jsem něco zvoral při kroku "nadeklarujte globální proměnné pauza typu boolean a prehravac typu TMediaPlayer.
"
globální deklarace proměnných pauza a prehravac docílíte takto:
...
var //v sekci interface je tento
Form1: TForm; //a tento radek - globalni deklarace forulare
pauza: boolean; //tak k tomu jeste prideklarujte toto
prehravac: TMediaPlayer;
implementation //globalni deklarace se nachazi pred klicovym slovem implementation
...
Uz by konecne mohl vyjít další díl kurzu....teďka jim to nejak moc trva....ja vim ze je malo korektoru....ale kdyz jsem se hlasil o korektora tak se mi neozvali (neni cas).....
29. 5. 2007
Dalsi dil je uz hotovy a ceka na korekturu (uz skoro mesic)...na programujte ted posledni dobou trva vsechno nejak dlouho :) uz sem psal korektorovi, ktery opravoval i predchozi dily jestli by se na to mohl podivat tak uvidime :)
Mejte trpelivost :)
16. 6. 2007
njn, ale furt to trvá nějak dlouho....
Pokud sis všiml tak člány na programujte vycházejí jen ve velmi omezeném množství, a stejně jsou to převážně bleskovky....co se týče normálních článků tak nevyšly snad žádný....korektroři (a myslim že i autoři) se učí na závěrečný písemky a pak jde i programujte stranou (vim o čem mluvim :)...upřimně doufám, že jakmile začnou prázdniny tak se na to všchni vrhnou..když to půjde dobře, zkusím 9. díl protlačit co nejdřív za tím 8.....
Vydržte lidi....bude to stát za to ;)
2. 7. 2007
Velmi zajímavé a hlavně to funguje. Jenom by mě zajímalo, zda někdo nevíte, jak by se dalo udělat něco jako třeba ve Windows Media Playeru, čím by se dalo ve skladbě "posouvat". Nevíte někdo?
Dá se to provést například pomocí komponenty TrackBar. Hodnotu [i]Min[/i] nastavíš na 0, hotnotu [i]Max[/i] na prehravac.Length.
Potom u toho TrackBaru vytvoříš událost [i]OnChange[/i] a do ní napíšeš
prehravac.Posistion:=TrackBar.Position
Podrobněji to rozeberu v jednom z dalších dílů
10. 3. 2008
Cau, super clanek, ctive napsany, ale mam problem.
Když chci dát to Editu Soubor nejaky souber, napr: "pisen.mp3" (napišu to tam a soubor je ve stejnem adresari) a tuknu na Prehrat, tak se nic nestane, jen to vyhodi chybovau hlašku "No MCI device open.".
Můžete poradit, jak to spravit? Ale radej budu, kdyz mi reknete, proc to nejede :)
8. 4. 2008
Reagoval na komentář od uživatele Bes :
Mně se to stávalo také a bylo to tím, že jsem se pokoušel ovládat přehrávač, když v něm nebylo ještě nic načteno.
25. 5. 2008
Postupoval jsem přesně (snad) podle návodu, ale když jsem se pokusil program rozběhnout, tak se mi tento řádek:
ukazatel.MinValue:=0; //nastaví ukazatel (minimální hodnota)
označil červeně. Hledal jsem "ukazatel" všude možně, ale jinde v programu jsem jeho nějakou deklaraci nenašel.
25. 5. 2008
Reagoval na komentář od uživatele Keeehi :
Omlouvám se, ale už jsem to našel. Pozapoměl jsem u Gauge změnit name na ukazatel :(
26. 9. 2008
Dan Vrátil píše:
Dá se to provést například pomocí komponenty TrackBar. Hodnotu [i]Min[/i] nastavíš na 0, hotnotu [i]Max[/i] na prehravac.Length.
Potom u toho TrackBaru vytvoříš událost [i]OnChange[/i] a do ní napíšeš
prehravac.Posistion:=TrackBar.Position
Podrobněji to rozeberu v jednom z dalších dílů
Toto jsem zkoušel a akorát při posunutí TrackBaru mi přestal přehrávač hrát a jediný čím jsem ho mohl rozběhnout bylo "Zastavit" a znova "Přehrát":
procedure TForm1.polohaChange(Sender: TObject);
begin
prehravac.Position := poloha.Position;
ukazatel.Progress:=prehravac.Position; //obnoví pozici ukazatele1
ukazatel2.Position:=prehravac.Position;
end;
2. 10. 2008
Ako mam vlastne ten subor nacitat. Spustim aplikaciu a tuto volade pisete, ze sa ma otvorit dialogove okno kde vyberiem subor. Ale kedy sa otvori? Po prvom kliknuti na tlacitko Prehraj??? Vyhadzuje mi to erro noMCIdevice open. Mam delphi 5...
3. 7. 2009
udelal jsem si prehravac a nejdou mi prehrat dvd napise mi to neznami typ zarizeni jinak mi avi jde prehrat pls help odpoved mi poslete na wojtas@email.cz
