把原来的三层架构的程序搬家到服务器上（win2008系统），在服务器上运行服务端程序均正常， 但是运行客户端远程连接时出现“加载类型库/DLL时出错”提示。 看客户端程序运行的过程应该是已经连接到远程服务器，应该是系统调用某个默认的系统文件时出现版本不同造成的， 会不会跟三层连接的Midas.dll有关呢，试试吧！ 拷贝本地的Midas.dll到服务器的C:\w
标签： Delphi
关于StringGrid类型的居中实现
在开发中有些地方采用StringGrid实现数据的操作，但是默认的是采用左对齐，无法设置居中。 实现方案只能采用自绘方案了。 在StringGrid的OnDrawCell事件中 var CellString:string; begin &nbs
定期删除程序运行日志文件
程序下生成的日志文件，随着程序的使用慢慢的变多，出于对软件的维护，我们要定期删除过早的日志文件。 索性就整个代码吧。 function DelAppLog():boolean;//是否删除程序运行日志文件 var t:tdatetime;//用来临时存放日志文件的创建时间 begin try if fileexists(logfile) then
Delphi DateUtils-Function详解
IncYear、IncMonth、IncWeek、IncDay、IncHour、IncMinute、IncSecond、IncMilliSecond DateUtils.IncYear(); DateUtils.IncMonth(); DateUtils.IncWeek(); DateUtils.IncDay(); DateUtils.IncHour(); DateUtils.IncMinute(); DateUtils.IncSecond(); DateUtils.IncMilliSecond
关于提示can’t load package xxx.bpl错误问题的解决方案
这两天笔记本遇到了点问题，索性就重装了系统，装完系统重装delphi相关控件，发现有几个都是常用的控件都无法顺利安装。 都提示can't load package 'xxx.bpl'但'xxx.bpl'包实际存在, 路径并且正确。又以为系统问题重装一次无果，应该断定不是系统的问题了。 终于尝试修改设置里面的环境变量设置，将当前提示出错
Delphi实现PING功能
有些时候需要写个自己的ping工具，可以参考以下代码。 unit PING; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient; type TForm1 = class(TForm) Button1
鼠标按住不放自动累加的实现
群里有人发出这么个需求，说是鼠标按住不放的同时开始计数累加1，放掉归零。 delphi 中没有鼠标按住不放的属性，只能借助MouseDown，Mouseup，加timer来实现了。 timer设置时间周期为50，可以随意调整。 unit Unit1; interface &nb