DIOCP开源项目-DEMO(怎么样操作远程数据库)
来源:互联网 发布:淘宝情报通 编辑:程序博客网 时间:2024/04/30 08:52
经过两天时间的开源,感谢网友提出一些修改意见,特别是在XE中,做了一部分优化。
可以在SVN中下载到最新的代码
https://code.google.com/p/diocp/
今天做了一个操作数据库的演示<这里我拿出我在实际项目中操作数据库的方法,集成在Demo中>
操作数据库比较简单,分两部分功能,第一部分打开SQL
procedure TfrmMain.btnOpenSQLClick(Sender: TObject);var lvJSonStream, lvRecvObject:TJsonStream; lvStream:TStream; lvData:AnsiString; l, j, x:Integer;begin lvJSonStream := TJsonStream.Create; try lvJSonStream.JSon := SO(); lvJSonStream.JSon.I['cmdIndex'] := 1001; //打开一个SQL脚本,获取数据 lvJSonStream.Json.S['sql'] := mmoSQL.Lines.Text; FClientSocket.sendObject(lvJSonStream); finally lvJSonStream.Free; end; //读取数据 lvRecvObject := TJsonStream.Create; try FClientSocket.recvObject(lvRecvObject); if not lvRecvObject.getResult then begin raise Exception.Create(lvRecvObject.getResultMsg); end; SetLength(lvData, lvRecvObject.Stream.Size); lvRecvObject.Stream.Position := 0; lvRecvObject.Stream.ReadBuffer(lvData[1], lvRecvObject.Stream.Size); cdsMain.XMLData := lvData; finally lvRecvObject.Free; end;end;
服务端ClientContext中的处理
procedure TClientContext.dataReceived(const pvDataObject:TObject);var lvJsonStream:TJSonStream; lvFile:String; lvCmdIndex:Cardinal; lvXMLData, lvEncodeData:AnsiString; lvSQL:String;begin lvJsonStream := TJSonStream(pvDataObject); lvCmdIndex := lvJsonStream.JSon.I['cmdIndex']; //echo测试 if lvCmdIndex= 1000 then begin InterlockedIncrement(TesterINfo.__RecvTimes); //回写数据 writeObject(lvJsonStream); end else if lvCmdIndex = 1001 then begin //根据sql获取一个数据,放在Stream中 try lvSQL := lvJsonStream.Json.S['sql']; lvXMLData := dmMain.CDSProvider.QueryXMLData(lvSQL); lvJsonStream.Clear(); lvJsonStream.Stream.WriteBuffer(lvXMLData[1], Length(lvXMLData)); lvJsonStream.setResult(True); except on e:Exception do begin lvJsonStream.Clear(); lvJsonStream.setResult(False); lvJsonStream.setResultMsg(e.Message); end; end; //回写数据 writeObject(lvJsonStream);
保存数据用到一个非常好用的DLL
客户端:
procedure TfrmMain.btnPostClick(Sender: TObject);var lvJSonStream, lvRecvObject:TJsonStream; lvStream:TStream; lvData:AnsiString; l, j, x:Integer;begin if cdsMain.State in [dsInsert, dsEdit] then cdsMain.Post; if cdsMain.ChangeCount = 0 then begin ShowMessage('没有做任何修改!'); exit; end; lvJSonStream := TJsonStream.Create; try lvJSonStream.JSon := SO(); lvJSonStream.JSon.I['cmdIndex'] := 1002; //打开一个SQL脚本,获取数据 //打包修改记录 with TCDSOperatorWrapper.createCDSEncode do begin setTableINfo(PAnsiChar(AnsiString(edtUpdateTable.Text)), PAnsiChar(AnsiString(edtKeyFields.Text))); setData(cdsMain.Data, cdsMain.Delta); //执行编码 Execute; lvData := getPackageData; end; mmoData.Clear; mmoData.Lines.Add(lvData); lvJSonStream.Stream.Write(lvData[1], Length(lvData)); FClientSocket.sendObject(lvJSonStream); finally lvJSonStream.Free; end; //读取数据 lvRecvObject := TJsonStream.Create; try FClientSocket.recvObject(lvRecvObject); if not lvRecvObject.getResult then begin raise Exception.Create(lvRecvObject.getResultMsg); end else begin ShowMessage('保存成功!'); end; finally lvRecvObject.Free; end; cdsMain.MergeChangeLog();end;
服务端:
if lvCmdIndex = 1002 then //保存数据到熟客 begin try lvJsonStream.Stream.Position := 0; SetLength(lvEncodeData, lvJSonStream.Stream.Size); lvJsonStream.Stream.ReadBuffer(lvEnCodeData[1], lvJSonStream.Stream.Size); dmMain.ExecuteApplyUpdate(lvEncodeData); lvJsonStream.Clear(); lvJsonStream.setResult(True); except on e:Exception do begin lvJsonStream.Clear(); lvJsonStream.setResult(False); lvJsonStream.setResultMsg(e.Message); end; end; //回写数据 writeObject(lvJsonStream); end
- DIOCP开源项目-DEMO(怎么样操作远程数据库)
- DIOCP开源项目-测试数据库性能
- DIOCP开源项目-高效稳定的服务端解决方案(DIOCP + 无锁队列 + ZeroMQ + QWorkers)
- DIOCP开源项目出炉,附带<IOCP退出资源的管控研究代码>
- DIOCP开源项目 API代码的封装和流程分析
- DIOCP开源项目-Delphi高性能无锁队列(lock-free)
- DIOCP开源项目-详解编码器和解码器和如何在传输中加入压缩和解压功能
- android数据库操作demo
- 31.开源项目--git远程仓库的基本操作
- 32.开源项目--git远程分支基本操作
- DIOCP (一) DIOCP常见问题。
- 操作远程数据库
- 远程连接数据库操作
- SqlServer操作远程数据库
- 远程数据库操作整理
- labwindows远程数据库操作
- android数据库操作的demo
- python 操作mysql数据库demo
- windows server 2003 普通用户(users)远程登录立即自动注销的解决方法
- linux 下chattr 用法参数说明
- 第十四周上机任务----动物的叫声
- 快速排序(C++)
- write and read
- DIOCP开源项目-DEMO(怎么样操作远程数据库)
- 第14周C++上机报告(Animal抽象基类)
- 时钟电路设计概述 - 数字电路设计
- svn pom文件基础设置
- 查看mysql分区表具体情况
- 屏蔽ecshop2.7.3的云提示no_license
- 安卓手机短信、通话记录、通信录删除了怎么恢复
- 图片二进制互相转换C#
- Listview动态加载数据