Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];

Вниз

База данных + Ini файл.   Найти похожие ветки 

 
Malyatko   (2002-01-14 08:09) [0]

Доброе утро Господа! Появилась проблема с которой не могу справится:(.Есть InterBase"овская база данных путь к которой прописан в *.ini файле. При написании програмы все компоненты для работы с базой данных включая IBDatabase, IBTransacation и т.д поместил в DataModule.Из главной формы получил доступ к содержимому модуля данных. В самой форме пишу:
procedure TForm1.FormCreate(Sender: TObject);
var dn :string;
begin
Dmod.IBDatabase1.Connected:=true;
IniF:=Tinifile.Create(".\Lib2.ini");
Dn:=IniF.ReadString("IB","path",paths);
inif.Free;
Dmod.IBDatabase1.DatabaseName:=dn;
Dmod.IBDatabase1.Connected:=true;
Dmod.IBTransaction1.Active:=true;
end;
После запуска возникает ошибка: Access violation as address ... in module ... Read of address FFF... :( После чего сама программ продолжает работать нормально. До этого писал проги без DataModul и алгоритм чтения пути из Ini файла работал
нормально.
Сталкивался ли кто-то с такой проблемой и не подскажите как ее решить?
Буду очень признателен.


 
panov   (2002-01-14 08:12) [1]

Используй приведенный код ля вызова в OnCreate для TDataModule.
В момент создания Form1 TDataModule со своими компонентами еще не существует. Отсюда и Exception.


 
Ptiza   (2002-01-14 10:47) [2]

Panov абсолютно прав , но если не хочешь менять кода , то
необходимо чтобы в файле проекта *.dpr первым создавался
Модуль данных Application.CreateForm(TDateModule1,DateModule1),
а не Application.CreateForm(TForm1,Form1)


 
psvital   (2002-01-15 08:21) [3]

to Ptiza

Или еще вместо OnCreate можно использовать OnShow..


 
Belov   (2002-01-15 11:22) [4]

Project - Options - указываешь что DataModule1 создается первым,
затем Form1



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.004 c
3-32119
KMZ
2002-01-15 12:38
2002.02.11
Привет всем !,народ помогите разобратся с проблемой


1-32188
Лана Розанова
2002-01-28 16:26
2002.02.11
Hook


1-32274
чайничек
2002-01-27 09:50
2002.02.11
Переместить название одного узла (подузла) TTreeView в Edit или ComboBox


7-32361
amamed_3071
2001-11-05 13:50
2002.02.11
Печать на принтер с командами


4-32383
Olgerd
2001-12-09 18:19
2002.02.11
Панель задач





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский