delphi3000.com - the free delphi knowledge platform
delphi3000.com - the free delphi knowledge platform
Have a look at your member-status

connecting people's knowledge


  - Recent ArticlesRSS feed for Recent Articles on delphi3000.com
  - List of All Articles
  - Top Viewed Articles
  - Articles (+Attachem.)
  - Articles Of Interest
  - Categories
  - Top Uploader
  - Search
  - Index

  - My Home
  - Submit an Article
  - My Articles
  - My Personal Data
  - My Bookmarks
  - Activities
  - Login/Logout

  - Sign Up
  - Why Sign Up
  - Newsletter

  - Press
  - Advertise

  - Contact
  - Feedback



Community
Borland
ClubeDelphi
Dr. Bob
UK-BUG
Delphi Meetings
Planeta Delphi








Share this article with friendsShare this article with friends
Rate this articleRate this article - to keep the quality of delphi3000.com !
Comment this article or read through previous comments (1)


Logging in to the remote datamoduleFormat this article printer-friendly!Bookmark function is only available for registered users!
Product:
Delphi 3.x (or higher)
Category:
COM+
Skill Level:
Scoring:
Last Update:
01/01/2000
Search Keys:
delphi delphi3000 article borland vcl code-snippet DCOM MultiTier ActiveForm DataModule Login Database
Times Scored:
3
Visits:
6282
Uploader: Peter Lieber
Company: LieberLieber
Reference: Borland Developer Support
 
Question/Problem/Abstract:
How is the UserName and Password passed to the remote
datamodule?

Answer:



On the RemoteDataModule, drop a TDatabase and add an
automation procedure (use Edit | Add To Interface) for
login.  Make sure that the HandleShared property is True
on the TDatabase.

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;

After you have created the automation method on the
RemoteDataModule (using Edit | Add To Interface), you can
call that method using;

  RemoteServer1.AppServer.Login('USERNAME','PASSWORD');





Please rate this article!
Skill level:
BeginnerExpert

Useful:
No!Very!

Overall rating:
PoorExcellent



Comments to this article
Write a new comment
A bit terse in the problem description
     (Apr 5 2000 4:55PM)

I have a nagging feeling that I could use the information here but I find both the problem description and the answer more than a bit terse.

Respond














 
Sign up to consume product discounts for Bronze memberships !

read more


   


  Community Ad of
E. DSpirito
 
   














 







     
  Copyright © 2000 - 2007 delphi3000.com - All rights reserved. Terms of use. || Privacy
delphi3000.com is a service by bluestep.com IT-Services GmbH (Vienna)