Monthly Archives: December 2016

C#. Пример на перечисления и массивы

Posted on 29.12.2016 by Stanislav_Panteleev

Вот что у нас получится А вот собственно код…

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class MainForm : Form
    {

        

        public MainForm()
        {
            InitializeComponent();
        }



        private void button1_Click(object sender, EventArgs e)
        {
            int i=10;

            //i = 1000000;



            MessageBox.Show("Hello world, just started learn C# " +
                " I love you C# " + i.ToString() + " times " +"\n"+ sizeof(int).ToString() +"bytes");

        }


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

      // Describing new enum type here  
      enum WeekDays
        {
            Monday, Tuesday, Wednesday,
            Thursday, Friday, Saturday, Sunday
        };

      // Describing new array of strings here
        string[] WeekDaysRussianNames = { "Понедельник", "Вторник",
 "Среда", "Четверг", "Пятница", "Суббота", "Воскресенье" };


        WeekDays day = WeekDays.Thursday;




        private void bTest_Click(object sender, EventArgs e)
        {

            // day in English
            richTextBox.AppendText("Сегодня " + day+"\n");

            // // day in Russsian
            richTextBox.AppendText(
                
                "Сегодня " + WeekDaysRussianNames[(int)day]+"\n"
                
                );


            // index of day

            int dayIndex = (int)day + 1;

            richTextBox.AppendText(

                "Номер дня " + dayIndex + "\n"

                );


            // check by Comparing
            if (day == WeekDays.Thursday) {

                richTextBox.AppendText(

                    "Сегодня день недели " + day + "\n"

                    );


            };


        }
    }
}

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace WindowsFormsApplication1

{

public partial class MainForm : Form

{

public MainForm()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

int i=10;

//i = 1000000;

MessageBox.Show("Hello world, just started learn C# " +

" I love you C# " + i.ToString() + " times " +"\n"+ sizeof(int).ToString() +"bytes");

}

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

// Describing new enum type here

enum WeekDays

{

Monday, Tuesday, Wednesday,

Thursday, Friday, Saturday, Sunday

};

// Describing new array of strings here

string[] WeekDaysRussianNames = { "Понедельник", "Вторник",

"Среда", "Четверг", "Пятница", "Суббота", "Воскресенье" };

WeekDays day = WeekDays.Thursday;

private void bTest_Click(object sender, EventArgs e)

{

// day in English

richTextBox.AppendText("Сегодня " + day+"\n");

// // day in Russsian

richTextBox.AppendText(

"Сегодня " + WeekDaysRussianNames[(int)day]+"\n"

);

// index of day

int dayIndex = (int)day + 1;

richTextBox.AppendText(

"Номер дня " + dayIndex + "\n"

);

// check by Comparing

if (day == WeekDays.Thursday) {

richTextBox.AppendText(

"Сегодня день недели " + day + "\n"

);

};

}

Posted in C# | Comments Off

C#. HelloWorld. I love you C#

Posted on 29.12.2016 by Stanislav_Panteleev

Попрактикуемся в C#. Традиционный Hello world

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class MainForm : Form
    {
        public MainForm()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            int i;

            i = 1000000;


            MessageBox.Show("Hello world, just started learn C# " + 
                " I love you C# "+ i.ToString()+" times");

        }
    }
}

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace WindowsFormsApplication1

{

public partial class MainForm : Form

{

public MainForm()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

int i;

i = 1000000;

MessageBox.Show("Hello world, just started learn C# " +

" I love you C# "+ i.ToString()+" times");

}

Posted in Без рубрики | Comments Off

Delphi. MySQL. Ошибка Type mismatch for field ‘name’, expecting: String actual: WideString

Posted on 26.12.2016 by Stanislav_Panteleev

Пока не понял природу этой ошибки, но решил зафиксировать, мало ли кому понадобится.

First chance exception at $7470A832. Exception class EDatabaseError with message 
'FDTable: Type mismatch for field 'name', expecting: String actual: WideString'

1 2	First chance exception at $7470A832. Exception class EDatabaseError with message 'FDTable: Type mismatch for field 'name', expecting: String actual: WideString'

Такая ошибка появилась у меня в результате работы с базой MySQL с кодировкой UTF8 и FDConnection, также с кодировкой UTF8, но передаваемым не напрямую, а через … Continue reading →

Posted in Delphi | Comments Off

Delphi. UniGUI. Делаем витрину (showcase) 2 часть

Posted on 19.12.2016 by Stanislav_Panteleev

В прошлом посте мы сделали подготовочку. Структуру базы данных, определили основные сущности программы, создали под них таблицы в базе и модули в прекрасной IDE Delphi. В данном посте добавим функцию добавления товара, выделения товара, удаления товара, а также наладим листание … Continue reading →

Posted in Delphi, Indy, UniGui, Без рубрики | Comments Off

Delphi. Uploading to Keep2Share. Successful attempt

Posted on 18.12.2016 by Stanislav_Panteleev

А теперь удачная попытка. Суть в том, что мы сначала отправляем файлы на VPS, далее, уже на Keep2Share через PHP скрипт. Сам скрипт отправки файла с одного сервера на другой достаточно прост

<?php
include "Keep2ShareAPI.php";

$api = new Keep2ShareAPI();
$api->username='panteleevstas@gmail.com';
$api->password='SLwA63';

$filepath=$_REQUEST['filepath'];
var_dump($api->uploadFile($filepath));


/*
object(stdClass)#2 (3) {
  ["user_file_id"]=>
  string(13) "5238354a724c3"
  ["status"]=>
  string(7) "success"
  ["status_code"]=>
  int(200)
}
*/
?>

<?php

include "Keep2ShareAPI.php";

$api = new Keep2ShareAPI();

$api->username='panteleevstas@gmail.com';

$api->password='SLwA63';

$filepath=$_REQUEST['filepath'];

var_dump($api->uploadFile($filepath));

object(stdClass)#2 (3) {

["user_file_id"]=>

string(13) "5238354a724c3"

["status"]=>

string(7) "success"

["status_code"]=>

int(200)

}

Он выдает некоторую информацию, из которой нам … Continue reading →

Posted in Delphi, Indy | Comments Off

Delphi. Uploading to Keep2Share. Half Successfull Atempt…

Posted on 18.12.2016 by Stanislav_Panteleev

Поступил ко мне небольшой заказ на автоматизацию заливки файлов на файлообменник Keep2Share.cc Всего было у меня 2 попытки делания данного проекта. Сначала опишу неудачную попытку, а в другом посте удачную. Задача стояла таким образом, чтобы сделать заливку напрямую из Delphi … Continue reading →

Posted in Delphi, Indy, Без рубрики | Comments Off

Delphi. Indy. Как отправить Get запрос, принять и обработать его на idHTTPServer?

Posted on 10.12.2016 by Stanislav_Panteleev

Уже была подобная статья про отправку запросов с параметрами методом POST, а также был подобный пост, который касался отправки файлов методом POST и был на порядок сложнее того, что я напишу сейчас. Данные во второй статье отправляются в кодированном виде и мы делали … Continue reading →

Posted in Delphi, Indy, UniGui | Comments Off

Delphi. UniGUI. Application Data Module and Free DataModule

Posted on 09.12.2016 by Stanislav_Panteleev

Небольшая заметка! При создании дата модулей в UniGUI у нас есть 2 варианта – Application Data Module and Free Data Module В чем разница? Ответ на этот вопрос я получил на форуме UniGUI. Процитирую его здесь. Application Data Module’s life time … Continue reading →

Posted in Delphi, UniGui | Comments Off

Delphi. Рекурсивный обход каталога файлов Windows при помощи SYSTEM.IOUTILS

Posted on 08.12.2016 by Stanislav_Panteleev

Задача тривиальная, но всё же. Зачастую обходы делают при помощи SearchRecord, но стало интересным сделать это при помощи модуля System.IOUtils Получилось так… Каталоги файлов и папок очень похожи по структуре на дерево или граф. Соответственно можно применить один из методов … Continue reading →

Posted in Delphi | Comments Off

Delphi. UniGUI. Делаем витрину (showcase)

Posted on 07.12.2016 by Stanislav_Panteleev

Друг попросил сделать небольшую витрину на UniGUI, получилось так… Сделал на фрэймах. В 2 режимах – multipage – когда товары добавляются по N, например по 10 товаров на странице и бесконечно слева направо сверху вниз.

Posted in Delphi, UniGui | Comments Off

Monthly Archives: December 2016

C#. Пример на перечисления и массивы

C#. HelloWorld. I love you C#

Delphi. MySQL. Ошибка Type mismatch for field ‘name’, expecting: String actual: WideString

Delphi. UniGUI. Делаем витрину (showcase) 2 часть

Delphi. Uploading to Keep2Share. Successful attempt

Delphi. Uploading to Keep2Share. Half Successfull Atempt…

Delphi. Indy. Как отправить Get запрос, принять и обработать его на idHTTPServer?

Delphi. UniGUI. Application Data Module and Free DataModule

Delphi. Рекурсивный обход каталога файлов Windows при помощи SYSTEM.IOUTILS

Delphi. UniGUI. Делаем витрину (showcase)

MY PROJECTS

Recent Posts

Categories