голосовой чат

[БЕЗЛИКИЙ]

Не как не могу найти компонент UDPSock. Если есть у кого выложите или ссылочкой порадуйте :-)

[KORN]

а Winsock у тебя добавлен7

[Ranger88]

Как добавить?

[heart]

В разделе uses допиши Winsock

[ImmortalAlexSan]

После добавления Winsock в Uses ничего не происходит и ещё... Twallpaper тоже не находит Demo эта на моем компьютере. Подскажите что делать? Как полноценно запустить этот исходник?

[SanekIrk]

Присоединяюсь к вопросу!!!

[Vitalgolov]

можно обойтись и без UDPSock с помощью стандартных idUDPServer и idUDPClient

дополнительно к idUDPServer, idUDPClient, ACMDialog, ACMWaveIn и ACMWaveOut ставим на форму Tedit в который будем вписывать IP собеседника(по умолчанию localhost) + две кнопки старт и стоп.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdUDPServer, IdBaseComponent, IdComponent, IdUDPBase,
  IdUDPClient, ACMWaveOut, ACMWaveIn, ACMDialog, idSocketHandle;

type
  TForm1 = class(TForm)
    ACMDialog1: TACMDialog;
    ACMWaveIn1: TACMWaveIn;
    ACMWaveOut1: TACMWaveOut;
    IdUDPClient1: TIdUDPClient;
    IdUDPServer1: TIdUDPServer;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure ACMWaveIn1Data(data: Pointer; size: Integer);
    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  format: pointer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); //Кнопка Старт
begin
format:=ACMDialog1.OpenDialog;
if format=nil then exit;

 ACMWaveOut1.Open(format);
 ACMWaveIn1.Open(format);
 Button1.Enabled:=false;
 Button2.Enabled:=true;

 IdUDPClient1.Host:=Edit1.Text;
 IdUDPClient1.Active:=true;
 IdUDPServer1.Active:=true;
end;

procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
begin
IdUDPClient1.SendBuffer(data^,size);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var InpBuf: Pointer;
begin
GetMem(InpBuf, AData.size);
Adata.Read(InpBuf^, AData.Size);
ACMWaveOut1.PlayBack(InpBuf,AData.Size);
FreeMem(InpBuf, AData.Size);
end;

procedure TForm1.Button2Click(Sender: TObject); //Кнопка Стоп
begin
 ACMWaveIn1.Close;
 ACMWaveOut1.Close;

 Button1.Enabled:=true;
 Button2.Enabled:=false;

end;

end.

Вопрос: как уменьшить время записи звука ACMWaveIn чтоб уменьшить задержку и величину передаваемого пакета?

[raxp]

Vitalgolov, думаю, что задающие ранее (7 месяцев назад) вопросы уже разобрались вон даже ImmortalAlexSan статью об этом написал в журнал нашего Клуба "Передача звука по сети. Прототип VoIP телефона" №3, с.33

[Vitalgolov]

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

Vitalgolov, думаю, что задающие ранее (7 месяцев назад) вопросы уже разобрались вон даже ImmortalAlexSan статью об этом написал в журнал нашего Клуба "Передача звука по сети. Прототип VoIP телефона" №3, с.33

Я в курсе насчет дат. Написано для того, чтобы те кто также как и я наткнувшись на эту тему не тратили время на решение данной проблемы.
Кстати исходники из статьи ImmortalAlexSan, не работают должным образом, и я также весь инет перерыл в надежде найти компонент UDPSock (позже я все же его нашел но так и не смог установить) прежде чем решил проблему вышеописанным способом.

PS: Вы мне не подскажете как перечислить устройства для записи и воспроизведения установленные в системе, а затем заполнить структуру format. Чтобы обойтись без ACMDialog а выбирать настройки в своей программе?

[_PROGRAMM_]

Попробуйте бросить на форму TUdpSoket с вкладки Internet и переименовать на UDPSock.