随笔分类 -  Delphi

记录编程技巧和经典文章转载
数据库接口隔离设计
摘要：经过多年的企业级相关开发，跟数据库的交道打得太多了。每个企业相关的项目都离不开数据库，尤其是Mis，Erp和一些报表等需要存储相关的，数据库是不二选择了。 从刚开始的拖拽控件，到慢慢学着封装，走了很长的路。越到后来，越是如履薄冰，因为跟数据库的耦合太紧，基本意味着设计过于依赖本来是帮助我们的存储介质。这显然是个度的把握。对什么事物过于依赖总不是好事。尤其数据库跟程序的依赖就是业务逻辑跟数据存储的依... 阅读全文
posted @ 2006-09-24 23:37 JustLive 阅读(1328) 评论(0) 推荐(0)
关于TWebBrowser
摘要：引　言 这篇文章最先发表于2000年07月25日，最后一次修改是在2001年02月07日。这里再次贴出的目的，一是作为前一阶段的完结，所以文章中的错误都不作修改；二是希望作为一个新的起点。我准备整理一下至今所积累的浏览器编程的知识，比较完整地写出来，与网友共勉。 TWebBrowser编程简述 摘要：Delphi 3开始有了TWebBrowser构件，不过那时是以ActiveX控件的形式出现的... 阅读全文
posted @ 2006-02-07 11:10 JustLive 阅读(759) 评论(1) 推荐(0)
数据类型转为字符串
摘要：function DataTypeToStr(dt: TDataType): String;begin case dt of ftUnknown: Result := 'ftUnknown'; ftString: Result := 'ftString'; ftSmallint: Result := 'ftSmallint'; ftInteger: Result := '... 阅读全文
posted @ 2005-11-29 15:49 JustLive 阅读(457) 评论(0) 推荐(0)
Delphi第三方组件--Delphi第三方控件大比拼
摘要：下面这篇文章是一位网友对多种第三方组（控）件的看法，英雄所见所略同，他的见解还是颇有见地的。但所谓智者见智，仁者见者，下面的红字是我的个人看法。 古人云∶“工欲善其事，必先利其器。” 这句话，我想凡是用Delphi的朋友，应该都有很深切的体会吧。的确，如果Delphi没有了控件的支持，那么人气度一定会大大的降低，不会有现在这样多的Fan了，俺也就改行用 BCB或VC了，呵呵。 但是，现在控件... 阅读全文
posted @ 2005-11-29 12:48 JustLive 阅读(2091) 评论(0) 推荐(0)
delphi游戏编程网址
摘要：这是一位大侠留的网址我把他抄下来了基本都是游戏编程的////////////毋庸置疑，Delphi是一个绝佳的、强大的游戏开发平台！1、http://www.savagesoftware.com.au/DelphiGamer/说明：著名的Delphi游戏开发网站，分类详细，有资料，源码，Delphi开发的游戏网址等等！更新很快！2、http://turbo.gamedev.net/说明：专业的Bo... 阅读全文
posted @ 2005-10-21 22:52 JustLive 阅读(2342) 评论(0) 推荐(0)
模型驱动开发框架3
摘要：4. 编码 下面我们要完成的就是界面设计、编码工作。在工程视图中双击WinForm.pas打开窗体编辑器。ECO Application Wizard已经创建了一个ReferenceHandle组件rhRoot和多个Extender组件。Extender组件保留其默认属性即可，如果将其删除用户界面中的控件将无法和ECO关联。设置rhRoot的EcoSpaceType 为 "EcoCRMEcoSp... 阅读全文
posted @ 2005-08-12 13:11 JustLive 阅读(501) 评论(0) 推荐(0)
模型驱动开发2
摘要：首先我们将一个Class拖放到设计器中，将其命名为Customer，再点击右键选择 Add →Attribute为其添加一个属性，并设置该属性的名称为"Name"类型为String。在属性的类型设置中，你可以输入Delphi支持的类型。同过设置Alias属性还可以在模型中显示中文别名，方便我们进行建模。Class常用的属性如下： 属性名 默认值 描述 Abstract False 抽象类 ... 阅读全文
posted @ 2005-08-12 13:10 JustLive 阅读(360) 评论(0) 推荐(0)
模型驱动开发框架
摘要：如何降低软件开发维护成本、提高开发效率、减小需求变更对系统的影响以及延长系统的生命周期是每个软件开发者都在思索的问题。然而传统的开发途径中上面的问题总是很难完美的解决。 MDA(模型驱动架构,Model Driven Architecture)是由OMG组织提出的新的软件开发架构，他相对于传统的开发方式有了很大的变化，软件开发的驱动力不再来自于传统的概要设计、编码，而是由模型来驱动开发。使用MDA... 阅读全文
posted @ 2005-08-12 13:09 JustLive 阅读(689) 评论(0) 推荐(0)
Access数据库压缩
摘要：假设此数据库的密码是 idlehagaruse JRO_TLB;procedure CompactMdb;const sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;';var oJetEng: JetEngine;　sOldMdb, sNewMdb: string;begin　sOldMdb := sProvider + 'Data Source=' ... 阅读全文
posted @ 2005-08-10 10:46 JustLive 阅读(583) 评论(0) 推荐(0)
取得窗体中所有句柄(zt)
摘要：+++++++++++++++ DELPHI 源代码 +++++++++++++++ // 将下面这两个变量声明为全局变量 MyhWnd:array[1..200] of hWnd; MyhWndCount:integer=1; // 这个过程便能够获得主窗体下的全部子窗体句柄 Procedure Tmainform.GethWnd(Dad:hWnd); var bakh:hWnd; begin... 阅读全文
posted @ 2005-07-26 10:47 JustLive 阅读(466) 评论(0) 推荐(0)
Windows优化大师注册机源码
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Registry, StdCtrls, Buttons; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; E... 阅读全文
posted @ 2005-07-26 10:45 JustLive 阅读(605) 评论(0) 推荐(0)
程序打开控制面板及各项
摘要：{启动控制面板}winexec('rundll32.exe shell32.dll,Control_RunDLL',9);{辅助选项 属性-键盘}winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9);{辅助选项 属性-声音}winexec('rundll32.exe shell32.dll,Control_RunDLL... 阅读全文
posted @ 2005-07-12 09:14 JustLive 阅读(664) 评论(0) 推荐(0)
解析html网页及下载连接
摘要：重要代码实现： procedure TForm1.MyWebBrswTitleChange(Sender: TObject; const Text: WideString); begin STitle := Text; end; function TForm1.ChangeURL(i,j: integer): Boolean; var Url : WideString; begi... 阅读全文
posted @ 2005-05-11 16:08 JustLive 阅读(1509) 评论(0) 推荐(0)
给TstringGrid加入CheckBox
摘要：var Form2: TForm2; fcheck,fnocheck:tbitmap; implementation {$R *.DFM} procedure TForm2.FormCreate(Sender: TObject); var bmp:TBitmap; begin FCheck:= TBitmap.Create; FNoCheck:= TBitmap.Create... 阅读全文
posted @ 2005-04-08 16:54 JustLive 阅读(916) 评论(0) 推荐(0)
delphi技巧－－分离汉字和英文字母
摘要：const s:widestring='k你asdfdsf好d吗?'; var i:integer; y,h:string; begin while Length(s)0 do begin if Length(s[i])=Length(string(s[i])) then y:=y+s[i] else h:=h+... 阅读全文
posted @ 2005-03-30 13:31 JustLive 阅读(727) 评论(0) 推荐(0)
一个自动更新自己的程序（z）
摘要：the method to use AUTOUPDATE TAutoupdate.create(hinstance,'http://www.***.com/shopserver.info','0.9'); 如果是在.exe调用，则更新.exe，如果是在.dll中调用，就是更新.dll unit uautoupdate; //this unit is used to aut... 阅读全文
posted @ 2005-03-30 13:16 JustLive 阅读(2025) 评论(1) 推荐(0)
多线程支持断点续传的文件传输－－（摘自大富翁）
摘要：点到点的多线程支持断点续传的文件传输 转粘一个，可惜是VC的，没空转为Delphi，将就着，基本思想都在那： 编写断点续传和多线程下载模块 分类:开发 作者:原创 发表于:《程序员》 下载附件 概述 在当今的网络时代，下载软件是使用最为频繁的软件之一。几年来，下载技术也在不停地发展。最原始的下载功能仅仅是个“下载”过程，即从WEB服务器上连续地读取文件... 阅读全文
posted @ 2005-03-30 13:15 JustLive 阅读(2905) 评论(1) 推荐(0)
用delphi写下载程序
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IniFiles, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, ... 阅读全文
posted @ 2005-03-30 13:13 JustLive 阅读(1982) 评论(0) 推荐(0)