首页 > 代码库 > 为何没有人用DELPHI IDHTTP + WEB做三层应用

为何没有人用DELPHI IDHTTP + WEB做三层应用

---恢复内容开始---

为何没有人用DELPHI IDHTTP + WEB + MYSQL(或其他数据库)做三层应用,我个人觉得这样做也不错。不过这样写需要开发人员懂的范围相对广一些,对于初入门的朋友来说,可能有点困难。需要对PHP或其他WEB框架有所认识,了解并懂得如何使用JSON

现在JSON应用得这么广泛,DELPHI也支持(XE10肯定支持,其他版本不清楚,请自行测试)。

ThinkPHP是一个挺成熟的PHP框架,用它来做WEB层(服务层)是不错的选择,当然可以用其他的,例如JAVAASP.NET

至于数据库,做任意一个都可以。

这个例子用到了的工具有PhpStudynotepad++SQLyogDelphi XE 10

数据库为MySQL,用它的原因是ThinkPHPMySQL支持比较好。而且用php的大多都是搭配使用MySQL

WEB框架用的是ThinkPHP

先上效果图:

 技术分享

 

一、读取

 技术分享

 

点击以上按钮,程序将通过IdHttp1控件,向web服务器post一个请求,该请求将返回一个json字符串,程序将json字符串解释将赋值到对应的Edit控件上。

效果图下图:

 技术分享

 

注:读者自行将1”和“可乐”中的“”符号去掉即可。

 

二、修改

 技术分享

 

点击上图中的按钮,程序将把商品编号为1的价格改为10

程序将通过IdHttp1控件,向web服务器post一个请求修改价格的,参数为商品的ID和价格,该请求将返回一个json字符串,如果成功将弹出一个对话框,如下图:

 

 技术分享

 

 

读取按钮的代码

procedure TForm1.Button1Click(Sender: TObject);

var

  ResponseStream: TStringStream;

  ResponseStr : string;

  Url:string;

  jsonObject: TJSONObject; // JSON

 

  RequestList : TStringList;     //请求信息

begin

  RequestList := TStringList.Create;

  //以列表的方式提交参数

  RequestList.Add(‘type=getGoodsById‘);

  RequestList.Add(‘goodsid=1‘);

 

 

  Url:=‘http://192.168.1.200:81/bwq_test/index.php/Mobile/Index/jiekou‘;

  ResponseStream := TStringStream.Create(‘‘);

  IdHttp1.ReadTimeout := 3000;

  IdHttp1.Post(Url,RequestList,ResponseStream);

  //获取网页返回的信息

  ResponseStr := ResponseStream.DataString;

  //网页中的存在中文时,需要进行UTF8解码

  ResponseStr := UTF8Decode(ResponseStr);

  label_jsonStr.Caption:=ResponseStr;

 

 

  jsonObject := TJSONObject.ParseJSONValue(Trim(ResponseStr)) as TJSONObject;

  Edit_id.Text:=jsonObject.Values[‘id‘].ToString;

  Edit_name.Text:=jsonObject.Values[‘name‘].ToString;

  Edit_price.Text:=jsonObject.Values[‘price‘].ToString;

end;

 

 

修改按钮的代码:

procedure TForm1.Button2Click(Sender: TObject);

var

  ResponseStream: TStringStream;

  ResponseStr : string;

  Url:string;

  jsonObject: TJSONObject; // JSON

 

  RequestList : TStringList;     //请求信息

 

  return_code,return_message:string;//返回的代码,0OK

begin

  RequestList := TStringList.Create;

  //以列表的方式提交参数

  RequestList.Add(‘type=updateGoodsPrice‘);

  RequestList.Add(‘goodsid=1‘);

  RequestList.Add(‘price=‘+Edit_newPrice.Text);

 

  Url:=‘http://192.168.1.200:81/bwq_test/index.php/Mobile/Index/jiekou‘;

  ResponseStream := TStringStream.Create(‘‘);

  IdHttp1.ReadTimeout := 3000;

  IdHttp1.Post(Url,RequestList,ResponseStream);

  //获取网页返回的信息

  ResponseStr := ResponseStream.DataString;

  //网页中的存在中文时,需要进行UTF8解码

  ResponseStr := UTF8Decode(ResponseStr);

  label_jsonStr.Caption:=ResponseStr;

 

 

  jsonObject := TJSONObject.ParseJSONValue(Trim(ResponseStr)) as TJSONObject;

  return_message:=jsonObject.Values[‘message‘].ToString;

  ShowMessage(return_message);

 

 

end;

 

两者其实大同小异,都是利用了IdHttppost功能和对json的利用。

 

至于服务器端的PHP代码是:

<?php

//header("Content-type: text/html; charset=utf-8");

 

namespace Mobile\Controller;

use Think\Controller;

use Think\Model;

class IndexController extends Controller {

 

public function jiekou()

{

if($_GET["type"]=="test")

{

$AAA=$_GET["sss"];

echo $AAA;

}

 

if($_POST["type"]=="test")

{

echo "test_POST......123";

}

 

$action_name=$_POST["type"];

 

//根据ID获取商品资料

if($action_name=="getGoodsById")

{

$goodsid=$_POST[‘goodsid‘];

$m_goods = M(‘goods‘);// 实例化Data数据模型

$list_goods = $m_goods->where("id=".$goodsid)->select();

$result=$list_goods[0];

echo json_encode($result);

}

 

//修改商品的价格

if($action_name=="updateGoodsPrice")

{

$m_goods = M("goods");

// 要修改的数据对象属性赋值

$data[‘price‘] = $_POST["price"];

$i=$m_goods->where(‘id=‘.$_POST["goodsid"])->save($data); // 根据条件保存修改的数据

$result;

if($i<>0)

{

$result[‘code‘]=$i;

$result[‘message‘]=‘success‘;

}

else

{

$result[‘code‘]=0;

$result[‘message‘]=‘faile‘;

}

echo json_encode($result);

}

     }

 }

 

 

---恢复内容结束---

为何没有人用DELPHI IDHTTP + WEB做三层应用