摘要： Delphi 3开始有了TWebBrowser构件，不过那时是以ActiveX控件的形式出现的，而且需要自己引入，在其后的4.0和5.0中，它就在封装好shdocvw.dll之后作为Internet构件组之一出现在构件面板上了。常常听到有人骂Delphi的帮助做得极差，这次的TWebBrowser又是Microsoft的东东，自然 这里有平时我自己用TWebBrowser做程序的一些心得和上网收集到的部分例子和资料，整理了一下，希望能给有兴趣用TWebBrowser编程的朋友带来些帮助。-----------------------------------------------------. 阅读全文

摘要： 1.获得网页中变量值 htm中 程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID 值得说明的是,变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量currID不存在2.执行网页中的函数 tmp := 'currID = getNextID(currID)'+#13#10; Form1.WebBrowser1.OleObject.Document.parentWindow.execScript(tmp,&# 阅读全文

摘要： 直切主题现有一张表table : ChenJiID, DanWeiID, Name, ChenJi表中记录ID DanWeiID Name ChenJi --- ----------- --------- --------- 1 1 aa 91 2 1 bb 91 3 1 cc 33 4 2 dd 164 5 2 ee 155 6 2 ff 166在查询分析器里面开两个连接A连接begin tran t1insert into ChenJi (DanWeiID, Name, ChenJi) values (3, ‘张三', 98)rollback tran t1 B连接插入与锁先开始A 阅读全文

摘要： 印象中网络程序都是sendBuffer和recvBuffer来发送数据和接收数据,本次Demo演示如何定义定义一个自己的对象，然后我们按照OO的思想直接进行对象的发送和接收，先上个流程图。下面是客户端发送和接收的测试代码。下面我们来看看详细的设计。第一步(TMyObject)：首先我们需要设计一个需要进行传输的对象.type TMyObject = class(TObject) private FDataString:String; FOle:OleVariant; public property DataString:String read FDataString write F... 阅读全文

摘要： 经过昨天晚上一折腾把做了一个DIOCP直接传递TADOQuery的Demo，在google上找了一系列的资料。这样服务端可以直接将TADOQuery查询出来的数据直接转换成TStream自己进行传递，到客户端用一个TADOQuery对象还原流就可以了。两种方法导出的数据格式是一样的方法一是将recordset保存成流接口->转成OleVariant ->写入流class function TADOTools.saveToStream2( pvDataSet: TCustomADODataSet): TMemoryStream;var AStream:_Stream; V:OLEVa 阅读全文

摘要： 很久没有写DIOCP的Demo了，主要公司的事情太繁琐，工作之余都不想动了，之前承若的群里面朋友们的DEMO，昨天晚上恶补了一下，把对数据库连接池的操作加入到了Demo中，大家可以通过SVN下载到最新的代码和Demo。 好了我带大家看看这次的DEMO，经过群里面朋友们的推荐，这次代码中引用了UntCobblerUniPool连接池代码来完成的本次的DEMO，研究了下代码，里面使用的线程时钟来做死连和多余连接的释放。感谢UntCobblerUniPool作者无私奉献的精神。 先截个图，看看服务端的界面。主要加入了多帐套的连接的配置。配置文件存放在config\dbpool.config，是一个. 阅读全文

摘要： SET NOCOUNT ONDECLARE @db VARCHAR(20)SET @db=db_name()DBCC UPDATEUSAGE(@db) WITH NO_INFOMSGSGOCREATE TABLE #tblSpace(数据表名称 varchar(250) null,记录笔数 int null,保留空间 varchar(15) null,数据使用空间 varchar(15) null,索引使用空间 varchar(15) null,未使用空间 varchar(15) null)DECLARE @tblname varchar(250)DECLARE curTbls CURSOR 阅读全文

摘要： 今天群里有个朋友说他们医院项目采用直连数据库，高峰时期sqlserver的连接数达到7000多,于是我准备做个用diocp做个demo，服务端用连接池。白天的时候我在想，并发如果7000个。如果用diocp做三层服务器，连接池应该在100个左右。今天晚上奋斗了一晚上，准备把测试过程中碰到的问题总结一... 阅读全文

摘要： >>>>>>DIOCP讨论群:320641073>>>>>>SVN源码和DEMO下载:https://code.google.com/p/diocp/ 网络带宽有限,对数据进行压缩再进行传送可以有效的利用带宽和提高传输的效率。DIOCP中对数据进行压缩传送，需要修改编码器和解码器，先说说这两个东西的的用法和功能。 举个例子：我们要把一台电脑快递回老家给正在上学的小弟使用，那么老家就是服务端(S),电脑就是我们要发送的对象(O)，快递就是TCP传输过程。在这个过程中，发送一个对象(电脑)用到客户端的编码器,接收对象(电脑)用 阅读全文

摘要： 经过两天时间的开源，感谢网友提出一些修改意见，特别是在XE中，做了一部分优化。可以在SVN中下载到最新的代码https://code.google.com/p/diocp/今天做了一个操作数据库的演示<这里我拿出我在实际项目中操作数据库的方法，集成在Demo中>操作数据库比较简单,分两部分功能，第一部分打开SQLprocedure TfrmMain.btnOpenSQLClick(Sender: TObject);var lvJSonStream, lvRecvObject:TJsonStream; lvStream:TStream; lvData:AnsiString; l, j 阅读全文