客户端如何通过TCP向服务器提交用户名和密码?
我用的IDNY TCPSERVER 和 TCPCLIENT组件
我用的IDNY TCPSERVER 和 TCPCLIENT组件
解决方案 »
- 同样的程序,在不同电脑上面显示的结果不一样,TDBGridEh,TNumericField,DisplayFormat问题
- 如何关闭ftp连接
- fileexists函数能否判断其它机器上的共享文件夹的某个文件是否存在?
- 工具栏按钮边上的小箭头是怎么出来的?
- DELPHI中程序怎么带参数?
- 在DBGRid空件里的数据更改后如何自动更新
- 烟台阳光网络6000元高薪诚聘懂P2P技术的DELPHI工程师
- 在dxDBGrid中怎样给指定的记录加颜色???
- 编程急用>>>>有谁能用通俗的语言解释一下AutoCAD中模型空间和图纸空间的差别,各自的应用范围?互相切换的目的?
- 大哥们,救急啊!怎么实现控件数组啊?
- 急急急!ComboBox取值问题!!!
- 求最小生成树的算法
procedure TFLogin.Button1Click(Sender: TObject);
var
temp,temp1:String;
flag : integer; //用于判断是否通过认证的标志
begin if ((UserId.Text = '') or (UserKey.Text = '')) then
begin
Application.MessageBox('请输入员工号和密码!','温馨提示:',MB_OK);
end
else
begin
flag := 0; //全局标志变量
ADOQuery1.Close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.Add('select * from person');
ADOQuery1.open;
while not ADOQuery1.eof do
begin
temp := ADOQuery1.FieldByName('id').asstring;
temp := trim(temp);
if temp=UserID.Text then
begin
temp1:=trim(ADOQuery1.FieldByName('passwd').AsString);
if temp1=UserKey.Text then
begin
FMain.login:=True ;
FMain.UserId := StrToInt(UserId.Text); //获取登陆名
FMain.Authority := ADOQuery1.FieldByName('authority').AsInteger; //获取权限
FLogin.Close;
flag := 1;
exit; //正确则退出登陆窗口
end //判断密码是否正确结束
else
begin
ADOQuery1.Next; //如果错误,则转到下一个数据集比较
end
end //判断用户ID和密码是否正确结束
else
begin
ADOQuery1.Next; //转到下一个数据集比较
flag := 0;
end
end; //循环结束 //判断是否密码错误,显示错误提示
if flag =0 then
begin
Application.MessageBox('用户名或密码错误!','温馨提示:',MB_OK);
FMain.UserId := 0 ;
FLogin.Close;
endend;希望能给带来点灵感。
我并不是说在服务器上怎么验证。
我的意思是怎么通过TCP控件同时发送用户名和密码。最好还是有用MD5加密后的密码。