Как передать UserName и Password в удаленный модуль данных? |
Previous Top Next |
В Удаленный Модуль Данных бросьте компонент TDatabase, затем добавьте процедуру автоматизации (пункт главного меню Edit | Add To Interface) для Login.
Убедитесь, что свойство HandleShared компонента TDatabase установлено в True.
Code: |
procedure Login(UserName, Password: WideString); begin { DB = TDatabase } { Something unique between clients } DB.DatabaseName := UserName + 'DB'; DB.Params.Values['USER NAME'] := UserName; DB.Params.Values['PASSWORD'] := Password; DB.Open; end; |
После того, как Вы создали этот метод автоматизации, Вы можете вызывать его с помощью:
RemoteServer1.AppServer.Login('USERNAME','PASSWORD');
©Drkb::02408
Взято с http://delphiworld.narod.ru