Napisalem komunikator ale nie wiem czy dziala. Mam problem z wyslaniem wiadomosci w programie do hostowania wywala mi taki komunikat List index out bounds(-1).
Blad jest w tej chyba linijce ale nie jestem pewny
procedure TForm1.Button1Click(Sender: TObject);
begin
// wyslij wiadomosc
ServerSocket1.Socket.Connections[ServerSocket1.Socket.ActiveConnections-1].SendText(Edit1.Text+':'+edit2.Text);
Memo1.Lines.Add('Ja:'+ Edit2.Text);
Edit2.Text:='';
end;
Moze mi ktos powiedziec co jest nie tak.Albo przerobic przycisk wysylania