在delphi程序中实现QQ用户的Web登陆并获取个人信息

最新推荐文章于 2024-09-26 14:46:00 发布
最新推荐文章于 2024-09-26 14:46:00 发布
阅读量1.3k 收藏 2
点赞数
分类专栏： Delphi IdHttp控件 文章标签： delphi qq web string object function
// 2011年后，使用Post应该不能登陆qq了。个人见解。。。 委屈 

{ 
code by siow 
http://blog.csdn.net/siow 
ver 0.2 2009-04-16 
  修正了分组信息与好友信息获取不到的bug 
ver 0.1 2009-04-15 
  初步实现QQ账号的Web登陆，个人信息和头像的获取 
} 
unit Unit1;  
interface 
{.$DEFINE ID10} 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection,  
  IdTCPClient, IdHTTP, StdCtrls,jpeg,IdHashMessageDigest,IdHash,StrUtils;  
type 
  TForm1 = class(TForm)  
    IdHTTP1: TIdHTTP;  
    Image1: TImage;  
    btn2: TButton;  
    edt1: TEdit;  
    edt2: TEdit;  
    edt3: TEdit;  
    lbl1: TLabel;  
    lbl2: TLabel;  
    lbl3: TLabel;  
    btn1: TButton;  
    mmo1: TMemo;  
    Edit1: TEdit;  
    img1: TImage;  
    btn3: TButton;  
    btn5: TButton;  
    btn6: TButton;  
    procedure FormCreate(Sender: TObject);  
    procedure btn2Click(Sender: TObject);  
    procedure btn1Click(Sender: TObject);  
    procedure btn3Click(Sender: TObject);  
    procedure btn5Click(Sender: TObject);  
    procedure btn6Click(Sender: TObject);  
  private 
    { Private declarations } 
  public 
    { Public declarations } 
      
  end;  
var 
  Form1: TForm1;  
  cookie:string;  
implementation 
{$R *.dfm} 
//提取字符串  
function SubString(html,Cstr_L,Cstr_R:string):string;  
var 
  sPosB,sPosE:integer;  
  Lwhtml,LwCstr_L,LwCstr_R:string;  
begin 
  Result:='';  
  if trim(html)='' then exit;  
  Lwhtml:=LowerCase(html);  
  LwCstr_L :=LowerCase(Cstr_L);  
  LwCstr_R :=LowerCase(Cstr_R);  
  sPosB:=Pos(LwCstr_L,Lwhtml)+Length(LwCstr_L);  
  sPosE:=PosEx(LwCstr_R,Lwhtml,sPosB);  
  if (sPosB<sPosE) and (sPosE>0) then 
    Result:=copy(html,sPosB,sPosE-sPosB);  
end;  
function HashStr2BinStr(Hash:string):string;  
var 
  buf:array[0..63] of Char;  
  i:Integer;  
begin 
  Result:='';  
  FillChar(buf,SizeOf(buf),0);  
  SetLength(Result,Round(Length(Hash)/2));  
  FillChar(Result[1],Length(Result),0);  
  HexToBin(PChar(Hash),buf,SizeOf(buf));  
  for i:=0 to Round(Length(Hash)/2)-1 do 
    Result[i+1]:=buf[i];  
end;  
function Fmd5(str:string):string;  
var 
  md5 : TIdHashMessageDigest5;  
  longWordRec : T4x4LongWordRecord;  
begin 
  md5 := TIdHashMessageDigest5.Create;  
  try 
    {$IFDEF ID10} 
    Result:=md5.HashStringAsHex(str);  
    {$ELSE}  
    longWordRec:=md5.HashValue(str);  
    Result:=md5.AsHex(longWordRec);  
    {$ENDIF}  
  finally 
    md5.Free;  
  end;  
end;  
function md5_3(str:string):string;  
begin 
  Result:=Fmd5(str);  
  Result:=HashStr2BinStr(Result);  
  Result:=Fmd5(Result);  
  Result:=HashStr2BinStr(Result);  
  Result:=Fmd5(Result);  
end;  
function preprocess(pass,verifycode:string):string;  
begin 
  Result:=Fmd5(md5_3(pass)+UpperCase(verifycode));  
end;  
function GetVerifyPic(IdHTTP:TIdHTTP;Img:TImage):boolean;  
var 
  ms:TMemoryStream;  
  pic:TJPEGImage;  
begin 
  Result:=False;  
  try 
    ms:=TMemoryStream.Create;  
    try 
      IdHTTP.Get('http://ptlogin2.qq.com/getimage',ms);  
      ms.Position:=0;  
      pic:=TJPEGImage.Create;  
      try 
        pic.LoadFromStream(ms);  
        Img.Picture.Assign(pic);  
      finally 
        pic.Free;  
      end;  
      cookie:=SubString(IdHTTP.Response.RawHeaders.Text,'Set-Cookie: verifysession=',';');  
      cookie:='Cookie: verifysession='+cookie+';';  
      IdHTTP.Request.CustomHeaders.Clear;  
      IdHTTP.Request.CustomHeaders.Add(cookie);  
    finally 
      ms.Free;  
    end;  
    Result:=true;  
  except 
  end;  
end;  
procedure TForm1.FormCreate(Sender: TObject);  
begin 
  GetVerifyPic(idhttp1,Image1);  
end;  
procedure TForm1.btn2Click(Sender: TObject);  
var 
  Params:TStrings;  
  url:string;  
  tmp:string;  
  ms:TMemoryStream;  
  bmp:TBitmap;  
begin 
  Params :=TStringList.Create;  
  try 
    Params.Append('u='+edt1.Text);  
    Params.Append('p='+preprocess(edt2.Text,edt3.Text));  
    Params.Append('verifycode='+edt3.Text);  
    Params.Append('u1=http://my.qq.com');  
    Params.Append('aid=8000203');  
    try 
      url := 'http://ptlogin2.qq.com/login';  
      IdHTTP1.HandleRedirects:=False;  
      tmp:=idhttp1.Post(url,Params);  
    except 
    end;  
  finally 
    Params.Free;  
  end;  
  tmp:=SubString(IdHTTP1.Response.RawHeaders.Text,'Set-Cookie: pt2gguin=',';');  
  cookie:=cookie+' pt2gguin='+tmp+';';  
  tmp:=SubString(IdHTTP1.Response.RawHeaders.Text,'Set-Cookie: uin=',';');  
  cookie:=cookie+' uin='+tmp+';';  
  tmp:=SubString(IdHTTP1.Response.RawHeaders.Text,'Set-Cookie: skey=',';');  
  cookie:=cookie+' skey='+tmp+';';  
  tmp:=SubString(IdHTTP1.Response.RawHeaders.Text,'Set-Cookie: ptcz=',';');  
  cookie:=cookie+' ptcz='+tmp+';';  
  IdHTTP1.Request.CustomHeaders.Clear;  
  IdHTTP1.Request.CustomHeaders.Add(cookie);  
  tmp:=Utf8ToAnsi(idhttp1.Get('http://my.qq.com'));  
  mmo1.Text:=tmp;  
  tmp:=Utf8ToAnsi(idhttp1.Get('http://city.qzone.qq.com/pingcity.php'));  
  mmo1.Text:=tmp;  
  tmp:=SubString(IdHTTP1.Response.RawHeaders.Text,'Set-Cookie: qzone_city_key=',';');  
  cookie:=cookie+' qzone_city_key='+tmp+';';  
  IdHTTP1.Request.CustomHeaders.Clear;  
  IdHTTP1.Request.CustomHeaders.Add(cookie);  
  tmp:=Utf8ToAnsi(IdHTTP1.Get('http://my.qq.com/my_login_info.php'));  
  mmo1.Text:=tmp;  
  ms:=TMemoryStream.Create;  
  try 
    IdHTTP1.Get('http://my.qq.com/qq_face.php',ms);  
    bmp:=TBitmap.Create;  
    try 
      ms.Position:=0;  
      bmp.LoadFromStream(ms);  
      img1.Picture.Assign(bmp);  
    finally 
      bmp.Free;  
    end;  
  finally 
    ms.Free;  
  end;  
end;  
procedure TForm1.btn1Click(Sender: TObject);  
begin 
  mmo1.Text:= Utf8ToAnsi(idhttp1.Get(Edit1.Text));  
end;  
procedure TForm1.btn3Click(Sender: TObject);  
begin 
   GetVerifyPic(idhttp1,Image1);  
end;  
procedure TForm1.btn5Click(Sender: TObject);  
begin 
  //获取用户分组  
  mmo1.Text:=Utf8ToAnsi(idhttp1.Get('http://users.qzone.qq.com/cgi-bin/tfriend/friend_getgroupinfo.cgi?uin='+edt1.Text));  
end;  
procedure TForm1.btn6Click(Sender: TObject);  
begin 
  //获取好友信息  
  mmo1.Text:= idhttp1.Get('http://show.qq.com/cgi-bin/qqshow_user_friendgroup');  
end;  
end. 
{
code by siow
http://blog.csdn.net/siow
ver 0.2 2009-04-16
  修正了分组信息与好友信息获取不到的bug
ver 0.1 2009-04-15
  初步实现QQ账号的Web登陆，个人信息和头像的获取
}
unit Unit1;
interface
{.$DEFINE ID10}
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, StdCtrls,jpeg,IdHashMessageDigest,IdHash,StrUtils;
type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Image1: TImage;
    btn2: TButton;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    btn1: TButton;
    mmo1: TMemo;
    Edit1: TEdit;
    img1: TImage;
    btn3: TButton;
    btn5: TButton;
    btn6: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   
  end;
var
  Form1: TForm1;
  cookie:string;
implementation
{$R *.dfm}
//提取字符串
function SubString(html,Cstr_L,Cstr_R:string):string;
var
  sPosB,sPosE:integer;
  Lwhtml,LwCstr_L,LwCstr_R:string;
begin
  Result:='';
  if trim(html)='' then exit;
  Lwhtml:=LowerCase(html);
  LwCstr_L :=LowerCase(Cstr_L);
  LwCstr_R :=LowerCase(Cstr_R);
  sPosB:=Pos(LwCstr_L,Lwhtml)+Length(LwCstr_L);
  sPosE:=PosEx(LwCstr_R,Lwhtml,sPosB);
  if (sPosB<sPosE) and (sPosE>0) then
    Result:=copy(html,sPosB,sPosE-sPosB);
end;
function HashStr2BinStr(Hash:string):string;
var
  buf:array[0..63] of Char;
  i:Integer;
begin
  Result:='';
  FillChar(buf,SizeOf(buf),0);
  SetLength(Result,Round(Length(Hash)/2));
  FillChar(Result[1],Length(Result),0);
  HexToBin(PChar(Hash),buf,SizeOf(buf));
  for i:=0 to Round(Length(Hash)/2)-1 do
    Result[i+1]:=buf[i];
end;
function Fmd5(str:string):string;
var
  md5 : TIdHashMessageDigest5;
  longWordRec : T4x4LongWordRecord;
begin
  md5 := TIdHashMessageDigest5.Create;
  try
    {$IFDEF ID10}
    Result:=md5.HashStringAsHex(str);
    {$ELSE}
    longWordRec:=md5.HashValue(str);
    Result:=md5.AsHex(longWordRec);
    {$ENDIF}
  finally
    md5.Free;
  end;
end;
function md5_3(str:string):string;
begin
  Result:=Fmd5(str);
  Result:=HashStr2BinStr(Result);
  Result:=Fmd5(Result);
  Result:=HashStr2BinStr(Result);
  Result:=Fmd5(Result);
end;
function preprocess(pass,verifycode:string):string;
begin
  Result:=Fmd5(md5_3(pass)+UpperCase(verifycode));
end;
function GetVerifyPic(IdHTTP:TIdHTTP;Img:TImage):boolean;
var
  ms:TMemoryStream;
  pic:TJPEGImage;
begin
  Result:=False;
  try
    ms:=TMemoryStream.Create;
    try
      IdHTTP.Get('http://ptlogin2.qq.com/getimage',ms);
      ms.Position:=0;
      pic:=TJPEGImage.Create;
      try
        pic.LoadFromStream(ms);
        Img.Picture.Assign(pic);
      finally
        pic.Free;
      end;
      cookie:=SubString(IdHTTP.Response.RawHeaders.Text,'Set-Cookie: verifysession=',';');
      cookie:='Cookie: verifysession='+cookie+';';
      IdHTTP.Request.CustomHeaders.Clear;
      IdHTTP.Request.CustomHeaders.Add(cookie);
    finally
      ms.Free;
    end;
    Result:=true;
  except
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  GetVerifyPic(idhttp1,Image1);
end;
procedure TForm1.btn2Click(Sender: TObject);
var
  Params:TStrings;
  url:string;
  tmp:string;
  ms:TMemoryStream;
  bmp:TBitmap;
begin
  Params :=TStringList.Create;
  try
    Params.Append('u='+edt1.Text);
    Params.Append('p='+preprocess(edt2.Text,edt3.Text));
    Params.Append('verifycode='+edt3.Text);
    Params.Append('u1=http://my.qq.com');
    Params.Append('aid=8000203');
    try
      url := 'http://ptlogin2.qq.com/login';
      IdHTTP1.HandleRedirects:=False;
      tmp:=idhttp1.Post(url,Params);
    except
    end;
  finally
    Params.Free;
  end;
  tmp:=SubString(IdHTTP1.Response.RawHeaders.Text,'Set-Cookie: pt2gguin=',';');
  cookie:=cookie+' pt2gguin='+tmp+';';
  tmp:=SubString(IdHTTP1.Response.RawHeaders.Text,'Set-Cookie: uin=',';');
  cookie:=cookie+' uin='+tmp+';';
  tmp:=SubString(IdHTTP1.Response.RawHeaders.Text,'Set-Cookie: skey=',';');
  cookie:=cookie+' skey='+tmp+';';
  tmp:=SubString(IdHTTP1.Response.RawHeaders.Text,'Set-Cookie: ptcz=',';');
  cookie:=cookie+' ptcz='+tmp+';';
  IdHTTP1.Request.CustomHeaders.Clear;
  IdHTTP1.Request.CustomHeaders.Add(cookie);
  tmp:=Utf8ToAnsi(idhttp1.Get('http://my.qq.com'));
  mmo1.Text:=tmp;
  tmp:=Utf8ToAnsi(idhttp1.Get('http://city.qzone.qq.com/pingcity.php'));
  mmo1.Text:=tmp;
  tmp:=SubString(IdHTTP1.Response.RawHeaders.Text,'Set-Cookie: qzone_city_key=',';');
  cookie:=cookie+' qzone_city_key='+tmp+';';
  IdHTTP1.Request.CustomHeaders.Clear;
  IdHTTP1.Request.CustomHeaders.Add(cookie);
  tmp:=Utf8ToAnsi(IdHTTP1.Get('http://my.qq.com/my_login_info.php'));
  mmo1.Text:=tmp;
  ms:=TMemoryStream.Create;
  try
    IdHTTP1.Get('http://my.qq.com/qq_face.php',ms);
    bmp:=TBitmap.Create;
    try
      ms.Position:=0;
      bmp.LoadFromStream(ms);
      img1.Picture.Assign(bmp);
    finally
      bmp.Free;
    end;
  finally
    ms.Free;
  end;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
  mmo1.Text:= Utf8ToAnsi(idhttp1.Get(Edit1.Text));
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
   GetVerifyPic(idhttp1,Image1);
end;
procedure TForm1.btn5Click(Sender: TObject);
begin
  //获取用户分组
  mmo1.Text:=Utf8ToAnsi(idhttp1.Get('http://users.qzone.qq.com/cgi-bin/tfriend/friend_getgroupinfo.cgi?uin='+edt1.Text));
end;
procedure TForm1.btn6Click(Sender: TObject);
begin
  //获取好友信息
  mmo1.Text:= idhttp1.Get('http://show.qq.com/cgi-bin/qqshow_user_friendgroup');
end;
end.

view plaincopy to clipboardprint?
object Form1: TForm1  
  Left = 253 
  Top = 129 
  Width = 596 
  Height = 480 
  Caption = 'Ver 0.2' 
  Color = clBtnFace  
  Font.Charset = DEFAULT_CHARSET  
  Font.Color = clWindowText  
  Font.Height = -11 
  Font.Name = 'MS Sans Serif' 
  Font.Style = []  
  OldCreateOrder = False  
  OnCreate = FormCreate  
  PixelsPerInch = 96 
  TextHeight = 13 
  object Image1: TImage  
    Left = 4 
    Top = 88 
    Width = 129 
    Height = 57 
  end 
  object lbl1: TLabel  
    Left = 8 
    Top = 8 
    Width = 28 
    Height = 13 
    Caption = 'QQ'#21495 
  end 
  object lbl2: TLabel  
    Left = 8 
    Top = 40 
    Width = 24 
    Height = 13 
    Caption = #23494#30721 
  end 
  object lbl3: TLabel  
    Left = 8 
    Top = 64 
    Width = 36 
    Height = 13 
    Caption = #39564#35777#30721 
  end 
  object img1: TImage  
    Left = 32 
    Top = 192 
    Width = 105 
    Height = 105 
  end 
  object btn2: TButton  
    Left = 64 
    Top = 152 
    Width = 75 
    Height = 25 
    Caption = #30331#38470 
    TabOrder = 0 
    OnClick = btn2Click  
  end 
  object edt1: TEdit  
    Left = 64 
    Top = 8 
    Width = 121 
    Height = 21 
    TabOrder = 1 
  end 
  object edt2: TEdit  
    Left = 64 
    Top = 32 
    Width = 121 
    Height = 21 
    PasswordChar = '*' 
    TabOrder = 2 
  end 
  object edt3: TEdit  
    Left = 64 
    Top = 56 
    Width = 121 
    Height = 21 
    TabOrder = 3 
  end 
  object btn1: TButton  
    Left = 472 
    Top = 8 
    Width = 57 
    Height = 25 
    Caption = 'GetUrl' 
    TabOrder = 4 
    OnClick = btn1Click  
  end 
  object mmo1: TMemo  
    Left = 192 
    Top = 40 
    Width = 297 
    Height = 409 
    Lines.Strings = (  
      'mmo1')  
    TabOrder = 5 
  end 
  object Edit1: TEdit  
    Left = 192 
    Top = 8 
    Width = 273 
    Height = 21 
    TabOrder = 6 
  end 
  object btn3: TButton  
    Left = 136 
    Top = 104 
    Width = 49 
    Height = 25 
    Caption = #30475#19981#28165 
    TabOrder = 7 
    OnClick = btn3Click  
  end 
  object btn5: TButton  
    Left = 496 
    Top = 40 
    Width = 75 
    Height = 25 
    Caption = #33719#21462#20998#32452 
    TabOrder = 8 
    OnClick = btn5Click  
  end 
  object btn6: TButton  
    Left = 496 
    Top = 72 
    Width = 75 
    Height = 25 
    Caption = #33719#21462#22909#21451 
    TabOrder = 9 
    OnClick = btn6Click  
  end 
  object IdHTTP1: TIdHTTP  
    MaxLineAction = maException  
    ReadTimeout = 0 
    AllowCookies = True  
    ProxyParams.BasicAuthentication = False  
    ProxyParams.ProxyPort = 0 
    Request.ContentLength = -1 
    Request.ContentRangeEnd = 0 
    Request.ContentRangeStart = 0 
    Request.ContentType = 'text/html' 
    Request.Accept = 'text/html, */*' 
    Request.BasicAuthentication = False  
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)' 
    HTTPOptions = [hoForceEncodeParams]  
    Left = 464 
    Top = 72 
  end 
end

god00
关注
专栏目录
miniframe开源Web框架(适配delphi、lazarus)
未来的专栏
08-09 1111
miniframe开源Web框架，一个使用pascal脚本编写业务代码的服务端框架。框架已实现了HTTP服务、脚本解释执行、多种数据库连接、数据库缓冲池、连接缓冲池等底层支持。在此基础上使用者只需要关注自己的业务实现即可。
获取QQ好友列表，delphi编程实现
09-01
获取QQ好友列表，采用delphi编写。
delphi作品——QQ登录（设计）
12-28
绝对仿真腾讯QQ登录框制作，基于delphi7技术，需要的赶快下载哈
delphi使用IdHTTP 控件post 方式返回流文件并保存
最新发布
nfdfst的博客
09-26 236
delphi使用IdHTTP 控件post 方式返回流文件并保存
Delphi实现的QQ自动登录器
12-03
DELPHI写的登录QQ的代码 加密记录密码 开机使用批处理同时登录多个号码 支持隐身登录 支持TM/QQ
delphiQQ聊天窗体+登录界面跳转
05-12
分享给更多的朋友们学习，希望大家能从中学习借鉴而不是copy，此项目只是一个简单的样式供大家学习，想拥有更多丰富的功能可以自己在此基础上完善。
Delphi通过MSHTML实现一个HTML解析类
06-30
通过这样的HTML解析类，开发者可以在Delphi应用程序中方便地处理HTML数据，无论是从网络获取，还是本地存储，都能高效地解析和操作HTML内容，为各种Web相关的应用提供了强大的支持。在实际开发中，这样的类还可以...
Delphi程序开发范例宝典(第3版).正解的
10-31
《delphi程序开发范例宝典(第3版)》全面介绍了delphi程序开发所用到的技术和技巧，共分19章，内容包括窗体与界面设计、控件应用、数据处理技术、图形技术、多媒体技术、文件系统、操作系统与window相关程序、注册表...
[delphi]简单HTTP服务器架设源码
10-12
开发者需要在此事件处理程序中编写代码，解析HTTP请求头，获取请求参数，并生成响应内容。 3. ** 数据响应**：通过TIdHTTPServer的Response对象，可以设置HTTP响应的状态码、头部信息以及发送回客户端的数据内容。 4...
QQ农场Delphi源代码解析与操作
`IdHTTP`组件尤其重要，它允许程序发送HTTP请求并接收响应，这对于访问Web服务和获取网页数据至关重要。 2. **HTTP请求与参数封装**：在常量`Const_PostLoginInfo`和`Const_PostLoginStr`中，可以看到登录信息的...
Delphi通过IdTCPServer只允许一个用户登录
05-15
Delphi网络编程源码实例，IdTCPServer只允许一个用户登录到程序，通过IdTCPServer只允许一个用户登录，解决多用户登录问题。考虑到退出异常但是保证登录正确的情况，很实用。 运行环境：Windows/Delphi7
delphi做的QQ
04-09
delphi做的QQ，包含服务器和客户端，可以实现局域网对话。
Delphi的rest与idhttp的post提交+源码+测试可用
07-17
Delphi的rest与idhttp的post提交+源码+测试可用
DELPHI 7仿QQ好友列表
03-22
DELPHI 7仿QQ好友列表 博 客地址：https://blog.csdn.net/z123191456/article/details/88740692 看的合适的下
Delphi 组件开发教程指南（5）实现类QQ的编辑框
weixin_33836223的博客
05-04 105
   距离上一篇系列的文章有一段时间了，假终于是放完了！现在咱继续在TEdit上做文章，同时来熟悉某些Windows的系统消息。现在我讲的是如何实现一个类似QQ编辑框的样式。    再讲解之前，先回馈前几篇文章有些人提出的问题。通过前几篇文章，有很多人关注，同时也有人给了一些建议。所以我这里说明一下，我这个组件编写的教程指南过程可能不是和书上按部就班一样的讲解，我的着重点是如何编写一个组件，这个...
delphi 用户登录 代码
潇湘博客
04-01 1786
delphi 用户登录 代码 用到的ADO控件是 ADOConnection、ADOquery  procedure TForm1.Button1Click(Sender: TObject);var  databasename:string;  ip:string;begin  databasename:=jswlibs;//数据库  ip:=192.168.1.12
DELPHI 通过idhttp实现登录验证
03-05 1780
最近在做客户端的时候，遇到一个问题，登录验证的时候，因为我用的是mysql数据库，需要安装驱动，而这个驱动每个用户都得去装才行，这样就不太适合用户体验了，最后我决定通过idhttp来实现这一功能，具体如下： 首先，要在pas中引用：IdTCPConnection, IdTCPClient,IdHTTP,IdCookieManager, IdAntiFreezeBase, IdAntiFreeze
DELPHI程序中获取网络资源的实现方法
资源摘要信息:"在DELPHI程序中获取网络资源信息" 在Delphi程序中获取网络资源信息是一项重要的技能，尤其在开发网络应用程序时。Delphi作为一款强大的开发工具，其内置的网络组件和丰富的函数库使得开发者能够方便...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值