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

时间:2021-08-03 07:14:29

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

为何没有人用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:=‘: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:=‘: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做三层应用