[casperock]

Решил сделать интернет радио станцию на басс и сокетсервер, но возник ряд проблем, например:

Код:

1 2 3 4 5 6 7 8 9

var Channel: HStream;     procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin ServerSocket1.Socket.Connections[0].SendStream(Channel); end;

Но блин, выбивает ошибку в конце этой строки:

Код:

1 2 3 4

ServerSocket1.Socket.Connections[0].SendStream(Channel);     [Error] Unit1.pas(103): Incompatible types: 'TStream' and 'Cardinal'

Поток Channel формирует либа bass.dll .

[mirt steelwater]

вот это глянь http://bad-magician.od.ua/index.php?...achijj-telefon
компонент кажется NewAC назывался.. - посмотри в исходники и поймешь - я давно писал