Листопад 2015 – К2® Cloud Info

Работа со строками в Delphi

14.11.2015 rudjuk Leave a comment

Наименование Описание AdjustLineBreaks функция Устанавливает символы окнчания строки в стиле Windows (конец строки, перевод коретки) или в стиле Linux (только конец строки). AnsiCompareStr функция Сравнивает строки, базирующиеся на текущей локализации Windows, с учетом регистра. AnsiCompareText функция Сравнивает строки, базирующиеся на текущей локализации Windows, без учета регистра. AnsiContainsStr функция Показывает является ли одна строка подстрокой другой (с учетом регистра). AnsiContainsText функция Показывает является ли одна строка подстрокой другой (без учета регистра). AnsiDequotedStr функция Конвертирует обкавыченную строку в строку без кавычек. AnsiEndsStr функция Показывает является ли одна строка окончанием другой (с учетом регистра). AnsiEndsText функция Показывает является ли одна строка окончанием другой (без учета регистра). AnsiExtractQuotedStr функция Конвертирует обкавыченную строку в строку без кавычек. Если в строке имеются несколько пар символов кавычек, то в результат копируются символы от начала строки до второго вхождения символа кавычек. AnsiIndexStr функция Находит индекс указанной строки (с учетом регистра) в массиве строк. Если строка не найдена, то возвращается -1. AnsiIndexText функция Находит индекс указанной строки (без учета регистра) в массиве строк. Если строка не найдена, то возвращается -1. AnsiLeftStr функция Возвращает подстроку заданной длины от начала строки. AnsiLowerCase функция Возвращает строку в нижнем регистре. AnsiMatchStr функция Показывает является ли какая либо строка из указнного массива строк частью заданной строки (с учетом регистра). AnsiMatchText функция Показывает является ли какая либо строка из указнного массива строк частью заданной строки (без учета регистра). AnsiMidStr функция Возвращает подстроку заданной длины от указанной позиции в строке. AnsiPos функция Определяет позицию первого вхождения подстроки от начала строки. AnsiQuotedStr функция Возвращает обкавыченную […]

Delphi

Получение исходного кода в компоненте Chromium (Delphi)

14.11.2015 rudjuk One comment

Раньше для того, чтоб получить исходный код в компоненте Chromium хватало выполнить подобный код:

var Txt:String;
begin
Txt:=Chrom.Browser.MainFrame.Source;
end;

var Txt:String;

begin

Txt:=Chrom.Browser.MainFrame.Source;

end;

Однако, с некоторых пор свойство Source перестало работать таким способом. Теперь, чтоб получить исходный код, необходимо выполнить такой код:

public
    { Public declarations }
    HTML:ustring;
...
procedure ShowSource(const SRC: ustring);
begin
  Form1.HTML:=SRC;
end;
 
 
procedure TForm1.ChromLoadEnd(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer);
begin
  // это событие срабатывает, когда документ загружен
  if (browser <> nil) and (browser.Identifier = Chrom.BrowserId) and
    ((frame = nil) or (frame.IsMain))
  then
    Chrom.Browser.MainFrame.GetSourceProc(ShowSource);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    Memo1.Lines.Add(HTML);
end;

public

{ Public declarations }

HTML:ustring;

...

procedure ShowSource(const SRC: ustring);

begin

Form1.HTML:=SRC;

end;

procedure TForm1.ChromLoadEnd(Sender: TObject; const browser: ICefBrowser;

const frame: ICefFrame; httpStatusCode: Integer);

begin

// это событие срабатывает, когда документ загружен

if (browser <> nil) and (browser.Identifier = Chrom.BrowserId) and

((frame = nil) or (frame.IsMain))

then

Chrom.Browser.MainFrame.GetSourceProc(ShowSource);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Memo1.Lines.Add(HTML);

end;

Нужно признать, что код усложнился. Не для чего разработчики внесли такие изменения… Но, факт – на лицо.

Delphi

Горячик клавиши mc и mcedit

14.11.2015 rudjuk Leave a comment

Часто приходится работать в терминале на прямую. Открываешь огромный файл редактором mc и редактируешь, смотришь. Однако, когда файлы размеров в много сотен тысяч строк, без знания комбинаций клавиш очень тяжело работать. В мануалах и справках клавишу Ctrl обозначают как C, а M – это клавиша Alt. Если команда пишеться через “-” это означает что они нажимаются совместно. Если через пробел, то после нажатия первой (отпуская первую) нажимают следующую. В главном окне mc (midnight commander) C-O переключение на subshell и обратно M-c сменить текущий каталог (возникает необходимость когда в командной строке уже что-то набрано) В mcedit: F3 начать выделение / закончить выделение F5 скопировать выделенный текст F6 переместить выделенный текст F8 удалить выделенный текст M-L перейти к строке с номером M-B перейти к парной скобке (полезная вещь для программеров, и не только) С-F скопировать выделенный блок в файл буфер C-U отменить последнее действие С-K удалить до конца строки от текущей позиции курсора С-Y удалить строку C-Z перейти к началу предыдущего слова C-X перейти к концу следующего слова

Linux

Резервное копирование баз данных Postgresql в Linux

10.11.2015 rudjuk Leave a comment

У нас в ресурсе уже описано много способов реализации резервного копирования информации. Продолжим данную тему. Теперь, рассмотрим резервное копирование баз данных Postgresql в операционной системе Linux. Вот вариант резервного копирования для 3-х баз данных:

dump_path="/fw/backup/1cbases"

# Устанавливаем разделитель для элементов массива, предварительно резервируя системный:
oldIFS==$IFS
IFS=";"

# Названия баз данных, которые будем сохранять, перечисленные через разделитель, заданный выше
dump_bases="BASE1;BASE2;BASE2"

# Срок хранения резервных копий, дней:
dump_keepdays="7"


PGPASSWORD=ВАШ_ПАРОЛЬ
export PGPASSWORD


for dump_base in $dump_bases; do

# Создаём дамп от имени пользователя postgres, в сжатый файл с именем вида %dbname%-yyyy-mm-dd.sql.gz
pg_dump -h 192.168.77.75 $dump_base --username=postgres | gzip > $dump_path/$dump_base-`date \+\%Y-\%m-\%d`.sql.gz

find $dump_path/$dump_base*.sql.gz -mtime +$dump_keepdays -exec /bin/rm '{}' \;

done

PGPASSWORD=
export PGPASSWORD

# Восстанавливаем стандартный (системный) разделитель списков
IFS=$oldIFS

exit 0

dump_path="/fw/backup/1cbases"

# Устанавливаем разделитель для элементов массива, предварительно резервируя системный:

oldIFS==$IFS

IFS=";"

# Названия баз данных, которые будем сохранять, перечисленные через разделитель, заданный выше

dump_bases="BASE1;BASE2;BASE2"

# Срок хранения резервных копий, дней:

dump_keepdays="7"

PGPASSWORD=ВАШ_ПАРОЛЬ

export PGPASSWORD

for dump_base in $dump_bases; do

# Создаём дамп от имени пользователя postgres, в сжатый файл с именем вида %dbname%-yyyy-mm-dd.sql.gz

pg_dump -h 192.168.77.75 $dump_base --username=postgres | gzip > $dump_path/$dump_base-`date \+\%Y-\%m-\%d`.sql.gz

find $dump_path/$dump_base*.sql.gz -mtime +$dump_keepdays -exec /bin/rm '{}' \;

done

PGPASSWORD=

export PGPASSWORD

# Восстанавливаем стандартный (системный) разделитель списков

IFS=$oldIFS

exit 0

Сохранение бекапа на удаленном сервере по ssh В условиях отсутствия локального или сетевого тома для хранения резервных копий (несколько натянутое условие, но мне пришлось столкнуться), пришлось доработать скрипт; отличие от изначального скрипта – результат дампа не сохраняется локально, а передаётся на удалённый сервер по ssh и там же производится удаление устаревших файлов:

#!/bin/sh
# Для инструкций по восстановлению см. postgresql.org/docs/8.1/static/backup.html
# Путь на сервере резервирования, куда будем складывать резервные копии
dump_path="/mnt/backup/pgsql"
# Устанавливаем разделитель для элементов массива, предварительно резервируя системный:
oldIFS==$IFS
IFS=";"
# Названия баз данных, которые будем сохранять, перечисленные через разделитель, заданный выше
dump_bases="office_upp;buh_retail;zup"
# Срок хранения резервных копий, дней:
dump_keepdays="7"
# Создаём информационный файл в каталоге назначения ("для будущих поколений")
ssh -i /root/nbs01/backup backup@192.168.122.1 \
 "echo `date \+\%F\ \%T` Dumps of databases. For restoring see postgresql.org/docs/9.3/static/backup.html > $dump_path/readme.txt"
for dump_base in $dump_bases; do
# Создаём дамп от имени пользователя postgres, передавая текстовый дамп по ssh на удалённый сервер,
# сжимая там результат gzip'ом и сохраняя в файл с именем вида %dbname%-yyyy-mm-dd-hh-mm-ss.pgdump.gz
  sudo -u postgres pg_dump -Fc $dump_base | ssh -i /root/nbs01/backup backup@192.168.122.1 \
                                        "gzip > $dump_path/$dump_base-`date \+\%Y-\%m-\%d-\%H-\%M-\%S`.pgdump.gz"
  # Ищем в каталоге резервных копий все файлы с именами похожими на бэкап текущей БД и старше срока хранения и удаляем
  ssh -i /root/nbs01/backup backup@192.168.122.1 \
      "find $dump_path/$dump_base* -mtime +$dump_keepdays -exec /bin/rm '{}' \;"
done
ssh -i /root/nbs01/backup backup@192.168.122.1 \
 "echo `date \+\%F\ \%T` All data keeps $dump_keepdays days, older files will be removed automatically. >> $dump_path/readme.txt"
# Восстанавливаем стандартный (системный) разделитель списков
IFS=$oldIFS

#!/bin/sh

# Для инструкций по восстановлению см. postgresql.org/docs/8.1/static/backup.html

# Путь на сервере резервирования, куда будем складывать резервные копии

dump_path="/mnt/backup/pgsql"

# Устанавливаем разделитель для элементов массива, предварительно резервируя системный:

oldIFS==$IFS

IFS=";"

# Названия баз данных, которые будем сохранять, перечисленные через разделитель, заданный выше

dump_bases="office_upp;buh_retail;zup"

# Срок хранения резервных копий, дней:

dump_keepdays="7"

# Создаём информационный файл в каталоге назначения ("для будущих поколений")

ssh -i /root/nbs01/backup backup@192.168.122.1 \

"echo `date \+\%F\ \%T` Dumps of databases. For restoring see postgresql.org/docs/9.3/static/backup.html > $dump_path/readme.txt"

for dump_base in $dump_bases; do

# Создаём дамп от имени пользователя postgres, передавая текстовый дамп по ssh на удалённый сервер,

# сжимая там результат gzip'ом и сохраняя в файл с именем вида %dbname%-yyyy-mm-dd-hh-mm-ss.pgdump.gz

sudo -u postgres pg_dump -Fc $dump_base | ssh -i /root/nbs01/backup backup@192.168.122.1 \

"gzip > $dump_path/$dump_base-`date \+\%Y-\%m-\%d-\%H-\%M-\%S`.pgdump.gz"

# Ищем в каталоге резервных копий все файлы с именами похожими на бэкап текущей БД и старше срока хранения и удаляем

ssh -i /root/nbs01/backup backup@192.168.122.1 \

"find $dump_path/$dump_base* -mtime +$dump_keepdays -exec /bin/rm '{}' \;"

done

ssh -i /root/nbs01/backup backup@192.168.122.1 \

"echo `date \+\%F\ \%T` All data keeps $dump_keepdays days, older files will be removed automatically. >> $dump_path/readme.txt"

# Восстанавливаем стандартный (системный) разделитель списков

IFS=$oldIFS

Предварительно надо создать авторизационный ключ для пользователя (в приведённом скрипте пользователь – backup) на сервере резервного хранения и разместить приватный ключ в каталоге, доступном на чтение только пользователю root (в приведённом скрипте ключ лежит в файле /root/nbs01/backup) и настроить sshd удалённого сервера на авторизацию по ключам – об этом весьма подробно написано, например, в этой статье. Да, трафик будет весьма серьёзным, несмотря на возможность сжатия ssh, но конкретно данное решение работает в виртуальной среде, где 3 гигабайта дампа передаются примерно за полторы минуты, что вполне приемлемо. Восстановление базы данных из дампа Тут всё просто – если владелец (имя “роли входа” или пользователь postgresql, указанный владельцем изначальной БД) уже существует, но нет самой базы данных, команда восстановления будет выглядеть примерно так: /usr/pgsql-9.2/bin/pg_restore -e -j 8 -U root -W -d upp /root/files/upp-2013-11-20.pgdump Восстановление будет выполнено в 8 потоков (для ускорения процедуры, в документации pgsql рекомендуется использовать потоков не меньше, чем доступно ядер CPU) от имени пользователя root с интерактивным вводом пароля. Файл /mnt/arc/1C8/upp-2013-11-20-09-45-51.pgdump – […]

Перегенерация значений полей left_key и right_key в Shop-Script

05.11.2015 rudjuk Leave a comment

В Shop-Scropt ведутся промежуточные поля left_key, right_key. Они влияют на отображение дерева. Если данные поля заполнены не корректно, то ваше дерево может “развалиться” и вести не адекватно. Починить данную ситуцию Вы можете с помощью команд:

$model = new shopCategoryModel();
$model->repair();

1 2	$model = new shopCategoryModel(); $model->repair();

Или выполнив из URL:

/webasyst/shop/?module=repair&action=categories

1	/webasyst/shop/?module=repair&action=categories

Разработка и создание сайтов, интернет-магазинов, веб-приложений, порталов, лэндингов, мобильных приложений (Киев)

Интернет-магазины

Настройка SSH в GitLib

03.11.2015 rudjuk Leave a comment

При вставке больших файлов в GitLib, используя http-доступ возникает ошибка 413 и как результат – файлы не передаются. В таком случае, лучше передавать информацию через ssh. Но, для этого, нужно несколько повозиться и настроить ssh-ключи. В данной статье описывается, как настроить ssh-доступ для GitLib. После создания нового проекта стоит обратить внимание на 2 вещи: на подсказку вверху о невозможности записывать изменения при отсутствии SSH ключей на подсказки на странице о необходимых действиях – при создании нового проекта и при создании локального репозитория в существующем проекте. Начнем с SSH ключей. Стоит различать 2 разновидности SSH пар ключей – которые использует Git и которые используют клиенты типа Source Tree, Tortoise Git. Проблема первой разновидности в том, что без лишних телодвижений допускается использование только одной пары ключей, в то время как каждый репозиторий требует уникальный ключ, вторых же можно наплодить неограниченное количество (на самом деле можно использовать более 1 пары ключей первого типа, но предлагаемые решения работают либо частично, либо не работают вообще). Для начала, сделаем ключи для Git, для этого запустим Git Bash. Git подразумевает что в Windows среде ключи лежат по адресу ~ / .ssh / id_rsa, где ~ – путь к домашней директории пользователя (например c: \ Users \ USERNAME), в папке которого есть каталог .ssh, в котором лежит пара ключей – id_rsa.pub и id_rsa (соответственно публичная часть и приватная). Пришло время для генерирования ключей, возвращаемся к Git Bash и в консоль вводим следующее: ssh-keygen -t rsa -C “your_email@example.com”” Данная команда указывает Git Bash создать ключ с коментарием your_email@example.com (зачем […]

git и т.п.)

Git коротко

01.11.2015 rudjuk Leave a comment

Создаем копию проекта:

git clone http://git.corp2.net.net/web/k2shop.git

1	git clone http://git.corp2.net.net/web/k2shop.git

Конфигурирование репозитария:

git config --global user.email "ВАШ@Email"

1	git config --global user.email "ВАШ@Email"

Добавление новых файлов в репозитарий:

git add .

git add .

Сохранение изменений в репозитарий:

git commit -m "ВашКомментарий"

1	git commit -m "ВашКомментарий"

Подключение к удаленному репозитарию:

git remote add origin http://git.corp2.net/ВашРепозитарий/Репозитарий.git

1	git remote add origin http://git.corp2.net/ВашРепозитарий/Репозитарий.git

Добавление изменений в master:

git pull -u origin master

1	git pull -u origin master

Закачка на сервер:

git push

git push

Статус локального репозитатора:

git status

1	git status

git и т.п.)

Git для чайника. Команды которые помогут начать работу

01.11.2015 rudjuk Leave a comment

Многим трудно начать работать с Git, ведь не все привыкли работать с командной строкой, но именно ее лучше всего использовать при работе с репозиторием Git. И сегодня я расскажу о самом простом, так сказать Git для чайника, чтобы помочь освоиться Вам с этой системой. Git представляет собой систему контроля версий, которая позволяет в нужный момент откатиться на старую версию, если вы “наломали дров“. С помощью Git Вы сможете размещать свой код на GitHub, BitBucket и Google Code. Вы всегда сможете скачать код своего проекта на компьютер, изменить его и залить обратно, чтобы он стал доступен Вашим коллегам. С чего начать? Нам понадобиться программа Git Bash, это шелл сделанный на основе Cygwin, поэтому возможно использование Unix-команд, вроде ls, cd, mkdir. Скачать его можно по следующей ссылке http://git-scm.com/. Настройка Git Перед началом работы нам необходимо немного настроить программу. Нам нужно установить имя пользователя и электронный адрес через командную строку:

git config --global user.name "Ваше имя"
git config --global user.email "Ваш Email"

1 2	git config --global user.name "Ваше имя" git config --global user.email "Ваш Email"

Также нам нужно настроить параметры установок окончания строк, для Windows мы вводим две команды

git config --global core.autocrlf true
git config --global core.safecrlf false
git config --global core.eol native

git config --global core.autocrlf true

git config --global core.safecrlf false

git config --global core.eol native

На этом настройка заканчивается, можем начинать работу с проектом. Создание проекта Допустим у нас есть папка с проектом, которую мы хотим разместить на GitHub. 1. Создаем репозиторий на сайте. 2. Инициализируем папку для Git репозитория. Это нужно сделать только один раз для каждого проекта.

git init

git init

3. Связываем папку с удаленным репозиторием

git remote add origin https://github.com/LeoXCoder/test_project.git

1	git remote add origin https://github.com/LeoXCoder/test_project.git

4. Добавляем все новые и измененные файлы

git add .

git add .

5. Помечаем все новые и измененные файлы сообщением (commit)

git commit -m "message"

1	git commit -m "message"

– вместо message вписываем сообщение, например Initial Commit. или Bugfix. 6. Закачиваем код на удаленный репозиторий

git push -u origin master

1	git push -u origin master

[…]

git и т.п.)