Блог по программированию в среде Delphi

Поиск по блогу

Есть идея по созданию интересной программы?

Опиши тут и я по возможности постараюсь это реализовать специально для тебя! Без $ ))

среда, 28 мая 2014 г.

Создание локальной сети через интернет между двумя ПК (OpenVPN)


Качаем OpenVPN
Устанавливаем. (Устанавливал всё)
Заходим в Пуск- OpenVPN-Utilities-Generate a static OpenVPN key (Обязательно с правами администратора, иначе просто не хватит прав на создание файла в папке Program files)

Это мы создали ключ, который будет находиться в папке C:\Program Files\OpenVPN\config
имя ключа по умолчанию key.txt

Копируем файл из папки C:\Program Files\OpenVPN\sample-config\server.ovpn и client.ovpn

в папку C:\Program Files\OpenVPN\config\.

Открываем скопированные файлы блокнотом.

четверг, 24 апреля 2014 г.

Хранимая процедура и параметры IN и OUT массив и массив записей соотвественно (ORACLE)

Логотип Oracle
 Необходимо было сделать хранимую процедуру для ORACLE.
По началу показалось делов-то, но потом выяснилось, что у Оракла есть несколько типов массивов:

1. VARRAYS - фиксированной длины
2. PL/SQL- таблицы INDEX BY BINARY_INTEGER ( Ассоциативный массив)
3. Nested Tables
 Мне необходимо было реализовать процедуру, используя последний тип массива т.е. Nested Tables.


воскресенье, 20 апреля 2014 г.

Gom player ошибка при закрытии программы.


При закрытии плеера Gom возникает ошибка со следующим текстом:
Эта программа требует flash.ocx, уже не включенное в данную версию windows или
Gom эта программа требует отсутствующий компонент

Причина в отсутствии файла flash.ocx в папке C:\Windows\System32\Macromed\Flash

Решение:
Устанавливаем Flash плеер для браузера IE
http://get.adobe.com/ru/flashplayer/otherversions/

Выбираем версию ОС и браузер IE. (В левом нижнем углу)

После установки появление данной ошибки больше не наблюдалось

четверг, 22 августа 2013 г.

Программа установки не может скопировать файл kmk04810.md

В процессе установки драйвера для Kyocera TaskAlfa 221  возникала следующая ошибка:
Программа установки не может скопировать файл kmk04810.md

Необходимо установить сертификат файла kyomita.cat и все установится нормально.

суббота, 13 июля 2013 г.

ADO фильтрация данных с именем столбца содержащим пробелы

Имеем запрос к таблице следующего вида:
SELECT
    ID_Task as 'ID', Text_task as 'Задачи',
    Term_task as 'Выполнить до:'
from Task

Необходимо отфильтровать данные, но если написать  в фильтре
filter:='Выполнить до: LIKE '+ QuotedStr(DateToStr(Now));
это приведет к возникновению исключительной ситуации, и вызову диалогового окна  с описанием, изображенного на рисунке 1.

Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом
Рисунок 1 - Скрин диалогового окна с описанием исключительной ситуации


Необходимо взять название столбца в квадратные скобки [ ].


После внесения изменений, получится следующее выражение:
filter:='[Выполнить до:] LIKE '+ QuotedStr(DateToStr(Now));

В этом случае фильтрация выполнится, как и предполагалось.

вторник, 21 мая 2013 г.

понедельник, 20 мая 2013 г.

MasterData фиксированное количество строк

Имеем
MasterData1

Добавляем еще один MasterData (MasterData2), в диспетчере свойств, устанавливаем свойство Visible в False, на случай если строк в MasterData1 и так будет достаточно.

Получаем
MasterData1
MasterData2
В MasterData2 делаем пустую строку нашего MasterData.
В обработчике  события OnBeforePrint MasterData2 вставляем код:

procedure MasterData2OnBeforePrint(Sender: TfrxComponent);
var
  EmptyCount: integer;    
begin
  EmptyCount := 10-MasterData1.RowCount; //имеется в виду, что будет 10 строк постоянно
  if EmptyCount > 0 then
  begin
    MasterData2.Visible:=True;                                            
    MasterData2.RowCount := EmptyCount;
  end;
end;

Header в FastReport 4 не отображается перед MasterData

Имеем:

Header1
MasterData1


Как вариант положите перед этим Header1 еще один MasterData2 в котором будут данные всегда и сделайте его невидимым. Header1 теперь будет виден у вас в независимости от того есть ли данные в MasterData1.

Результат:

Header1
MasterData2
MasterData1

Error Class TfrxCheckboxView not found



Бросьте в проект компонент frxCheckBoxObject или подключите файл frxChBox.pas к проекту в ручную.