načtení samplu do fmod přes TSream

[Basnici2]

hello, v programování nejsem moc sběhlý, potřebuji tip, jak vyřešit následující věc.

Funkce fmod pro načtení samplu má tyto parametry:

[Quiark]

TStream je objekt reprezentující proud dat z nějakého zdroje (třeba ten balík). FMod akceputuje celý načtený soubor jako blok paměti. Takže ty potřebuješ pomocí toho streamu celý soubor nahrát do paměti a předat ho fmodu. Takže si naalokuješ blok paměti o velikosti toho souboru, pak budeš opakovaně číst z toho streamu třeba po 4 kB dokud to celé nepřečteš, pak ukazatel na ten blok paměti předáš fmodu a nakonec to uvolníš.
_________________
Mám strach

[Basnici2]

Zní to skvěle, bohužel v tom tápu, byl by velký zločin požádat tě zde o konkrétní kód?

[rezna]

[Basnici2]

zkusil jsem tohle, ale nejde to, takže to bude asi špatně...

m:=TMemoryStream.Create;
m.LoadFromStream(GetFile('soubor.wav'));
FSOUND_Sample_Load(FSOUND_FREE,pchar(m),FSOUND_LOADMEMORY,0,m.Size);
m.free;

osobně se více přiučím z funkčního kódu než bastlením pokus-omyl

[rezna]

TMemoryStream je zase jenom stream. Pretypovani ti opravdu nepomuze. Je potreba pracovat primo s polem znaku, do ktereho nacitas ze streamu pres metodu read data.

[Basnici2]

Díky, už to funguje.
Jde to napsat ještě nějak elegantněji? Ten string si předem roztáhnout do požadované délky (to bych věděl), ale jak pak psát buffer přesně do té části stringu, kam potřebuji?

[OndraSej]

Basnici2: Jednoduseji by to mozna slo pres ten memory stream - vratme se k tomu tvemu predchozimu kodu s TMemoryStream. Pokud uz to do nej nactes, tak by se ti mohlo hodit m.Memory, ktere ti vrati pointer na data v tom streamu.

Jenom pak je potreba dat pozor na to, abys tu pamet pak spravne uvolnoval (nezapomnel neco uvolnit, neuvolnil neco driv, nez je zdravo).

Ale v Pascalu/Delfach uz jsem tak 8 let nedelal, takze to radsi vyzkousej
_________________
http://trionteam.net

[Basnici2]

OndraSej>vypadá to dobře, ale nějak nejede (fmod hodí chybu)

m:=TMemoryStream.Create;
m.LoadFromStream(GetFile('soubor.wav'));
m.Position:=0;
FSOUND_Sample_Load(FSOUND_FREE,m.Memory,FSOUND_LOADMEMORY,0,m.Size);

m.free;

[Ladis]

Myslíš tu chybu?
_________________
Award-winning game developer

[Mem]

Ladis: Jj, očividně myslí přesně tu chybu. Tak kdo mu poradí?
_________________

[Basnici2]

ne chybu, vrátí to buď true nebo false v závislosti na tom, zda to funguje nebo ne.. a totok nefunguje
Funguje ale ten můj kód nadtím, tedy už to není třeba více řešit, šlo mi jen o případnou optimalizaci