Главный модуль программы (часть 4) - Status_Notifyer

Рубрика: Исходники
Среда, 21 апреля 2010 г.
Просмотров: 157
последняя версия: 3.0.9 build 961 beta
от 07 декабря 2007 г.
function Status_Notifyer(State:integer):boolean;
var
  str, s, s2: string;
  i: integer;
begin
Form1.lblFreeSpace.Caption:= '';         
if State=1

  then
    begin
      str:= stText01;
      if oldTelStat <> TelStatus
        then
          try
           Form1.lblFreeSpace.Caption:= '';
           if CurrentP2KMode.IType = $102
             then begin
                    //Form1.StatusBar1.Panels[0].Text:= 'Connected: P2K'
                    Form1.IsP2KConnected:= boolean(state);
                    Form1.IsFlashConnected:= not boolean(state);
                    s2:= '';
                    //ping
                    if not isP2KFound then
                      begin
                        if p2k.Ping_P2K05
                          then iP2KCF := 1
                          else iP2KCF := 0;
                        isP2KFound:= true;  
                      end;    
                    //
                    xModel:= Trim(P2K.GetModel);
                    xPlatform:= P2K.GetPlatform_P2K;
                    SetVarsByPlatform;
                    if xModel <> '' then Form1.lblModel.Caption:= xModel;
                    Form1.SetStatusConnected(boolean(state), '');
                  end
             else begin
                    //Form1.StatusBar1.Panels[0].Text:= 'Connected: Flash';
                    isP2KFound:= false;
                    Form1.lblFreeSpace.Caption:= USB_LocationName;
                    Form1.IsP2KConnected:= not boolean(state);
                    Form1.IsFlashConnected:= boolean(state);
                    xModel:= Trim(P2K.GetModel_Flash);
                    xPlatform:= xModel;
                    xPlatform:= ExtractStr(xPlatform, '_');
                    if xModel <> '' then Form1.lblModel.Caption:= xModel;
                  end;
             {****}
           finally
           end;
    end
  else
    begin
      str:= stText02;
      s:= '<b>Телефон отключен от P2K режима</b>';
      //Form1.AdvOfficeStatusBar1.Panels[2].Text:= '';
      Form1.lblModel.Caption:= '';
      Form1.IsP2KConnected:= false;
      Form1.IsFlashConnected:= false;
    end;
  Form1.SetStatusConnected(boolean(state), '');
  if oldTelStat = not TelStatus then
    begin
    end;
  oldTelStat:= TelStatus;
end;
Rambler's Top100