WestByte Support Forum

Code: Select all

Работа с подключением идёт так. 
Запускается подключение и фиксируется факт этого. 
При подключении фиксируется его факт. 
При перехвате отключения и установленной опции "Переподключаться" идёт переподключение. 
Ежеминутно выполняется проверка на соответствие состояния подключения зафиксированным фактам. 
Если фиксировалось, что плагин подключился, а сейчас он реально отключён - идёт переподключение.

Code: Select all

procedure TDMTestPlugIn.ICQLogin(Sender: TObject);
begin { ICQ ОНЛАЙН }
...
 WasConnected:=true;
 WasDisconnected:=false;
 Connecting:=false;
...
end;

procedure TDMTestPlugIn.ICQLogOff(Sender: TObject);
begin { ICQ ОФФЛАЙН }
...
 WasConnected:=false;
 WasDisconnected:=false;
 Connecting:=false;
...
end;

procedure TDMTestPlugIn.ICQServerDisconnect(Sender: TObject; Reason: LongInt; Description: string);
begin // ICQ - Сервер отключил
 WasDisconnected:=true;
end;

procedure TDMTestPlugIn.ICQConnectionFailed(Sender: TObject);
begin // ICQ - не удалось подключиться
 WasDisconnected:=true;
 Connecting:=false;
end;

procedure TDMTestPlugIn.CommonInit;
begin
 ...
 //ICQ init
 Application.CreateHandle;             // убирает тормоза
 ICQ:=TICQClient.Create(Application);  // при ответе ICQ
 ICQ.OnMessageRecv := ICQMsgRecv;
 ICQ.OnError := ICQError;
 ICQ.OnLogin := ICQLogin;
 ICQ.OnLogOff := ICQLogOff;
 ICQ.OnUserInfoShort := ICQInfoShort;
 ICQ.OnInfoChanged := ICQInfoChanged;
 ICQ.TypingNotifications:=true;
 ICQ.ConvertToPlaintext := True;
 ICQ.DisableDirectConnections:=true;
 //отключения
 ICQ.OnServerDisconnect := ICQServerDisconnect;
 //авторизация
 ICQ.OnAuthRequest := ICQAuthRequest;
 //
 ...
 WasConnected:=false;
 WasDisconnected:=false;
 Connecting:=false;
 ...
end;

procedure TDMTestPlugIn.ICQSetup;
 var
  i: Integer;
  s: String;
begin
 ICQ.UIN:=Sets[cBotUIN];
 ICQ.Password:=[censored];
 ICQ.SecureLogin := True;
 i:=Sets[cNetServer];
 s:=Sets[cNetServers];
 if WordCount(s, [','])<(i+1) then
  begin
   i:=0;
   Sets[cNetServer]:=i;
  end;
 ICQ.ICQServer := ExtractWord(i+1, s, [',']);
 ICQ.ICQPort := Sets[cNetPort];
 case Sets[cProxyType] of
  1: ICQ.ProxyType:=P_HTTP;
  2: ICQ.ProxyType:=P_HTTPS;
  3: ICQ.ProxyType:=P_SOCKS4;
  4: ICQ.ProxyType:=P_SOCKS5;
  else
    ICQ.ProxyType:=P_NONE;
  end;
 ICQ.ProxyHost:=Sets[cProxyHost];
 ICQ.ProxyPort:=Sets[cProxyPort];
 ICQ.ProxyAuth:=Sets[cProxyAuth];
 ICQ.ProxyUserID:=Sets[cProxyLogin];
 if Sets[cProxyLogin]='' then
   ICQ.ProxyPass:=''
 else
   ICQ.ProxyPass:=[censored];
 ICQ.ProxyResolve := ICQ.ProxyType<>P_NONE;                     
end;

procedure TDMTestPlugIn.ConnectICQ;
begin
 ...
 ICQ.Login(S_ALLOWDAUTH);    //ВАЖНО! указанноый статус позволяет
                             //избежать завечивания IP адреса
 //
 WasConnected:=false;
 Connecting:=true;
...
end;

procedure TDMTestPlugIn.DisconnectICQ;
begin
...
 ICQ.LogOff;
 //
 WasDisconnected:=false;
 Connecting:=false;
end;

procedure TDMTestPlugIn.ICQError(Sender: TObject; ErrorType: TErrorType; ErrorMsg: String);
begin { ICQ - Ошибка }
...
 case ErrorType of
  ERR_SOCKET:
   begin
    if Sets[cShowErrorPopups] then
      PopUp('Socket '+BoolToStr(ICQ.LoggedIn, true)+#13+ErrorMsg, ptError);
   end;
  ERR_PROXY:
   begin
    if Sets[cShowErrorPopups] then
      PopUp('Proxy '+BoolToStr(ICQ.LoggedIn, true)+#13+ErrorMsg, ptError);
   end;
  ERR_PROTOCOL:
   begin
    if Sets[cShowErrorPopups] then
      PopUp('Protocol '+BoolToStr(ICQ.LoggedIn, true)+#13+ErrorMsg, ptError);
   end;
  ERR_CONNTIMEOUT:
   begin
    if Sets[cShowErrorPopups] then
      PopUp('Timeout '+BoolToStr(ICQ.LoggedIn, true)+#13+ErrorMsg, ptError);
   end;
  end;
 //
 if not ICQ.LoggedIn and WasConnected then
   WasDisconnected:=true;
 Connecting:=false;
end;

function TDMTestPlugIn.EventRaised(eventType: WideString; eventData: WideString): WideString;//вызывается из ДМ-ма при возникновении какого либо события
...
begin
 if eventType = 'plugin_start' then
   Enabled:=true;
 if eventType = 'plugin_stop' then
   Enabled:=false;
 if (eventType = 'dm_timer_60') then
  begin
   if ICQ.LoggedIn then //подключены?
    begin
     ICQ.SendKeepAlive; //поддерживаем соединение
     ICQSetXStatus;
    end
   else //выбило?
    begin
     if (WasDisconnected or WasConnected) and Sets[cBotReConnect] then
      begin
       if WasConnected and not WasDisconnected then
        begin
         if Sets[cShowErrorPopups] then
           PopUp('Неизвестная ошибка отключения от сети!', ptError);
        end;
       ConnectICQ;
      end;
    end;
   ...
  end;
...
end;