Базы данных и знаний. Проектирование баз данных по технологии "клиент-сервер" и разработка клиентских приложений. Токмаков Г.П. - 87 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

- 87-
begin
ShowMessage('Отсутствует библиотека LOGIN.DLL');
Exit
end;
LoginData := TLoginData.Create;
ShowLoginDialog := TShowLoginDialog(GetProcAddress(hLib,
'SHOWLOGINDIALOG'));
ShowLoginDialog(Application.Handle, LoginData);
FreeLibrary(hLib);
if LoginData.ModalResult=mrOK then
begin
try
with fDM.Databasel do
begin
if Connected then Close;
//LoginPromt:=false;
Params.Values['PASSWORD'] := Trim(LoginData.password) ;
Params.Values['USER NAME'] := Trim(LoginData.user_id);
Open;
end;
StatusBarl.SimpleText := 'Соединение выполнено.';
except
StatusBarl.SimpleText := 'Ошибка подключения к БД.';
end;
end;
end;
procedure TfMain.N4Click(Sender: TObject);
begin
with fDM.Databasel do
begin
if Connected then Close;
end;
StatusBarl.SimpleText:='Отключение выполнено.'
end;
procedure TfMain.N5Click(Sender: TObject);
begin
N4Click(Sender);
Application.Terminate;
end;
end.
В приведенной процедуре производятся все манипуляции с DLL: загрузка ее
в память, вызов экспортируемой процедуры и вход в базу с использованием
введенных имени и пароля, поэтому рассмотрим ее подробнее.
Загрузка DLL в память. Для загрузки DLL в память используется функция
LoadLibrary:
hLib: = LoadLibrary('LOGIN.DLL' );
Эта функция возвращает описатель (хэндл) загруженной библиотеки.

Страницы