Совместное программирование в Delphi - [1] :: Прикладное программирование

Цитата:

Задам вопрос, - Вы когда зип в интернет кладёте, тоже Дельфи используете

А причем здесь это ?? разговор-то конкретно за DFM шел, а вы начинаете впадать в крайности.

Цитата:

Бинарные формы занимают гораздо меньше места....

зато в архиве текст получше сжимается.

Цитата:

...графику в текстовом виде...

новое слово в компьютерной индустрии...

изобразить сможешь ?

Цитата:

А если я когда нибудь забываю поставить галочку в Дельфях

какую такую галочку - их там много...

Цитата:

Спасибо, но очевидно Вы не знакомы с проблемами создания общественных дистрибутивов, которые содержат не только данные для Дельфи

будьте добры - просветите.

Цитата:

Учите мат часть - невизуальный компонент это TPersistent. Визуальный это значит, что он доступен позиционированию на форме (TComponent). Все компоненты это персистенты, персистент это значит что он может храниться в форме.

А какое это имеет отношение к TRegistry, про который и шел разговор ?? Кстати, хотел бы я посмотреть, как вы кладете на форму прямой потомок TObject...

Так что мат.часть всетки поучите, хотя бы хелп к дельфям почитайте...

Цитата:

Оболочка для TRegistry....А как Вы представляете программирование без них...

Вот как :

Код:

procedure TdmData.DataModuleCreate(Sender: TObject);
Var
reg : TRegistry;
DBEngine : Variant;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;

if zBase.connected then zBase.DisConnect;
// Читаем из реестра расположенеие базы
Reg.OpenKey('\Software\Fishbone Services\deleted\for\security\reason',true);
if Reg.ValueExists('Host Name') then zBase.Host := Reg.ReadString('Host Name')
else Abort('Не заданы параметры подключения к БД : Host Name ');
if Reg.ValueExists('Path') then zBase.DataBase := Reg.ReadString('Path')
else Abort('Не заданы параметры подключения к БД : Path ');
if Reg.ValueExists('User Name') then zBase.Login := Reg.ReadString('User Name')
else Abort('Не заданы параметры подключения к БД : User Name ');
if Reg.ValueExists('Password') then zBase.Password := Reg.ReadString('Password')
else Abort('Не заданы параметры подключения к БД : Password ');
//
Writeln('DataBase :> Parameters set to ['+zBase.Host+':'+zBase.DataBase+']');
// А теперь самое интересное
try
zBase.Connected := True;
Writeln('DataBase :> Opened.');
except
On E : Exception do
begin
Abort('Failed to connect to DB. "'+E.Message+'"');
end;
end;
// Продолжаем с параметрами отчета
Reg.CloseKey;
Reg.OpenKey('\Software\Fishbone Services\deleted\for\security\reason',true);
if Reg.ValueExists('BasePath') then ReportPath := Reg.ReadString('BasePath');
mdbBase.Close;
// Узнаем как там у нас с DAO
try
DBEngine := CreateOLEObject('DAO.DBEngine.36');
mdbBase.DAOVersion := Dao36;
DBEngine := UnAssigned;
Writeln(']:> DAO v3.6 Located.');
except
try
CreateOLEObject('DAO.DBengine.35');
mdbBase.DAOVersion := Dao35;
DBEngine := UnAssigned;
Writeln(']:> DAO v3.5 Located.');
except
Abort('DAO Not found at all !');
Halt;
end;
end;
// Коннектимся к аксесному файлу
if Reg.ValueExists('MDBPath') then
begin
mdbBase.DatabaseName := Reg.ReadString('MDBPath');
try
mdbBase.Open;
Writeln(']:> MDB Base ['+mdbBase.DatabaseName+'] connected.');
except
Writeln(']:> Cannot connect to MDB Base ['+mdbBase.DatabaseName+'].');
end;
end;
Writeln(']:> All Registry keys loaded.');
//
Reg.CloseKey;
Reg.Free;
end;

Вот так и программирую, предпочитая 5 сточек кода ручками 100 килобайтам ненужного мне компанента.

Цитата:

Когда Вы начнёте запускать свои программы без кнопочки Run, например через Пуск/Выполнить, Вы заметите, что формы не помнят своей позиции

Ну это несколько лет назад вылечили создатели библиотеки RX =))

удачи тебе, мой друг-изобретать лисопедов.

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2