Глобальное соединение с MySQL[Решено]
Добавлено: 24.02.2011 23:31:48Есть отдельный файл с глобальными переменными, процедурами и функциями который включается в раздел USES почти каждой формы.
При вызове данной процедуры вылетает сообщение об ошибке доступа "Access violation". Думаю что cnnMySQL.Create(nil); не правильно!
Обьясните мне как правильно создать глобальное подключение.
- Код: Выделить всё
uses
Classes, SysUtils, Dialogs, mysql50conn;
var
cnnServer, cnnUser, cnnPasswd, cnnDatabase: String;
cnnMySQL: TMySQL50Connection;
procedure CheckMySQLDB();
implementation
procedure CheckMySQLDB();
begin
cnnMySQL.Create(nil); // По идее родитель должен быть Application???
cnnMySQL.HostName:= cnnServer;
cnnMySQL.UserName:= cnnUser;
cnnMySQL.Password:= cnnPasswd;
cnnMySQL.DatabaseName:= cnnDatabase;
try
cnnMySQL.Connected := True;
ShowMessage('Good connect!');
except
ShowMessage('Bad connect!');
Exit;
end;
end;
end.
При вызове данной процедуры вылетает сообщение об ошибке доступа "Access violation". Думаю что cnnMySQL.Create(nil); не правильно!
Обьясните мне как правильно создать глобальное подключение.