Решил сделать интернет радио станцию на басс и сокетсервер, но возник ряд проблем, например:
Код:
var
Channel: HStream;
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ServerSocket1.Socket.Connections[0].SendStream(Channel);
end;
Но блин, выбивает ошибку в конце этой строки:
Код:
ServerSocket1.Socket.Connections[0].SendStream(Channel);
[Error] Unit1.pas(103): Incompatible types: 'TStream' and 'Cardinal'
Поток Channel формирует либа bass.dll .