7. Алгоритм программы сокеты (1060546), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

Memo2.Lines.Insert(0,'Client connection accepted');

end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;

Socket: TCustomWinSocket);

begin

{Клиент подсоединяется}

Memo2.Lines.Insert(0,'Client connected');

end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;

Socket: TCustomWinSocket);

begin

{Клиент отсоединяется}

Memo2.Lines.Insert(0,'Client disconnected');

end;

procedure TForm1.ServerSocket1ClientError(Sender: TObject;

Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

var ErrorCode: Integer);

begin

{Произошла ошибка – вывод ее кода}

Memo2.Lines.Insert(0,'Client error. Code = '+IntToStr(ErrorCode));

end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

begin

{От клиента получено сообщение - вывод его в Memo1}

Memo2.Lines.Insert(0,'Message received from client');

Memo1.Lines.Insert(0,'> '+Socket.ReceiveText);

end;

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;

Socket: TCustomWinSocket);

begin

{Теперь можно слать данные в сокет}

Memo2.Lines.Insert(0,'Now can write to socket');

end;

procedure TForm1.ServerSocket1GetSocket(Sender: TObject; Socket: Integer;

var ClientSocket: TServerClientWinSocket);

begin

Memo2.Lines.Insert(0,'Get socket');

end;

procedure TForm1.ServerSocket1GetThread(Sender: TObject;

ClientSocket: TServerClientWinSocket;

var SocketThread: TServerClientThread);

begin

Memo2.Lines.Insert(0,'Get Thread');

end;

procedure TForm1.ServerSocket1ThreadEnd(Sender: TObject;

Thread: TServerClientThread);

begin

Memo2.Lines.Insert(0,'Thread end');

end;

procedure TForm1.ServerSocket1ThreadStart(Sender: TObject;

Thread: TServerClientThread);

begin

Memo2.Lines.Insert(0,'Thread start');

end;

procedure TForm1.Button3Click(Sender: TObject);

var i: Integer;

begin

for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do begin

ServerSocket1.Socket.Connections[i].SendText(Edit1.Text);

end;

Memo1.Lines.Insert(0,'< '+Edit1.Text);

end;

Характеристики

Список файлов курсовой работы