Sound в Integer

[Лубышев]

Что то ни че не получается. А временный файл хоть и хорошо работает но это не есть Гуд

[raxp]

так-с... вот навскидку (на компиляторе не проверял) накрапал... нужно загнать те в буфер сам звуковой файл из твоего архива и получить точку входа... что-то вроде такого...

var
p: pointer;
begin
 GetMem(p, sizeof(buf));
 BlockRead(buf {проверь сий параметр, мож че напутал}, p^, sizeof(buf));
 sndPlaySound(p, SND_MEMORY or SND_SYNC);
 FreeMem(p, FileSize);
end;

[Лубышев]

в buf загнать сам файл?
какого типа делать buf?

var buf: array of char;

и в него слить ту часть файла, которая звук?

[raxp]

слить весь звуковой файл... какого типа не скажу, компилятора сейчас нет под рукой.. нажми после скобок Ctr+SPACE дельфя сама подскажет

[Лубышев]

что то не так...

BlockRead();//работает как то по другому

эта штука, как я понял читает из файла в буфер buf,
ну что то типа

setLength(buf,конечная позиция-начальная_позиция+1)
for i:=начальная_позиция to конечная_позиция do
read(file,buf[i-начальная_позиция]);

но это то фигня, а вот как передать это в pointer?
и озвучить полученное?

[raxp]

вот добрался и до вас

но это то фигня, а вот как передать это в pointer?
и озвучить полученное?

указатель передать просто на буфер - @buf и все дела... вашу проблему решил:

var
 buf: array [1..9752] of byte; // размер wav внутри dat
 fDAT: tmemorystream;
begin
 fDAT:= TMemoryStream.Create;
 fDAT.LoadFromFile('1.dat');
 fdat.Position:= 4; // читаем со сдвигом на 4 байта-

 fdat.ReadBuffer(buf, sizeof(buf)); // массив четко определен

 sndPlaySound(@buf, SND_MEMORY or SND_SYNC)
end;

допустим у нас есть известный wav файл (набор данных) с известным размером и положением внутри вашего архива (как мы уже с вами обсуждали)... мне пришлось сымитировать ситуацию на примере DAT файла внутрь которого через редактор Notepad2 всунул набор wav-данных со структурой между 4 байтами единиц и 1 байтом единицы... таким образом, чтобы получить наш набор у нас известны следующие величины: сдвиг (4 байта) и размер буфера, указатель на буфер мы уже имеем, заполним (см. выше код) буфер через memorystream и Вуа-ля!

тестовый проект прилагаю...

[Лубышев]

спасибо большое. отзыв оставлю... как только еще кому то поставлю отзыв