Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Connecting to the AppServer using Socket

Posted on 2002-07-15
4
Medium Priority
?
232 Views
Last Modified: 2010-04-04
Hi,
 I am new to delphi and i am doing an application using socket connection.The feature that i need is a login.I have made the server using Remote data module and the client is connecting to the server using the socket connection.

Can someone help me out in passing the information entered by the user to the server database to check that the login information is correct.


Regards
Anna.
0
Comment
Question by:anna_1315
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
4 Comments
 
LVL 2

Expert Comment

by:aubs
ID: 7156875
Hi Anna,

What version of Delphi are you using?

I have a brief tutorial on MIDAS based on D5 using Oracle database. It should point you in the right direction.

It is 160kB Word document.

http://www.complete-git.co.uk/MIDAS/MIDAStut.doc

I could explain here, but it is easier to show you screen shots.

regards

Aubs
0
 

Author Comment

by:anna_1315
ID: 7156962
Dear Aubs,
 Thanks a lot for the same,i shall look into it.I am using D5.i was able to create the server using the Remote Data module  and connect to it using socket connection.Also i am using the Datamodule(customer data).My database is Paradox.

Problem:
Login feature to check the user has entered the correct user name and password.In order to do that i have created a custom method called login with parameters username and password as Varient using the type libary.Now i have called the method in the login screen,but it says type mismatch error when running.

Here is the code that i have used in remote data module:

procedure TAppServerP.Logon(username, password: OleVariant);
begin
  showMessage('hi');
end;

and here is the code i have used in login form.

 customerdata.socket.Connected := true;
 ip := '192.168.0.1';
 customerdata.Socket.AppServer.Logon(username.Text,Password.Text);

Can you help me out?

Warm Regards
Anna.
0
 
LVL 2

Accepted Solution

by:
aubs earned 75 total points
ID: 7157089
You need to create the interface for the Logon function.

Have a look at page 6:

Choose View > Type Library...
0
 

Author Comment

by:anna_1315
ID: 7185390
thanks aubs,
 i made it work :)

Regards
Anna.
0

Featured Post

What’s Wrong with Your Cloud Strategy ?

Even as many CIOs are embracing a cloud-first strategy, the reality is that moving to the cloud is a lengthy process and the end-state is likely to be a blend of multiple clouds—public and private. Learn why multicloud solutions matter in this webinar by Nimble Storage.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …
In this video, Percona Solution Engineer Rick Golba discuss how (and why) you implement high availability in a database environment. To discuss how Percona Consulting can help with your design and architecture needs for your database and infrastr…
Suggested Courses

636 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question