Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Особенности передачи звука

Автор: brendi 29.4.2009, 22:26

У меня возникла проблема в передачей аудиофайла на другой ПК,звук снимаю с микрофона при помощи( 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;

Автор: brendi 5.5.2009, 12:54

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