[x4b]

Здравствуйте... пытаюсь отправить от клиента indyuUDPclient-а звук с микрофона... а на сервере пытаюсь принять через indyUDPserver и воспроизвести этот звук, но увы как не стораюсь звук получаеться с каким то треском шипом и т.д.

ниже код просьба знатоков помочь разобраться...

клиент...

PHP код:

function RecordingCallback(Handle: HRECORD; buffer: Pointer; length, user: DWord): boolean; stdcall;
begin
  Form1.IdUDPClient1.SendBuffer(buffer^, length);
  Result := True; // continue recording
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdUDPClient1.Active := True;
  rchan := BASS_RecordStart(44100, 2, MakeLong(0, 1), @RecordingCallback, nil);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  r_Init := BASS_RecordInit(-1);
end; 


сервер...

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdUDPServer1.Active := True;
  BASS_ChannelPlay(chan, False);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BASS_Init(-1, 44100, 0, Handle, nil);
  chan := BASS_StreamCreate(44100, 2, 0, STREAMPROC_PUSH, nil);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
begin
  //как здесь обработать принетый TStream незнаю все перепробовал...
  BASS_StreamPutData(chan, ???, ???);
end; 


Помогите уважаемые знатоки.... Заранее благодарен...

[einstein]

а если без передачи по сети воспроизволить нормально будет?

[x4b]

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

а если без передачи по сети воспроизволить нормально будет?

конечно будет пробовол я так работает...

Зделал вот таким образома...

PHP код:

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
 buff : Pointer;
begin
  GetMem(buff, AData.Size);
  AData.ReadBuffer(buff^, AData.Size);
  BASS_StreamPutData(chan, buff, AData.Size);
  FreeMem(buff, AData.Size);
end; 


вроде работает но только при первом запуске клиента... при повторном запуске клиента... начинается треск шип и всякая х... подскажите что делать?

[NumLock]

а максимальный размер UDP пакета не превышаешь? тут:

Код:

function RecordingCallback(Handle: HRECORD; buffer: Pointer; length, user: DWord): boolean; stdcall; 
begin 
  Form1.IdUDPClient1.SendBuffer(buffer^, length);
  Result := True; // continue recording 
end;

[x4b]

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

а максимальный размер UDP пакета не превышаешь? тут:

Код:

function RecordingCallback(Handle: HRECORD; buffer: Pointer; length, user: DWord): boolean; stdcall; 
begin 
  Form1.IdUDPClient1.SendBuffer(buffer^, length);
  Result := True; // continue recording 
end;

понел тогда другой вопрос максимальный пакет udp можно изменить?
или надо пакеты както в процедуре разбивать?