Передача звука IdTCPClient1 и IdTCPServer1

[SoftKoc]

!Здравствуйте!

Извините знаю такая тема уже обсуждалась на форуме, ну там не все так как хотелось бы!

Пытаюсь передать звук по сети с помощью IdTCPClient1 и IdTCPServer1
Вот код:

//Принимаем звук.

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
Var
 S: TStream;
begin
 S:=TFileStream.Create(ExtractFilePath(Application.ExeName)+'1.wav', fmCreate);
 AThread.Connection.Socket.Recv(S, S.Size);
 Application.ProcessMessages;
 AThread.Connection.Disconnect;
 S.Free;
end;

//Передаем звук.

procedure TForm1.Button1Click(Sender: TObject);
Var
 S: TStream;
begin
 S:=TFileStream.Create('1.wav', fmOpenRead);
 IdTCPClient1.Port:=5060;
 IdTCPClient1.Host:='10.8.1.85';
 IdTCPClient1.Connect;
 IdTCPClient1.Socket.Send(S, S.Size);
 IdTCPClient1.Disconnect;
 S.Free;
end;

Знаю что код кривой, с сетью столкнулся впервые
Мне нужно как-то реализовать передачу звука прямо с памяти не записывая в файл если это возможно и воспроизводить на том конце также ( не записывая в файл ), после чего память должна освобождаться и передавать следующая часть звук.

!Заранее очень благодарен!

[raxp]

не вижу кода работы со звуком...

procedure TACMWaveIn.WaveInCallback(var msg:TMessage);  //this is called when is buffer full 
var
   Header:PWaveHdr;
   i,bytesrecorded:integer;
   data:PChar;
begin

     Header:=PWaveHdr(msg.lparam);
     if closed=false then
     begin
     i:=waveInUnPrepareHeader(HWaveIn1^,Header,sizeof(TWavehdr));
     if i<>0 then showmessage('In Un Prepare error');
     bytesrecorded:=header.dwbytesrecorded;
     getmem(data,bytesrecorded); //allocate memory
     move(header.lpdata^,data^,bytesrecorded); //copy data
     if assigned(FOnData) then
     begin
      FOnData(data,bytesrecorded);
     end;

тема действительно обсуждалась... загляните в генофонд модулей ACMWaveIn, ACMWaveOut, там все прозрачно.
TCP не рекомендую, лучше UDP... "подвисонов" будет меньше.

сопутствующие темы 1 2 3 статья

[SoftKoc]

Так оно у меня даже файл передать не может.

Вот код :
Клиент :

procedure TForm1.Button1Click(Sender: TObject);
Var
 MS:TMemoryStream;
begin
 MS:=TMemoryStream.Create;
 MS.LoadFromFile('1.wav');
 IdTCPClient1.Port:=5060;
 IdTCPClient1.Host:='127.0.0.1';
 IdTCPClient1.Connect;
 MS.Position:=0;
 Edit1.Text:=IntToStr(MS.Size);
 IdTCPClient1.Socket.Send(MS, MS.Size);
 IdTCPClient1.Disconnect;
 MS.Clear;
 MS.Free;
end;

Серв:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
Var
 MS: TMemoryStream;
begin
 MS:=TMemoryStream.Create;
 AThread.Connection.Socket.Recv(MS, MS.Size);
 Edit1.Text:=IntToStr(MS.Size);
 Application.ProcessMessages;
 AThread.Connection.Disconnect;
 MS.Position:=0;
 MS.SaveToFile(ExtractFilePath(Application.ExeName)+'1.wav');
 MS.Clear;
 MS.Free;
end;

Файл создает, только весит он "0"

[raxp]

с тех пор, даже статья в журнале появилась ...№3, с.33.

[RIO]

Есть специальный компонент для передачи звука/голоса по сети, только вот забыл как он называется, думаю в гугле можно его найти.

[raxp]

компоненты озвучены выше.

[SoftKoc]

Сообщение от RIO

Есть специальный компонент для передачи звука/голоса по сети, только вот забыл как он называется, думаю в гугле можно его найти.

Мне сейчас не нужно передавать звук, мне хоть бы файл отправить. Или текст

[RIO]

Мне когда-то также нужно было это. Здесь на форуме я нашел полностью рабочий код, который мне подошел, но сейчас у меня его нет и на форуме не помню где найти, попробуйте поискать. А вообще мне больше нравиться использовать UDP для передачи файлов.

[SoftKoc]

Сообщение от RIO

А вообще мне больше нравиться использовать UDP для передачи файлов.

Я согласен, idUDP - намного легче освоить. Через idUDP я все уже написал, текст отправляю, файлы тоже, но вот проблема с отправкой больших файлов, я думаю что их нужно по частям отправлять "но вот как это реализовать?".
Что я могу сказать еще за idUDP конечно все хорошо, одно лишь плохо - он слишком часто теряет пакеты. Потери я заметил вчера когда тестил программу, я был в шоке, где-то из 15-20 пакетов 1-2 теряет, очень обидно.