Передача потока по UDP.

[Clos]

Здравствуйте, немного дублирую тему.Просто решил засунуть ее в соответствующий раздел.

Проблема в передачи потока.С воспроизведением отдельного файла через BASS проблем не было.
Функцию RdBuf писал не сам, мне ее подсказали.(Заметил, что BufLen всегда пустой, наверное тут проблема)
Данные приходят, но не сохраняются в буфер, в последствии я не могу их воспроизвести.Подскажите в чем проблема.
Читал эту статью - не помогло.

function RdBuf(action: DWORD; param1: DWORD; param2: DWORD; user: DWORD): DWORD; stdcall;
var
  buf: ^Char;
  tmp: PChar;
  i: Integer;
begin
case action of
  BASS_FILE_LEN:  Result:=0;
  BASS_FILE_READ:
    begin
      buf := Pointer(param2);
      i:=0;
      repeat
        tmp :=StrBuf+LStrPos;
        buf^:=tmp^;
        Inc(LStrPos);
        Inc(buf);
        Inc(i);
        if LStrPos>BufLen then LStrPos:=0;
      until (i=param1) or (LStrPos=RStrPos);
      Result:=i;
    end;
  BASS_FILE_QUERY:  if LStrPos=RStrPos then Result:=0
                    else Result:=param1;
  BASS_FILE_CLOSE:  Playing:=False;
end;
end;


procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
len:integer;
tmp:PChar;
begin
  len:=AData.Size;
  tmp :=StrBuf+RStrPos;
  if BufLen-RStrPos < len then
  begin
    AData.Read(tmp^,BufLen-RStrPos);
    RStrPos:=AData.Read(StrBuf^,len-BufLen+RStrPos)-1;
  end
  else
  begin
    RStrPos:=RStrPos+AData.Read(tmp^,len);
  end;
  Memo1.Lines.Add('Buffer len = ' + inttostr(BufLen) +';' + 'recieved len = ' + inttostr(len));
end;

[raxp]

1- вы не заходили по ссылке указанной в статье http://www.programmersforum.ru/showthread.php?t=91506, иначе-бы нашли функцию приема потока и передачи:

procedure TForm1.UDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
Var
SoundStreamIn:TMemoryStream;
Tempheader:PWaveHdr;
Data:Pointer;
Res:integer;
buffer:Pointer;
Size:integer;
begin
 SoundStreamIn:=TMemoryStream.Create;
 SoundStreamIn.Read(Adata,aData.size); 
 Memo1.Lines.Add('Ïàêåò '+inttostr(i)+'; '+#13+#10+StreamToHex(soundStreamIn));

 buffer:=SoundStreamIn;
 size:=WaveDataLength;
 GetMem(Data,Size); 
 Move(Buffer^,Data^,Size);
 With Tempheader^ do begin
  lpData:=data;
  dwBufferLength:=size;
  dwBytesRecorded:=0;
  dwUser:=0;
  dwFlags:=0;
  dwLoops:=1;
 end;

2-

Заметил, что BufLen всегда пустой

во-от, а уверены, что вы передаете вообще что-то? как проверили?

3- function RdBuf, где ее вызов ...что по вашему она делает?

[Clos]

вы не заходили по ссылке указанной в статье http://www.programmersforum.ru/showthread.php?t=91506, иначе-бы нашли функцию приема потока и передачи:

И правда не заходил.Спасибо.Почитаю.

во-от, а уверены, что вы передаете вообще что-то? как проверили?

Проверил?

Memo1.Lines.Add('Buffer len = ' + inttostr(BufLen) +';' + 'recieved len = ' + inttostr(len));

- len выводит, Buflen - нет.
Вывод len происходит при активированном сервере.Выключаешь сервер или не выбираешь файл - ничего не происходит.

3- function RdBuf, где ее вызов ...что по вашему она делает?

Считывание буфера.
Вызов допустим вот тут.

StrBuf :=AllocMem(1024*1024*10);
BASS_Init(1,44100,0,Handle,nil);
OutStream:=BASS_StreamCreateFileUser(true, BASS_STREAM_BLOCK, @RdBuf, 0);

Или тут

StrBuf :=AllocMem(1024*1024*10);
BASS_Init(1,44100,0,Handle,nil);
OutStream:=Bass_StreamCreateFile(false, @RdBuf, 0 , 0 ,0);

[Clos]

Пытаюсь сохранить поток вот так.

OutStream:=BASS_StreamCreateFileUser(true,BASS_STREAM_BLOCK,@RdBuf,0);

Сдвиги по lstrpos и rstrpos происходят.Т.е. вывожу в memo

Memo1.Lines.Add('Lstrpos= '+inttostr(lstrpos)+'.'+ 'Rstrpos = ' + inttostr(rstrpos));

Правая позиция меняется, левая все время 4000.
Проигрывание звука не происходит (BASS_ChannelPlay(OutStream, False); )

При проверке

if outstream = 0 then
    begin
      messagebox(0,'Ошибка загрузки файла',0,MB_OK or MB_ICONSTOP);
      exit;
    end;

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

[raxp]

1- не видно в коде, где вообще заносятся значения в BufLen ...если так, то он и будет нулевым
2- попробуйте для начала вывести принятый буфер через waveout, если получится, то тогда прикручивать bass

[Clos]

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

1- не видно в коде, где вообще заносятся значения в BufLen ...если так, то он и будет нулевым
2- попробуйте для начала вывести принятый буфер через waveout, если получится, то тогда прикручивать bass

1 - const buflen=1024*1024*10;
2 - Через waveout, это подобно, как у вас в статье?Или в теме, где вы помогали?Если честно, я не совсем понимаю, как именно это делать...

[raxp]

waveout, как у меня в статье и в теме, где помогал ...делается аналогично как по ссылке в посте #2/

[Clos]

Тему можно закрыть.Во всем разобрался.
Благодарю за участие.