VPF::Особенности передачи звука - Форум программистов

brendi

Дата 29.4.2009, 22:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 6.10.2008

Репутация: нет
Всего: нет

У меня возникла проблема в передачей аудиофайла на другой ПК,звук снимаю с микрофона при помощи( Wave, DXClass, DXSounds)библиотек и записую в wav-файл,потом копирую в другой wav-файл,чтобы при передаче небыло ошибки что процес занят,передаю при помощи сокетов,там клиент принимае размер файл делает его нужной длины но почемуто никаких даных непишет в файл(((((Что за проблема и может ли кто-то подсказать особенности передачи звука?????

Отправка:

fs:=TFileStream.Create('.\2.wav', fmOpenRead);
ServerSocket1.Socket.Connections[0].SendText('Size:'+SizeLabel.Caption+ #0);
ServerSocket1.Socket.Connections[0].SendStream(fs);

И приём на той сторене:

Код


s:= Socket.ReceiveText;
if copy(s, 1, 5)='Size:' then
Begin
sl:=copy(s, 6, Pos(#0, s)-6);
DataSize:=StrToInt(sl);
Delete(s, 1, Pos(#0, s));
fs:=TFileStream.Create('.\1.wav',fmCreate);
fs.Write(s[1], length(s));
fs.Size:=datasize;
end;

Это сообщение отредактировал(а) Alexeis - 4.5.2009, 11:15

brendi

Дата 5.5.2009, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 6.10.2008

Репутация: нет
Всего: нет

Взял acm компоненты и всё получилось через UDP-протокол....

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »