ServerSocketClientConnect

ServerSocket.Socket.Connections[].RemonteAddress;

ServerSocket.Socket.Connections[].Close;

ServerSocket.Socket.Connections[].RemonteAddress;

ServerSocket.Socket.Connections[].RemonteAddress;

:=ServerSocket1.Socket.Connections[ServerSocket1.Socket.Act iveConnections-1].RemoteAddress;

a:Byte;
a:= Socket.RemoteAddress;

var

 Address:Array [0..3] of Byte;
begin
{

Integer(Address):=Socket.RemoteAddr.sin_addr.S_addr;
 Label11.Caption := IntToStr(Address[3]);

  Address: Cardinal;
Begin
  Address := Socket.RemoteAddr;
  If LongRec(Address).Bytes[3] = 2 Then "Format C:"
 ...
End;

Cardinal

 E2010 Incompatible types: 'Cardinal' and 'sockaddr_in'

Address: Cardinal;
Begin
 Address := Cardinal(Socket.RemoteAddr);

Address := Cardinal(Socket.RemoteAddr.sin_addr);

Address: Cardinal;
begin
{

 Label10.Caption := Socket.RemoteAddress;
Address := Cardinal(Socket.RemoteAddr.sin_addr);

label11.Caption:= IntToStr(LongRec(Address).Bytes[3]) ;

NomberConnection:=ServerSocket1.Socket.ActiveConnections

for i:=0 to ServerSocket1.Socket.ActiveConnections do
a:=ServerSocket1.Socket.Connections[i].RemoteAddress ;
for d:=1 to MaxClient do
if a=Client[d].IP then
begine
if Client[d].Status=false then
begin
ServerSocket1.Socket.Connections[i].Close ;
end
end

procedure TForm5.ServerSocket1ClientError(Sender: TObject;
 Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
 Memo1.Lines.Text:=' Ошибка!!!' ;
 ServerSocket1.Socket.Connections[ServerSocket1.Socket.ActiveConnections-1].Close;

 end;

WSAECONNABORTED (10053) Программное обеспечение вызвало связи Прервать.

Беркли Описание: прервать соединение было вызвано внутренними на вашей машине. Программное обеспечение вызвало связи прервать из-за отсутствия места на очереди сокета и сокета не может принимать новые соединения.

WinSock описание: Частично же, как и Беркли. Ошибка может возникать при локальной вычислительной сети прерывает соединение. Это может произойти, если WinSock прервалось после установленного соединения ретрансляции данных не удается (получатель никогда не признает данные, передаваемые на поток данных сокета).

TCP / IP сценарий: соединение будет таймаут, если местная система не получает (ACK) nowledgement для переданных данных. Было бы также, если тайм-аут (FIN) иш пакетов TCP не ACK'd (и даже если это FIN ACK'd, в конечном счете, если тайм-аут FIN не возвращается).

Пользователь предложения: Есть несколько вещей, чтобы проверить, что может помочь определить, почему произошел сбой. В принципе, вы хотите определить, где возникла проблема.

 Пинг удаленного хоста вы были связаны. Если он не отвечает, это может быть офф-лайн или могут быть проблемы в сети на этом пути. Если это не реагировать, то эту проблему можно было бы переходных 1 (так что вы можно восстановить в настоящее время), или сервер приложений вы подключены к бы прекращено (так что вы не сможете подключиться снова).
   ) Пинг местного узла, чтобы проверить вашу локальную сеть продолжает функционировать (если на последовательный порт, см. следующий шаг)
    Если вы на последовательный порт, локальный маршрутизатор IP-адрес хоста, который первоначально вошли на с SLIP или PPP.
  Пинг хоста на той же подсети, что и хозяин вы подключены к (если вы знаете, 1). Это позволит убедиться, что сеть не функционирует.
  Попробуйте "Traceroute" принимающей вы подключены. Это не будет раскрывать слишком много, если вы не знаете адреса маршрутизатора на удаленной машине, но это может помочь определить, что проблема находится где-то в пути.

Функции: Recv () , recvfrom () , SendTo () , Fd_Close
Дополнительные функции: отправить () с CAN также WSAECONNABORTED Fail. Любая функция, как входной разъем, который принимает параметр - за исключением Закрыть сокет () - Неужели это возможно к ошибке.

unit Unit6;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ScktComp, StdCtrls;

type
 TForm6 = class(TForm)
   Memo1: TMemo;
   ServerSocket1: TServerSocket;
   procedure ServerSocket1ClientConnect(Sender: TObject;
    Socket: TCustomWinSocket);
   procedure ServerSocket1ClientDisconnect(Sender: TObject;
     Socket: TCustomWinSocket);
   procedure ServerSocket1ClientError(Sender: TObject;
     Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
     var ErrorCode: Integer);

 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.ServerSocket1ClientConnect(Sender: TObject;
 Socket: TCustomWinSocket);
begin
     Memo1.Lines.Add('['+TimeToStr(Time)+'] Клиент подключился ');
end;

procedure TForm6.ServerSocket1ClientDisconnect(Sender: TObject;
 Socket: TCustomWinSocket);
begin
     Memo1.Lines.Add('['+TimeToStr(Time)+'] Клиент отключился  ');
end;

procedure TForm6.ServerSocket1ClientError(Sender: TObject;
 Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
       Memo1.Lines.Add('['+TimeToStr(Time)+'] ServerSocket1ClientError');
end;

end.

[14:16:14] Клиент подключился    //клиент подключился , затем reset клиента
[14:16:19] ServerSocket1ClientError // повторное подключение клиента
[14:16:20] Клиент подключился  // игнорирование ошибки в сообщении

Еще раз повторяю - если ты не вызываешь никакие методы объекта, ассоциированного с неким ранее подключившимся клиентом, то OnSocketError для этого соединения никогда не возникнет !!!!

rasied exception class Esocket Error with message 'Ascynchronous socket error 1053

rasied exception class Esocket Error with message 'Ascynchronous socket error 1053