咏南LINUX中间件

什么是跨平台?

DELPHI跨平台已经不是停留在理论,而是可以实用了。

同一套中间件既能在WINDOWS服务器上面部署,又可以在LINUX服务器上面部署。

而做到这一切,只需要一套源代码,这完全得益于DELPHI 10.2全新的跨平台编译器。

想想,你的同一个中间件同时可以在WINDOWS和LINUX服务器上部署运行,这是一件多么激动人心的事情啊!

笔者不免心情澎湃!同时支持TCP/IP、HTTP通信协议。

LINUX 支持:

  • Ubuntu Server (Ubuntu 16.04 LTS)
  • RedHat Enterprise Linux (版本 7)

CENTOS 7 服务器上运行中间件:

中间件详情日志:

WINDOWS客户端访问CENTOS7上的中间件并返回查询数据:

同一份源代码只需要编译成不同的目标平台即可:

WINDOWS服务器上部署运行中间件:

支持REST调用

测试客户端代码:

// cxg 2017-9-16 跨平台中间件的客户端

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.SqlExpr,
Data.DBXDataSnap, Data.DBXCommon, IPPeerClient, Unit2, Vcl.Grids, Vcl.DBGrids,
Vcl.StdCtrls, FireDAC.Stan.Def, FireDAC.Stan.StorageJSON, FireDAC.Stan.StorageBin,
FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error,
FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Comp.DataSet,
FireDAC.Comp.Client, Vcl.ExtCtrls, Data.DbxHTTPLayer;

type
TForm1 = class(TForm)
SQLConnection1: TSQLConnection;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
FDMemTable1: TFDMemTable;
btnsave: TButton;
btnappend: TButton;
btndel: TButton;
btnquery: TButton;
btnsp: TButton;
procedure FormCreate(Sender: TObject);
procedure btnsaveClick(Sender: TObject);
procedure btnappendClick(Sender: TObject);
procedure btndelClick(Sender: TObject);
procedure btnqueryClick(Sender: TObject);
procedure btnspClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses
ujson;

procedure TForm1.btnsaveClick(Sender: TObject);
// 保存数据
var
c: TServerMethods1Client;
sResult: string;
begin
if FDMemTable1.State in [dsInsert, dsEdit] then
FDMemTable1.Post;
if FDMemTable1.ChangeCount = 0 then
Exit;
SQLConnection1.Close;
SQLConnection1.Open;
c := TServerMethods1Client.Create(SQLConnection1.DBXConnection);
try
sResult := c.ExecuteSQL(ujson.deltaToJSON(FDMemTable1, 't1', 'c1', ''));
if Pos('true', sResult) > 0 then
begin
FDMemTable1.MergeChangeLog;
ShowMessage('save ok');
end
else
begin
FDMemTable1.Cancel;
ShowMessage('save fail');
end;
finally
c.Free;
SQLConnection1.Close;
end;

end;

procedure TForm1.btnspClick(Sender: TObject);
// 执行存储过程
//CREATE PROCEDURE sp2(in a varchar(5))
//BEGIN
//SELECT * FROM t1 where c1=a;
//END;
var
c: TServerMethods1Client;
begin
SQLConnection1.Close;
SQLConnection1.Open;
c := TServerMethods1Client.Create(SQLConnection1.DBXConnection);
try
ujson.jsonToDB(c.SPOpen('sp2', '{"a":"1"}'), FDMemTable1);
finally
c.Free;
SQLConnection1.Close;
end;
end;

procedure TForm1.btnqueryClick(Sender: TObject);
// 查询数据
var
c: TServerMethods1Client;
begin
SQLConnection1.Close;
SQLConnection1.Open;

c := TServerMethods1Client.Create(SQLConnection1.DBXConnection);
try
ujson.jsonToDB(c.QuerySQL('select * from t1'), FDMemTable1);
FDMemTable1.MergeChangeLog;
finally
c.Free;
SQLConnection1.Close;
end;
end;

procedure TForm1.btnappendClick(Sender: TObject);
// 新增
begin
FDMemTable1.Append;
end;

procedure TForm1.btndelClick(Sender: TObject);
// 删除数据
var
c: TServerMethods1Client;
sResult: string;
begin
if not FDMemTable1.IsEmpty then
begin
FDMemTable1.Delete; // del
SQLConnection1.Close;
SQLConnection1.Open;
c := TServerMethods1Client.Create(SQLConnection1.DBXConnection);
try
sResult := c.ExecuteSQL(ujson.deltaToJSON(FDMemTable1, 't1', 'c1', ''));
if Pos('true', sResult) > 0 then
begin
FDMemTable1.MergeChangeLog;
ShowMessage('del ok');
end
else
begin
FDMemTable1.Cancel;
ShowMessage('del fail');
end;
finally
c.Free;
SQLConnection1.Close;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FDMemTable1.CachedUpdates := True; // 否则不能保存
end;

end.

咏南LINUX中间件的更多相关文章

  1. NGINX实现咏南跨平台中间件集群

    NGINX实现咏南跨平台中间件集群 首先要开启咏南LINUX中间件. 1)编辑usr/local/nginx/conf/nginx.conf #user  nobody;worker_processe ...

  2. 咏南跨平台中间件支持LINUX和WINDOWS插件架构

    咏南跨平台中间件支持LINUX和WINDOWS插件架构

  3. 咏南IOCP中间件支持海量并发方案(集群)

    咏南IOCP中间件支持海量并发方案(集群) 支持D7~XE10.1.1开发 支持负载均衡,自动故障转移 可以在不停机的状态下,根据负载情况灵活增加中间件机器 中间件使用IOCP通信,单中间件支持并发数 ...

  4. 咏南IOCP中间件

    咏南IOCP中间件 特大好消息,咏南中间件系列新增加——咏南IOCP中间件.咏南IOCP中间件完全兼容咏南DATASNAP中间件的远程方法接口. 中间件DELPHI7~DELPHI XE10.1.1都 ...

  5. 咏南DATASNAP中间件提供免费使用了

    咏南DATASNAP中间件提供免费使用了. 百度网盘分享: 链接: http://pan.baidu.com/s/1c06Ivp2 密码: dhhm

  6. 咏南DELPHI7中间件+开发框架

    咏南DELPHI7中间件+开发框架 演示下载:链接: https://pan.baidu.com/s/1bulGBIZ6A1nkeErxIrGsGA 密码: 22dk 解压后运行ynmain.exe ...

  7. 咏南ISAPI中间件

    咏南ISAPI中间件 只支持WINDOWS服务器部署,中间件作为IIS的ISAPI插件部署. 基于WINDOWS的IIS,使用HTTP.SYS通讯,不依赖任何三方控件. 可以基于IIS HTTPS. ...

  8. 咏南Mormot中间件接口

    咏南Mormot中间件接口 只使用了MORMOT的HTTPS.SYS作为通讯,数据引擎使用FIREDAC,数据序列/还原是自行封装. 客户端支持FDMemeTable和ClientDataSet数据集 ...

  9. 咏南MORMOT中间件免费开源

    咏南MORMOT中间件免费开源 源码放QQ群(92449782)共享文件里面

随机推荐

  1. js基础篇(dom操作,字符串,this等)

    首先我们来看这样一道题 <div id='foo' class='aa bb cc'></div>写出如何判断此div中是否含有aa(注:aa成立,aaa不成立) 首先,我们一 ...

  2. vs2015 去除 git 源代码 绑定

    第一次碰到这个问题,想将源代码签入TFS管理.添加到源码管理后,默认添加到Git源码管理. 研究过后,发现: 1)删除框内文件 2)Vs2015->工具->选项->源代码管理-> ...

  3. 嵌入式linux开发:杂七杂八的话

    1. 编译器:常用的有Sourcery,linaro等.当然芯片厂家一般也会提供可用的编译器. 2. 将配置和编译时的输出O到其他位置:make O=some_dir 这样做的好处是保持源代码树的干净 ...

  4. 第十届蓝桥杯 试题 E: 迷宫

    试题 E: 迷宫 本题总分:15 分 [问题描述] 下图给出了一个迷宫的平面图,其中标记为 1 的为障碍,标记为 0 的为可 以通行的地方. 010000 000100 001001 110000 迷 ...

  5. [转]Web前端浏览器兼容

    转自: http://www.admin10000.com/document/1900.html 前言 浏览器兼容是前端开发人员必须掌握的一个技能,但是初入前端的同学或者其他后台web开发同学往往容易 ...

  6. RPM包下载网址

    https://pkgs.org/ (最爱) http://rpm.pbone.net/ http://rpmfind.net/linux/RPM/index.html

  7. Linux下安装MATLAB

    Why do I see "Preparing installation files ... Installing ... Finished..." in the terminal ...

  8. GridView弹出对话框

    if (e.Row.RowState == DataControlRowState.Normal || e.Row.RowState == DataControlRowState.Alternate) ...

  9. opencv_traincascade 训练自己的检测器

    2013年08月08日 ⁄ 综合 ⁄ 共 1061字 ⁄ 字号 小 中 大 ⁄ 评论关闭   经过近一个月的工程实战,把自己累积的经验分享给大家,教你如何训练一个收敛的,比opencv自带的data效 ...

  10. JAVA获取txt文件内容

    JAVA 读取txt文件内容 通常,我们可以直接通过文件流来读取txt文件的内容,但有时可能会出现乱码!此时只要设置一下文件字符编码即可. public class txttest { /** * 读 ...