delphi中间件

摘要： 这段时间一直在做工业自动控制方面的项目，PLC使用的是Siemens，当时上位机用的是Siemens的WinCC，其使用的改的不伦不类的C，让我实在无法忍受，缺少事件驱动，简直不能称之为现代软件。在Siemens的BBS上潜水多日以及跟北京的工程师浪费无数口水之后，终于找到了我认为是将来自控软件应用的方向，OPC。 OPC分两大部分，一是OPC Server，一是OPC Client。OPC Server是基于DCOM的组件对象，负责连通PLC，类似一个Adapter，各个PLC厂家分别有针对自己PLC的OPC Server，也有第三方提供的。OPC Client其实只是根据OPC协议而自己实 阅读全文

摘要： procedure TFormMain.Timer1Timer(Sender: TObject);begin inherited; iPlot1.Channel[0].TitleText:='白石监测点'; iPlot1.Channel[1].TitleText:='芳村监测点'; iPlot1.Channel[0].AddYElapsedSeconds(Random(30)); iPlot1.Channel[1].AddYElapsedSeconds(Random(30));end;procedure TFormMain.FormShow(Sender: TO 阅读全文

摘要： delphi提供的web services控件说明T H T T P R I O通过H T T P和S O A P封包调用远程Web ServiceTO P To S o a p D o m C o n v e r t把Object Pascal调用的We bS e r v i c e服务转换为S O A P形式的封包，并且把Web Service返回的S O A P结果封包转换为Object Pascal的类型以便让客户端应用程序访问结果T H T T P R e q R e s p通过Wi n i n e t . d l l传送出H T T P请求的S O A P封包给远程Web Serv 阅读全文

摘要： 在以往的日子中，软件技术的发展都是由操作系统或是数据库的趋势所主导，每一个开发工具的新版本大都是强调可以链接新的数据库服务器或是能够撰写出新版本操作系统提供的功能等。到了3、4年前当各种组件模型，例如C O R B A和D C O M等，越来越受到重视之后，开发工具的需求又加入了可以快速开发各种组件。但是自从I n t e r n e t / I n t r a n e t的应用快速兴起和发展之后，软件技术的发展趋势就逐渐由We b 应用所主导。各种开发工具不但快速地加入支持I n t e r n e t / I n t r a n e t的开发功能，更由于We b应用的成长速度超过了传统开发 阅读全文

摘要： 现在影响世界最重要的技术就要算是I n t e r n e t / I n t r a n e t了，I n t e r n e t / I n t r a n e t不但改变了许多人的生活，也影响了世界运转的方式。各种商机和软/硬件的发展也由I n t e r n e t / I n t r a n e t主导。I n t e r n e t / I n t r a n e t的出现也为软件的开发方式带来了多元的形式，软件人员开始使用各种工具来开发I n t e r n e t / I n t r a n e t应用系统。第一轮重要的技术革命是H T T P，它为I n t e r n e 阅读全文

摘要： unit uCalc;interfaceuses Dialogs, Math, SysUtils;Const Symbol_Mod='M'; Symbol_Div='D'; Symbol_Shl='L'; Symbol_Shr='R'; Symbol_Or='O'; Symbol_Xor='X'; Symbol_And='A';function ConvertExpression(ExpressionString:PChar):PChar; stdcall;function Pars 阅读全文

摘要： 以下代碼在D7+ACCESS+FastReport 3.15版中測試通過.1.將FastReport存入數據庫中:在窗體的"Insert"按鈕的OnClick事件中插入下面代碼:(Insert_rep: TADOQuery.設置SQL語句:select * from reportdata.注:ReportData為放置數據庫的表,其中有字段ID(標志),REPORT(報表內容))procedure TForm1.Button4Click(Sender: TObject);vartemplate : TStream;begintemplate := TMemoryStream 阅读全文

摘要： Delphi对摄像头的控制很简单，在System，windows和messages三个单元内已定义了所有的底层消息函数，我们只需要合理的调用它们就行了。我把摄像头的有关操作做成一个控件，这样就可以拖动窗体上直接使用了。{************************************* Camera Control for Delphi7 ** Made by Rarnu ** Credit 2006.08.27 ** http://rarnu.ik8.com *************************************}unit RaCameraEye;interfac 阅读全文

摘要： 1. 先用一般的文书编辑器建好一个 MySet.inc 的普通文本文件 , 内容为 :{$H+}{$DEFINE _Proversion}2.在我们的程序中 , 加入一列 {$I MySet.inc}, 例如 :unit Unit1;{$I MySet.inc}interface… implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);begin{$IFDEF _ProVersion} ShowMessage(' 专业版 ');{$Else} ShowMessage(' 只有专业版才 阅读全文

摘要： 使用Tapplication的onmessage事件来处理消息.指派一个过程给ONMESSAGE,当应用程序从消息队列中取出一条消息,并准备处理该消息时,就调用这个过程.应用在WINDOWS处理这条消息前,调用这个事件处理过程.application.onmessage事件处理过得是TMessageEvent类型.procedure someobject.appmessagehandler(var msg:tmsg;var hancled:boolean);可以从组件板中选择TAPPLICATIONEVENTS组件,从而创建一个ONMESSAGE事件处理过程.ONMESSAGE的唯一限制就是它 阅读全文