Send audio stream in tcp indy

Question

0.00/5 (No votes)

See more:

Hi, I am making a simple chat application where it has already a webcam or live video stream, now I want to add a live audio streaming from microphone. I am currently using TCP indy 10. I heard that you can do this using ACMout.pas / ACMin.pas etc(ACM). Problem is I can't find any example online, I already have the ACM headers.

If somebody can share any example of this, or could make one, please. Thank you so much.

EDIT:
I am using ACM Components v.1.6 from torry.net[^]
in the demo it is using UDP,I tried to convert it to TCP, here is my code

Delphi

//sending 

procedure TSendFrm.ACMIn1Data(Sender: TACMComponent; aDataPtr: Pointer;
  aDataSize: Cardinal);
begin
  //Sock.SendBuffer(aDataPtr^,aDataSize);  // <-udp
  //IdTCPClient1.IOHandler.WriteBufferOpen;
  try
    IdTCPClient1.IOHandler.Write( RawToBytes(aDataPtr^,aDataSize ) );
  finally
   //IdTCPClient1.IOHandler.WriteBufferClose;
  end;

  Bytes:=Bytes+aDataSize;
  BytesLbl.Caption:=Format ('%u',[Bytes]);
  UpDate;
end;

//receiving end

procedure TRecvFrm.IdTCPServer1Execute(AContext: TIdContext);
var
  Ms : TMemoryStream;
  //Ms : TStream;
begin

  Ms := TMemoryStream.Create;
  
  AContext.Connection.IOHandler.ReadStream(Ms);
  Ms.Position := 0;
  ACMOut1.PlayBack(Ms);
  Bytes:=Bytes+Ms.Size;
  BytesLbl.Caption:=Format ('%u',[Bytes]);
  UpDate;

  Ms.Free;
end;

Still not working well for me. I am using indy 10

Posted 5-Jan-14 1:33am

Ronni2013

Updated 7-Jan-14 1:12am

v4

Add a Solution

Comments

Maciej Los 5-Jan-14 11:50am

I would like to say what have been said here: delphi-indy10-tcp-audio-streaming[^] ;)
Conclusio: there is no differ between sending audio and any other type of data.

Ronni2013 5-Jan-14 12:27pm

I thought you need an third party program or component to do this ? I ain't that skillful.

2 solutions

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Espen Harlinn · Accepted Answer · 2014-01-05T05:35:00

Solution 1

Have a look at: https://code.google.com/p/siapen/[^]

You'll find VFrames.pas[^] if you dig into the code.

[Update]
1. Get raw data from ACM
2. Write the data to a MemoryStream
3. Send the MemoryStream using Indy.

Somthing similar to this:

with Owner.PeerThread.Connection do 
 begin 
  if Connected then 
  begin 
   OpenWriteBuffer; 
  try 
   WriteStream(memoryStream,True,True,LStreamPacket.Size); 
  finally
   CloseWriteBuffer; 
  end; 
 end;
end;

Best regards
Espen Harlinn

Posted 5-Jan-14 5:35am

Espen Harlinn

Updated 5-Jan-14 6:38am

v2

Comments

Maciej Los 5-Jan-14 11:47am

Looks promising ;)

Espen Harlinn 5-Jan-14 11:57am

I guess so, at least it shows how to access the web camera.

Maciej Los 5-Jan-14 12:13pm

I'm not familiar with tcp programming, but - as i wrote in comment to the question - it's no differ between sending audio and any other data type. Of course, it's no so easy to access to the web camera. Above is good, promising example. ;)

Ronni2013 5-Jan-14 12:26pm

I'm already using directx in capturing webcam images, i just need a live audio streaming demo(w/ source) using indy tcp

Maciej Los 5-Jan-14 12:34pm

http://stackoverflow.com/questions/20823048/live-audio-stream-using-tcp-indy10[^]...

Ronni2013 6-Jan-14 7:16am

Hi all, I updated my question, it still not working for me thou, thank you for your time.

Espen Harlinn 6-Jan-14 9:23am

It's an interesting problem, I may look into it next weekend - I'll proably not have access to a computer running Delphi until then ...

Ronni2013 · Accepted Answer · 2014-01-07T01:16:00

Ok i finally made it work with indy tcp

Delphi

if not InputBufferIsEmpty then
    begin
      Ms := TMemoryStream.Create;

      InputBuffer.ExtractToStream(Ms);
      Ms.Position := 0;
      ACMOut1.PlayBack(Ms);

      Bytes:=Bytes+Ms.Size;
      BytesLbl.Caption:=Format ('%u',[Bytes]);
      UpDate;

      Ms.Free;
    end;

Send audio stream in tcp indy

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

Send audio stream in tcp indy

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

Existing Members

...or Join us