大家对照片的底片一定都很熟悉了，底片上的颜色与色彩鲜艳的照片的颜色是正好相反的，即反色，这也是我们制作反色图像的核心。 编程原理：你所见到的各种色彩都是由红、绿、蓝三种颜色按不同的比例混合而成的，这就是我们所说的三基色，它们的颜色值（RGB值）是 0～255 ，所以我们只需去的图像上各个点的RGB值，然后用255减去这个值，并将这个值重新赋值给各个点，……继续阅读 » 搞代码 7年前 (2018-08-09) 189浏览 0评论0个赞
摘 要：在工作组中寻找所有的计算机 var Computer: Array[1..500] of String[25]; ComputerCount: Integer; procedure FindAllComputers(Workgroup : String); Var EnumHandle: THandle;http://www.gaoda……继续阅读 » 搞代码 7年前 (2018-08-09) 195浏览 0评论0个赞
uses dao97,dao2000; procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;baccess97:boolean=true); var idbEngine:_dbEngine; begin if oldpwd <>……继续阅读 » 搞代码 7年前 (2018-08-09) 184浏览 0评论0个赞
我的主页: http://www.tommstudio.com/ 笔者最近开发的系统中需要写一个下载文件的功能。以前用BCB调用API写的很烦琐，忽然想起有一个API就可以搞定了，于是一大早就来搜索。这个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFi……继续阅读 » 搞代码 7年前 (2018-08-09) 211浏览 0评论0个赞
procedure TForm1.ToolButton1Click(Sender: TObject); label Write; var Favorites:String; Search:TSearchRec; ……继续阅读 » 搞代码 7年前 (2018-08-09) 131浏览 0评论0个赞
也许你曾经叹服过微软公司的IE浏览器等网络应用软件功能之强大,技术之先进，也许你目前还没有能力开发这样的一个复杂的大型系统，不过不用着急,这里可以给你一个练习的机会，就是学会用Delphi的Winsocket来编写基于tcp/IP的应用程序，这里假设你已经对Delphi开发工具已经初步熟悉了。 我们可以想象，如果从最原始开始来编写一段实现与……继续阅读 » 搞代码 7年前 (2018-08-09) 178浏览 0评论0个赞
Var Reg:Tregistry Begin Reg:=Tregistry.Create; Reg.Rootkey:= Hkey_Current_User; Reg.OpenKey′Control Panel/Desktop′,False); Reg.WriteString (‘TileWallPaper……继续阅读 » 搞代码 7年前 (2018-08-09) 171浏览 0评论0个赞
译：DBoy 有些时候也许你想知道当前windows的任务栏在窗口的什么位置，这当然也可以用Delphi来实现。Windows API 函数允许您得到有关任务栏(也可称为应用程序栏)的信息。访问下面的微软MSDN地址可以了解到更多有关于这个函数调用的信息： ……继续阅读 » 搞代码 7年前 (2018-08-09) 207浏览 0评论0个赞
成都市八二信箱 王乐 很多软件在其About窗口或Help菜单中，可让用户通过单击一段文字就能方便地访问某个网页。比如，Delphi的Help中就有可直接访问该公司主页的菜单项。下面介绍的THyperLink组件是用Delphi3.0编制的，可方便地实现上述功能。 THyperLink是基于TCustomLabel组件的，它有以下特性： ……继续阅读 » 搞代码 7年前 (2018-08-09) 167浏览 0评论0个赞
引言 一个用来区分 MIDAS 与其他分布式数据库解决方案的特征就是，MIDAS 支持动态数据约束（constraints）功能。这些动态约束可以控制由 AppServer 到瘦客户端的分布式数据的外观、业务确认规则、是否显示等等功能。作者（John Kaster）认为这是分布式数据库需具备的一个非常重要的特征。 MIDAS 数据包（Data Pa……继续阅读 » 搞代码 7年前 (2018-08-09) 172浏览 0评论0个赞
