Помогите с кодом делфи!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp, Spin;
type
TForm1 = class(TForm)
SpinEdit1: TSpinEdit;
ServerSocket1: TServerSocket;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Memo1: TMemo;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Port:=SpinEdit1.Value; // óêàçûâàåì ïîðò
ServerSocket1.Active:=True; // àêòèâèðóåì íàø ñåðâåð
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ServerSocket1.Active:=False; // äåàêòèâèðóåì ñåðâåð
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var Received: string;
begin
Memo1.Lines.Add('> ' +Received);
end;
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('Êëèåíò îòñîåäåíèëñÿ');
end;
procedure TForm1.Button3Click(Sender: TObject);
var s:string;
begin
S:=Edit1.Text; // òî â ñòðîêîâóþ ïåðåìåííóþ çàïèñûâàåì òåêñò èç TEdit'a...
Edit1.Clear; // î÷èùàåì ïîëå
ServerSocket1.Socket.Connections[0].SendText(S); // è îòïðàâëÿåì òåêñò
Memo1.Lines.Add('< '+S);
end;
пытаюсь написать чат, после компиляции на строчке
ServerSocket1.Socket.Connections[0].SendText(S)
выбивает ошибку List of index of bounds(0) или как то так, как исправить?