|
Вопрос # 4 225/ вопрос открыт / |
|
Здравствуйте, Уважаемые эксперты!
Как определить длину дорожки wav файла, из .res?
В сети все обыскал, нашел вот такой код
как его можно изменить, чтобы можно было определить длину wav файла из .res ?
Приложение: Переключить в обычный режим-
-
- type
- EMyMCIException = class(Exception);
- TWavHeader = record
- Marker1: array[0..3] of Char;
- BytesFollowing: Longint;
- Marker2: array[0..3] of Char;
- Marker3: array[0..3] of Char;
- Fixed1: Longint;
- FormatTag: Word;
- Channels: Word;
- SampleRate: Longint;
- BytesPerSecond: Longint;
- BytesPerSample: Word;
- BitsPerSample: Word;
- Marker4: array[0..3] of Char;
- DataBytes: Longint;
- end;
-
- {$R sounddata.RES}
-
- procedure TForm1.Button1Click(Sender: TObject);
- var
- Header: TWavHeader;
- begin
- with TFileStream.Create('C:\Sound_1.wav', fmOpenRead) do
- try
- ReadBuffer(Header, SizeOf(Header));
- finally
- Free;
- end;
- ShowMessage(FloatToStr((Int64(1000) * header.DataBytes div header.BytesPerSecond) / 1000));
- end;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
 |
Вопрос задал: mr_switch (статус: Посетитель)
Вопрос отправлен: 25 мая 2010, 01:55
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Цитата (mr_switch):
как его можно изменить, чтобы можно было определить длину wav файла из .res ?
Очень просто! Надо вместо TFileStream использовать TResourceStream.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 25 мая 2010, 08:18
Оценка за ответ: 5
Комментарий к оценке: Спасибо помогло, все работает!
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
