Запись во временный буфер, фреймы, подпись пакетов

[raxp]

var k: tmemorystream;
    TempHeader : PWaveHdr;
    Data           : Pointer;
begin
  k:= Tmemorystream.Create; k.Clear;
  nmudp.ReadStream(k);
  getmem(Data, k.size);
  move(k.memory^, Data^, k.size);

 //
 GetMem(TempHeader, SizeOf(TWaveHDR));
  with TempHeader^ do begin
    lpData := Data;
    dwBufferLength := Size;
    dwBytesRecorded :=0; 
    dwUser := 0;
    dwFlags := 0;
    dwLoops := 1;
  end;

 WaveOutPrepareHeader(FWaveOutHandle,TempHeader,SizeOf(TWaveHDR));
 WaveOutWrite(FWaveOutHandle, TempHeader, SizeOf(TWaveHDR));

[ImmortalAlexSan]

У меня на приеме данных все в порядке со стороны UDPserver'a, дело в том, что после write в стрим, клиент не передает данные потока. может быть я выложу исходник? и ещё, у меня нет компонентов Fastnet.

[raxp]

nmudp из fastnet можно поставить под любой версией delphi... исходники найти трудно, так как старый набор компонентов уже оф.не поддерживается, но можно...

[ImmortalAlexSan]

Спасибо я поставлю их, ну а что вы можете сказать по вот той проьлеме, что возникает, когда я записываю в поток данные? У меня есть предположение, что данные не записываются потому что их нет и при сообщении WIM_DATA количество записанных байтов обнуляется, следовательнонечего передавать на сервер, но тогда феномен! Ведь бинарный поток, переводится в HEX! Стало быть, что какие-то данные там есть, но сокет не передает их!

[ImmortalAlexSan]

Скажите пожалуйста, а куда писать код из поста #31? И где мне найти компонент, установленный из fastnet? А то я его только описал, а куда он данные отправляет - неизвестно.

[raxp]

...код писать в событие приема ...найти куда ставится компонент, можно заглянув в его генофонд и поискав процедуру - Register ...посылает, что значит куда, а куда ваш udpsocket отправляет, как настроите его свойства, туда и отправляет.

[ImmortalAlexSan]

Написано что в Cons_Palette_Inet ставится (это я открыл файл NMUDP.pas и там нашел registre) Однако, когда захожу в component -> configure palette и там ищу его, его нет=(
P.S. Нашел.
Это получается клиент и сервер в одном компоненте?
И ещё одно... можете привести пример события приема и как его вызвать? (Просто много информации за 5 дней изучения по WIN API, и не все понимаю). И я наверное отстану со своими глупыми вопросами...

[raxp]

да... это замечательный компонент во всех отношениях

procedure Tipt.nmDataReceived(Sender: TComponent; NumberBytes: integer;
  FromIP: string; Port: integer);

[ImmortalAlexSan]

Итак, я сделал передачу звука с клиента на сервер, но с помощью компонентов ACMIn, ACMOut, ACMDlg, idUDPClient, idUDSocket, все работает, все замечательно. Но в целях изучения, хочу попробывать в ручную задать параметры компонентов ACMIn, ACMOut, ACMDlg, вот код:

procedure TForm1.ParamAcmDlg(dlg:TACMdlg);
begin
With dlg do
begin
nChannels:=1;
wFormatTag:=1;
nSamplesPerSec:=44100;
nBitsPerSample:=16;
Device:=0;
WaveDataLength:=nSamplesPerSec*nChannels*nBitsPerSample div 8;
WaveDataLength:=(WaveDataLength div 2);
nBlockAlign:=nChannels*nBitsPerSample div 8;
nAvgBytesPerSec:=nSamplesPerSec*nChannels*nBitsPerSample div 8;
cbSize:=0;
end;
end;

procedure TForm1.ParamAcmIn(inn:TACMIn);
begin
with inn do
begin
BufferSize:=wavedatalength;
DeviceID:=inn.DeviceID;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ParamAcmDlg(ACMDlg1);
ParamAcmIn(ACMIn1);
IdUDPClient1.BufferSize:=WaveDataLength;
IdUDPClient1.Active:=false;
IdUDPClient1.Port:=10090;
IdUDPClient1.Active:=true;
ACMIn1.Active:=true;
end;

procedure TForm1.ACMIn1Data(Sender: TACMComponent; aDataPtr: Pointer;
  aDataSize: Cardinal);
begin
IdUDPClient1.SendBuffer(aDataPtr^,aDataSize);
end;

Первые две процедуры я сам написал, только вот теперь проблема, при нажатии на кнопку выскакивает отладчик, и ошибка. Что я не так сделал или что недописал? Если можете подсказать - подскажите пожалуйста.
P.S. Это клиентская часть.

[ImmortalAlexSan]

Почему на сервере я не могу воспроизвести звук с помощью WAveOut? Я устал биться над этим уже. Посмотрите пожалуйста код сервера. Отправить нормально получается с WaveIn с клиента, и принять могу на сервере с помощью компонентов ACM, но вот с помощью WAveOut не получается...

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
  Var buf:Pointer;
begin
GetMem(buf, Adata.size);
move(adata,buf,Adata.size);
with WaveHdrOut do
begin
dwBufferLength := Adata.Size;
dwBytesRecorded :=0;
dwUser := 0;
dwFlags := 0;
dwLoops := 1;
end;
waveOutPrepareHeader(WaveOut,buf,sizeof(TwaveHdr));
waveOutWrite(WaveOut,buf,sizeof(TwaveHdr));
end;

Ваши все вышепредложенные способы тоже не работают, либо шипение в колонках, либо ничего не принимается, либо ошибка и отладчик. Помогите добить пожалуйста...