Среда, 14.11.2018, 09:56
Главная Регистрация RSS
Приветствую Вас, Гость
Меню сайта
Категории раздела
Форма входа
ДРУЗЬЯ САЙТА

Вызвать мастера в Красноярске

8 983 207 5474

8 902 918 9334

8 933 332 3164

---------------------------------

Запчасти бытткхники

  • Велес т.2935600
  • СЦ Близнецов т.2296595
  • Вираж
  • Красраб 110 т.2589503
  • Комплекстур Щорса30 т.2606797
  • Радиодетали

  • Якорный 9 т.2688317
  • Воронова 16 т.2202990
  • Красраб 125а т.2456544
  • Профи т.2702737
  • Дайте две т.+79237713323
  • Электрика

  • Электро +
  • Планета электрика
  • ЗАКЛАДКИ
    Поиск
    Статистика

    Онлайн всего: 14
    Гостей: 14
    Пользователей: 0
    Главная » Статьи » C++ Builder XE » Простые примеры

    C++ BUILDER XE IdDayTime точное время

    C++ BUILDER XE IdDayTime точное время

    =

    =

    =

    //---------------------------------------------------------------------------

    #include <vcl.h>
    #pragma hdrstop

    #include "Unit1.h"
    //---------------------------------------------------------------------------
    #pragma package(smart_init)
    #pragma resource "*.dfm"
    TForm1 *Form1;
    //---------------------------------------------------------------------------
    __fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
    {
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
      if( ComboBox1->Text != "" && ListBox1->ItemIndex != -1){
      if( IdDayTime1->Connected() ) IdDayTime1->Disconnect();

      UnicodeString s, d, zn, sh ;

      zn = ListBox1->Items->Strings[ListBox1->ItemIndex ].SubString(1,1) ;
      sh = ListBox1->Items->Strings[ListBox1->ItemIndex ].SubString(2,2) ;

      TDateTime dt,pt;
      TSystemTime st;

      Edit1->Text = "";  Edit2->Text = "";

        TFormatSettings FormatSettings;
                        FormatSettings.DateSeparator = '.';
                        FormatSettings.TimeSeparator = ':';
                        FormatSettings.LongDateFormat = "DD.MM.YY";
                        FormatSettings.ShortDateFormat = "DD.MM.YY";
                        FormatSettings.ShortTimeFormat = "HH:MM:SS";
                        FormatSettings.LongTimeFormat = "HH:MM:SS";

      try {
       IdDayTime1->Host = ComboBox1->Text ;  //
       IdDayTime1->Port = 13;
       s = IdDayTime1->DayTimeStr ;
       IdDayTime1->Disconnect();
      }
      catch (...) {
        IdDayTime1->Disconnect();   Edit1->Text = "Сервер не отвечает";  return;
      }

       if(s == ""){ Edit1->Text = "Сервер не отвечает"; return;  }
       else {
       Edit1->Text = s;
    d= s.SubString(13,2) + "." +
       s.SubString(10,2)+ "." +
       s.SubString(7,2) + " " +
       s.SubString(16,2) + ":" +
       s.SubString(19,2) + ":" +
       s.SubString(22,2) ;

       dt = StrToDateTime( d);

       if(zn == "+" || zn == "0"){
        pt = StrToDateTime( sh + ":00" + ":00" );
        dt = dt + pt;
      }
       if(zn == "-" ){
        pt = StrToDateTime(sh+":00"+":00" );
        dt=dt-pt;
      }
      Edit2->Text =    DateTimeToStr(dt) ;

       if( RadioButton1->Checked ){
       DateTimeToSystemTime(dt,st);
       SetLocalTime( &st );
       }

       }
      }  else ShowMessage("Заполни поле хост или выбери пояс");
    }
    //---------------------------------------------------------------------------

     

    =

    Категория: Простые примеры | Добавил: doka (22.05.2017)
    Просмотров: 345 | Рейтинг: 0.0/0
    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]