Установка Delphi 6 в Windows 10:

- устанавливаем delphi не в системные папки (идеально в корне создать папку для неё);

- прописываем в безопасности папки разрешение для все на полный доступ;

- доставляем компоненты (Component/Install packages/ выбираем нужные дополнительные bpl-ки;

//- добавляем указанные дополнительные bpl в каталог bin;

- добавляем пути к dcu и bpl в library path;

- добавляем пути к дополнительным dcu и bpl в переменные среды Windows (Свойства системы \ Дополнительные свойства \ Переменные среды \ Path

(если возникают ошибки типа "запуск программы невозможен так ка ... Читать дальше »

Была поставлена задача - программно подключиться к DBF-файлу в DOS-кодировке, с поддержкой русских символов, при этом не используя сторонних движков (типа BDE) и библиотек.

Будем использовать ADO, драйвер dBASE.

На форму кидаем ADOConnection, adoQuery (для мгновенной проверки можно также DataSource и DBGrid). Соединяем их.

// соберем строку подключения
form1.ADOConnection1.ConnectionString:='Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;DBq=d:\base;Collate=Russian;';

// запрос на выборку всех данных необходимого файла
with form1.adoQuery1 do Begin
     close;
     SQL. ... Читать дальше »

Мелочи по Delphi, SQL и т.п.

1. Забыл тут на днях одно свойство поменять и это окно меня просто достало...

В общем: чтобы каждый раз при запуске программы не вылезало окно 'Database Login', установите свойство LoginPrompt компонента ADOConnection равным False.

2. Если подлый SQL Developer при соединении с Oracle XE выдает ошибку ORA-12705, то чтобы избавится, в файл sqldeveloper.conf нужно добавить строку AddVMOption -Duser.region=US.

Делал раньше подобное, но когда недавно снова понадобилось, то потратил кучу времени на поиск решения, поэтому выкладываю на будущее:

Поставить на Form.Resaise:

for i := 0 to ComponentCount - 1 do

if (Components[i] is TGroupBox) then
   begin
   (Components[i] as TGroupBox).Left:= 10;
   (Components[i] as TGroupBox).Top:= 10;
   (Components[i] as TGroupBox).Width:=form1.Width-25;
   (Components[i] as TGroupBox).Top:=form1.Height-90;
   end;

Предисловие: вечно забываю иногда нужные функции, которые редко использую...

В модуле SysUtils определен ряд стандартных функции работы с параметрами типа даты-времени: ... Читать дальше »

USE Realiz2009;
DECLARE @TableName varchar(255);
DECLARE _cursor CURSOR FOR SELECT     name
                                               FROM         sysobjects
                                 & ... Читать дальше »

Поликлиника КОКВД.
(Проект планируется перевести на сетевую версию, с использованием MS SQL 2000, поэтому обновление приостановлено)
Программный продукт, разработанный  для ГУ "КОКВД", но возможно использование во всех лечебных учреждениях города Кургана (может и не только его). Для работы использует стандартные базы ОМС (+ собственные, с улучшенной структурой), т.е. имеет совместимость с официальным продуктом, распространяемым ТФ ОМС.
Основные преимущества:
- ускоряет процесс заполнения стат. талонов в несколько раз, за счет использования полуинтелектуальной системы автозаполнения (ради чего и создавалось);
- контрол ... Читать дальше »

Совместный сетевой доступ к Paradox (для чтения).
Запустите BDE и на вкладке configuration в списке drivers-native-paradox параметр net dir укажите где будет создаваться net файл (у всех эта папка должна быть одинакова). Также в списке System-Int параметр Local Share должен быть установлен в True.

Для DBD 7.0 нужно исправить реестр:

HKCU\Software\Borland\DBD\7.0\Preferences\Properties\
SystemFont="Fixedsys"
Если такой ключ не существует, его следует создать.

или
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1252"="c_1251.nls"

Второй вариант предпочтительнее, шрифт Fixedsys достаточно крупный и жирный, читать не очень удобно.

(!--НУЖНО ПРИВЕСТИ К НОРМАЛЬНОМУ ВИДУ)
Простейшее подключение к файлу БД (типа DBase и Paradox).
Простейшее - не значит наихудшее, с помощью такого можно очень широко управлять БД.

//на загрузку гл. формы
  With Session do
    Begin
    ConfigMode:=cmSession;
    Try
    //---создадим временный псевдоним для базы данных
    AddStandardAlias('имя_алиаса',ExtractFilePath(ParamStr(0))+'Base\','DBASE');   {имя, путь, драйвер}
    Finally
    ConfigMode:=cmAll;
    End;
  & ... Читать дальше »

В данной статье мы рассмотрим способ создания простейшего Web-сервера. Точнее, HTTP-сервера, работающего как Web-сервер. Примерами могут служить такие распространенные Web-сервера как IIS, Apache и т.д. Наш сервер будет выполнять конкретные функции вроде формирования HTTP- страницы на основе базе данных, а системное приложение, обрабатывающее HTTP-запросы из любых клиентских программ, поддерживающих HTTP-протокол, и возвращающее им HTML-страницы для просмотра и отображения.

Создадим новую форму и разместим на ней компонент TidHTTPServer(вкладка Indy servers). В свойстве Bindings укажем IP- адрес, выбираем All, а порт стандартный 80,  В обработчик ... Читать дальше »