http://www.un4seen.com/ [18|3300553]
delphi2
Dotaz na na��t�n� midi. Kdy� to ud�l�m podle dema, tak nic nehraje a nev�m, kde je chyba.
--
Autor: delphi2
Forum: Delphi
Odkaz: http://forum.builder.cz/read.php?18,3300553,3300553#msg-3300553
JanFiala
Asi to mas rozbite.
Jak si predstavujes radu na tvou jednu vetu?
Bohuzel tu nikdo z nas nevidi tvuj monitor, ani do tve hlavy, takze nikdo nevi jake demo jso pouzil a co vlastne delas.
--
Autor: JanFiala
Forum: Delphi
Odkaz: http://forum.builder.cz/read.php?18,3300553,3300700#msg-3300700
delphi2
with TOpenDialog.Create(Self) do begin
try
Filter := 'MIDI files (mid/midi/rmi/kar)|*.mid;*.midi;*.rmi;*.kar|All files|*.*';
if Execute then begin
Update;
BASS_StreamFree(fStream); // free old stream
lbLyrics.Caption := ''; // clear lyrics display
fStream := BASS_MIDI_StreamCreateFile(false, PChar(FileName), 0, 0, BASS_SAMPLE_LOOP, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
if (fStream = 0) then begin
// it ain't a MIDI
btnOpen.Caption := 'click here to open a file...';
lbTitle.Caption := '';
Error('Can"t play the file');
end else begin
btnOpen.Caption := FileName;
// set the title (first text in first track)
lbTitle.Caption := String(BASS_ChannelGetTags(fStream, BASS_TAG_MIDI_TRACK));
// update pos scroller range
bytes := BASS_ChannelGetLength(fStream, BASS_POS_BYTE);
time := BASS_ChannelBytes2Seconds(fStream, bytes);
TrackBar.Max := Trunc(time);
// set lyrics syncs
if BASS_MIDI_StreamGetMark(fStream, BASS_MIDI_MARK_LYRIC, 0, mark) then // got lyrics
BASS_ChannelSetSync(fStream, BASS_SYNC_MIDI_LYRIC, 0, @LyricSync, lbLyrics)
else if (BASS_MIDI_StreamGetMark(fStream, BASS_MIDI_MARK_TEXT, 20, mark)) then // got text instead (over 20 of them)
BASS_ChannelSetSync(fStream, BASS_SYNC_MIDI_TEXT, 0, @TextSync, lbLyrics);
BASS_ChannelSetSync(fStream, BASS_SYNC_END, 0, @EndSync, lbLyrics);
if cbEffects.Checked then
BASS_ChannelFlags(fStream, 0, BASS_MIDI_NOFX); // enable FX
BASS_ChannelPlay(fStream, false);
end; {if}
end; {if}
finally
Free;
end; {try}
end; {with}
--
Autor: delphi2
Forum: Delphi
Odkaz: http://forum.builder.cz/read.php?18,3300553,3300719#msg-3300719
JaroB
a kde m� um�st�n� to DLL?
Bu� to hl�s� �e nem�e p�ehr�t, nebo to vr�t� n�jakou jinou chybu. Pokud to nehl�s� v�bec nic a taky to nic nep�ehraje, tak bude chyba nejsp� v inicializaci knihovny.
T�ch mo�nost�, kde je to rozbit�, je v�c.
--
Autor: JaroB
Forum: Delphi
Odkaz: http://forum.builder.cz/read.php?18,3300553,3300752#msg-3300752
delphi2
Probl�m je, �e na oko se to tv���, �e to p�ehr�v�, ale neoz�v� se nic. Nem� n�kdo funk�n� ni��� verzi? Je to p��klad pro �kolu na midi soubory. D�kuji.
--
Autor: delphi2
Forum: Delphi
Odkaz: http://forum.builder.cz/read.php?18,3300553,3300765#msg-3300765
JaroB
Zkus se pod�vat sem http://www.wilsonc.demon.co.uk/delphi.htm, je zde k m�n� midi knihovna, kter�, zd� se, je n�kter�ch aspektech jednodu��� ne� BASS.
a zde http://www.torry.net/quicksearchd.php?String=midi&Title=Yes to vyhod� p�r komponent a mo�n� i hotovou aplikaci...
--
Autor: JaroB
Forum: Delphi
Odkaz: http://forum.builder.cz/read.php?18,3300553,3300783#msg-3300783
daemon_x
Re: VT - zobrazenie n�l
Vlo�eno u�ivatelem: JanFiala - u�ivatel ji� zaslal 6315 p��sp�vk� (IP ulo�eno)
Datum: 15. 10. 2010 18:15
A proc na prehravani MIDI nepouzijes TMediaPlayer?
begin
mPlay.FileName := 'nejaky MIDI soubor';
mPlay.DeviceType := dtAutoSelect;
mPlay.Open;
mPlay.Play;
end;
--
Autor: daemon_x
Forum: Delphi
Odkaz: http://forum.builder.cz/read.php?18,3300553,3300862#msg-3300862
JanFiala
A proc na prehravani MIDI nepouzijes TMediaPlayer?
begin
mPlay.FileName := 'nejaky MIDI soubor';
mPlay.DeviceType := dtAutoSelect;
mPlay.Open;
mPlay.Play;
end;
--
Autor: JanFiala
Forum: Delphi
Odkaz: http://forum.builder.cz/read.php?18,3300553,3300863#msg-3300863
daemon_x
@JanFiala - :D
--
Autor: daemon_x
Forum: Delphi
Odkaz: http://forum.builder.cz/read.php?18,3300553,3300864#msg-3300864
delphi2
V bas lze pak soubor p�ev�st do wavu, co� taky pot�ebuji.
--
Autor: delphi2
Forum: Delphi
Odkaz: http://forum.builder.cz/read.php?18,3300553,3301036#msg-3301036