delphi中间件

摘要： 源码：unit ServiceMainU;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdFTPServer, Registry, forms, IdUserAccounts, IdThreadMgr, IdThreadMgrPool, IdThreadMgrDefault, IdFTPList;type TServMain = class(TService) IdFTPS.. 阅读全文

摘要： program FTPServer_console;(*Sample of the usage of the TIdFtpServer component.Also shows how to use Indy in console appsCreated by: Bas Gooijen (bas_gooijen@yahoo.com)Disclaimer: Use it at your own risk, it could contain bugs.Copyright: Freeware for all use*){$APPTYPE console}uses Classes, windows, 阅读全文

摘要： function IsFileInUse(FName:string):Boolean; var HFileRes:HFILE; begin Result:=False; if not FileExists(FName) then Exit; HFileRes:=CreateFile(PChar(FName),GENERIC_READ or GENERIC_WRITE,0, nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0); Result:=(HFileRes=INVALID_HANDLE_VALUE); if not Result then CloseHa. 阅读全文

摘要： private procedure WMSysCommand(var Msg:TMessage);message WM_SYSCOMMAND;procedure TFormMain.WMSysCommand(var Msg: TMessage);begin case Msg.WParam of SC_CLOSE,SC_MINIMIZE,SC_MAXIMIZE: begin Application.Minimize; end; else inherited; end;end; 阅读全文

摘要： unit uFrmSplash; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, jpeg, ExtCtrls, StdCtrls 阅读全文

摘要： unit uFTPclient;interfaceuses SysUtils,Windows,Tlhelp32;const FILE_CREATE_TIME=0; //文件建立时间 FILE_MODIFY_TIME=1; //修改时间 FILE_ACCESS_TIME=2; //最后访问时间type TFileTimes = (ftLastAccess, ftLastWrite, ftCreation);//文件是否正被使用function IsFileInUse(FName:string):Boolean;//提升权限//杀服务程序进程,它会提示"拒绝访问".其实只要程序 阅读全文

摘要： client.ini[screen]x=1024y=768map.mdbmap_idmap_chk_stationmap_x_minmap_x_maxmap_y_minmap_y_max11号监测站57461328332122号监测站51756312716234号监测站8548993474procedure TFormMain.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var xScreen,yScreen,xMin,xMax,yMin,yMax,xBase,yBase:Integer; ini:TI 阅读全文

摘要： 地图图层想象图层是透明的，而每一层都包含了地图的不同部分。这些图层是一层层叠加，这样您就可以看到整个地图信息。多个图层集合组成计算机地图设想这些图层是透明的，每一图层包含地图的一个不同的部分。这些图层叠加在一起，使您同时可以看到地图的所有方面。例如，第一个图层包含国家边界，第二个图层有代表首都的符号，第三个图层包含高速公路。将这些透明的图层叠加在一起就组织起一个完整的地图。地图图元有四个基本的图元样式：区域对象：覆盖给出地区的封闭对象。包括多边形、椭圆形以及矩形。例如，国家的边界、邮政编码划分区的边界、销售区域等等。点对象：表示单个数据位置。例如，客户位置、餐馆、停车计价器等等。线对象：覆盖给 阅读全文

摘要： 用Delphi开发OPC客户端工具的方法研究[1]王海瑞 钟家玉（昆明理工大学信息及自动化学院，昆明650093）摘要： 本文通过介绍OPC技术的工作原理，结合OPC客户端的工作机制，给出OPC客户端的开发方法及在的Delphi的具体实现，提出了OPC客户端开发工具的设计方案，并实现了OPC客户端开发工具的接口函数，可以使OPC客户端开发者可以轻松的开发OPC客户程序。关键词： OPC、OPC客户端、开发工具、COM组件Abstract： This article provides the way of exploring OPC data access server and its fulf 阅读全文

摘要： 软件复用的好处1、 开发成本的降低。如果在一个项目中，能够直接用到以前项目中的代码，控件，模块，作为一个软件企业，显然的可以把开发成本降低。2、 开发层次的提升。大家知道，罗马不是一天建成的，同样的，在软件开发上，也不会一蹴而就的写出高质量的代码。当我们有意识的进行复用时，我们会在每次重复使用某段代码或者控件的过程中，发现其不足的地方，从而加以改进，这样就会逐渐的提升我们的开发层次，提升整个公司开发的层次，使得公司的软件与其他公司有着根本的不同。3、 产品化的必然阶段。在我们公司目前没有明确的开发产品的现阶段，那么对软件复用的使用，就是我们产品化的一个途径，我们在不断的复用的过程中，不断的强化 阅读全文