• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi通过POST传递参数给PHP

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

Delphi代码

************************************************************************************************************************************

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, ShellAPI;


type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  strlist_ParamPost : TStringList ;
  class_IdHttp : TIdHTTP ;
begin
  strlist_ParamPost := TStringList.Create() ;
  class_IdHttp := TIdHTTP.Create(nil);
  try
    // 向目标PHP网址POST参数
    // strlist_ParamPost.Add('1=测试1') ;
    
       strlist_ParamPost.Add('1=aaaaa');


    // TidHTTP属性设置
    class_IdHttp.ReadTimeout := 30*1000 ; // 超时设置
    class_IdHttp.Post('http://localhost/DelphiRequest/index.php', strlist_ParamPost) ;
    //打开网页,ShellExecute需要引入uses ShellAPI
    // ShellExecute(Application.Handle, nil, 'http://localhost/DelphiRequest/index.php', nil, nil, SW_SHOWNORMAL);
  finally
    FreeAndNil(class_IdHttp);
    strlist_ParamPost.Free() ;
end;
end;

end.
****************************************************************************************************************************************************************************************

php文件代码

新建一个文件夹DelphiRequest,然后在这个文件夹里建一个index.php写入代码

然后在输入本地地址http://localhost/DelphiRequest/index.php/就可以看到该PHP网页

 

<!DOCTYPE html>
<html>
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
    <title></title>
</head>
<body>
<?php
if(count($_POST)!= 0)
{
    $var_PostAllParma = "" ;
    foreach($_POST as $var_Key => $var_Value)
    {
        $var_PostAllParma  .= $var_Value."\r\n" ;
    }

    $host = 'localhost';
    $database = 'test';
    $username = 'root';
    $password = '****';
    $selectName = '1';//要查找的用户名,一般是用户输入的信息
    $pdo = new PDO("mysql:host=$host;dbname=$database", $username, $password);//创建一个pdo对象
    $pdo->exec("set names 'utf8'");
    $sql ="UPDATE delphi_test_content SET content= '$var_PostAllParma'  WHERE ID='2'";
    $stmt = $pdo->prepare($sql);
    $rs = $stmt->execute(array($selectName));
//    if ($rs) {
//        // PDO::FETCH_ASSOC 关联数组形式
//        // PDO::FETCH_NUM 数字索引数组形式
//        while ($row = $stmt->fetch(PDO::FETCH_ASSOC)) {
//            $name = $row['id'];
//            $age = $row['content'];
//            echo "Name: $name ";
//            echo "Age: $age ";
//            echo "\n";
//        }
//    }
    $pdo = null;//关闭连接

}

?></body>
</html>

 

**********************************************************************************************************************************************************

数据库信息(PDO方式连接数据库)

表名:delphi_test_content

字段:id(主键),content

**********************************************************************************************************************************************************

DEMO效果:

F9运行delphi 按下按钮


按下后,把‘aaaa’这个信息放在POST里传递给http://localhost/DelphiRequest/index.php,该网页获取POST值并且把值保存在表delphi_test_content的ID为2的content里

最终结果


但是如果是中文的话貌似不显示,我也不知道为啥....

后来解决了这个中文显示问题(2016.12.16)

需要添加一行代码

 

$a=mb_convert_encoding($var_PostAllParma, "UTF-8", "GBK");//delphi7用post传递值给php中文需要字符转码

然后把查询语句的$var_PostAllParma参数更换为$a

 

 

$sql ="UPDATE delphi_test_content SET content= '$a' WHERE ID='2'";

 

最后就解决中文存储到数据库的问题~

谢谢观看~

 

http://blog.csdn.net/s371795639/article/details/53640483


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap