开发应用

开发应用 /html/Database/image/index.html 数据库开发 / 开发应用 zh-cn <a href='mailto:webmaster@delphichm.com'> Copyright@delphichm,</a>2006-2009.<br/>All Rights Reserved.<br/> <script language="javascript" type="text/javascript" src="http://js.users.51.la/1120570.js"></script> webmaster@delphichm.com delphi 条形码处理 /html/Database/image/20070802/376.html How can I calculate a checksum by modulus 10 which is used in barcodes? 2007-08-02 开发应用 Mike Shkolnik 国外 delphi Olevariant /html/Database/image/20070724/375.html ==这是Delphi帮助注明: The OleVariant type exists on both the Windows and Linux platforms. The main difference between Variant and OleVariant is that Variant can contain data types that only the current application knows what to do with. OleVariant c 2007-07-24 开发应用 bill 站内 delphi 如何加系统主菜单 /html/Database/image/20070708/326.html type TyourForm = class(TForm) private { Private declarations } procedure wmSysCommand(var Message:TMessage); message WM_SYSCOMMAND; end; const ID_ABOUT = Word(-1); implementation procedure TyourForm.wmSysCommand; begin if Message.wParam = ID_ABOUT t 2007-07-08 开发应用 hongbin fei 站内 delphi 重命名、COPY、移动文件 /html/Database/image/20070708/325.html RenameFile('Oldname', 'Newname'); CopyFile(PChar('Oldname'), PChar('Newname'), False); MoveFile(PChar('Oldname'), PChar('Newname')); 2007-07-08 开发应用 bill 站内 delphi 检查回收站是否为已清空 /html/Database/image/20070708/324.html uses Activex,ShlObj,ComObj; functionRecycleBinIsEmpty:Boolean; const CLSID_IRecycleBin:TGUID=(D1:$645FF040;D2:$5081;D3:$101B; D4:($9F,$08,$00,$AA,$00,$2F,$95,$4E)); var EnumIDList:IEnumIDList; FileItemIDList:PItemIDList; ItemCount:ULONG; RecycleBin: 2007-07-08 开发应用轶名国外 delphi 如何建议快捷方式 /html/Database/image/20070708/323.html In this article, you will learn how to create standard Windows shortcuts using Delphi code. Creating a Shell Link - Shortcut Add a button (button1) on a form (form1) and try this code: uses ShlObj, ActiveX, ComObj; ... procedure TForm1.Button1Click( 2007-07-08 开发应用轶名国外 delphi 添加热键 /html/Database/image/20070704/306.html You want to use the RegisterHotKey API. if not RegisterHotKey(Form1.Handle, 0, MOD_CONTROL or MOD_ALT, Ord('R') ) then RaiseLastOSError; ` And create a message handler: procedure WMHotKey(var Message:TWMHotKey); message WM_HOTKEY; 2007-07-04 开发应用 Steve 国外 delphi 文本导入数据库 /html/Database/image/20070704/303.html I'm connecting to several txt files delimited with ";". They are all the same format (columns, rows and data), but on one file there is an error. The data in one column is 2007-07-04 开发应用 Luka 国外 delphi eof 或Bof为真，或可能记录已被删除 /html/Database/image/20070704/302.html if adoquery.recordset.RecordCount0 then begin adoquery.Recordset.MoveFirst; while not adoquery.recordset.Eof do begin ... ... adoquery.Recordset.MoveNext; end; end; 2007-07-04 开发应用 Luka 国外 delphi 文件压缩 /html/Database/image/20070704/301.html here are some simple routines to compress and decompress a file: procedure CompressFile(const inFile, outFile: String); var zStream : TZCompressionStream; inStream : TFileStream; outStream: TFileStream; size : Cardinal; begin // open the in file and 2007-07-04 开发应用轶名国外 delphi A Quick Way to Shortcuts 快捷方式 /html/Database/image/20070703/266.html A Component for Creating and Modifying Shortcuts 2007-07-03 开发应用 Bill Todd 国外 delphi Delphi_三谈多态——善用virtual /html/Database/image/20070703/258.html 多态性，是一种能给程序带来灵活性的东西。看过《设计模式》的程序员应该都知道，相当多的模式（几乎所有）都是依靠多态来实现的，以此给程序提供可扩展、可重用性。在《再谈多态向上映射及VMT／DMT》一文中，提到了多态性是依赖于虚函数／虚方法（即动态绑定）来实现 2007-07-03 开发应用轶名网络 delphi Delphi_Shell编程---如何判断一目录是否共享 /html/Database/image/20070703/257.html 面函数要额外引用 ShlObj, ComObj, ActiveX 单元。 function TForm1.IfFolderShared(FullFolderPath: string): Boolean; //将TStrRet类型转换为字符串 function StrRetToString(PIDL: PItemIDList; StrRet: TStrRet; Flag:string=): string; var P: PChar; begin case 2007-07-03 开发应用轶名网络 delphi Delphi用拼音首字符序列实现检索功能 /html/Database/image/20070703/256.html 在日常工作和生活中我们经常使用电子记事本查找个人通讯录信息，或在单位的应用程序中查询客户档案或业务资料，这个过程中往往需要输入大量的汉字信息，对于熟悉计算机的人这已经是一件头疼的事，那些不太熟悉计算机或根本不懂汉字输入的用户简直就望而生畏。作为对数 2007-07-03 开发应用轶名网络 delphi Delphi_三层开发基本概念介绍 /html/Database/image/20070703/251.html 三层客户/服务器一：优点：灵活性和可扩展性。应用三层开发技术(分布式)的原因 (参考书目: Delphi 5.x分布式多层应用系统篇) 一:解决客户机/服务器结构的维护成本问题，改善客户机/服务器结构延展性问题。客户机/服务器结构支持的用户人数有一定限度（200人以下）。 2007-07-03 开发应用秩名笨鱼技术网 delphi Delphi_如何在Delphi中用代码来完成计算字段的创建 /html/Database/image/20070703/250.html procedureTForm1.FormCreate(Sender:TObject); var NewField:TField; i:integer; begin //表中有两字段SName,Birth，现在我们动态生成一个计算字段Age，显示出年龄 NewField:=TStringField.Create(ADOTable); //创建一个TStringField类型的字段 ADOTable.Close; fori:= 2007-07-03 开发应用轶名网络 delphi 获得Variant类型 /html/Database/image/20070702/237.html function GetVariantType(const v: variant): string; begin case TVarData(v).vType of varEmpty: result := 'Empty'; varNull: result := 'Null'; varSmallInt: result := 'SmallInt'; varInteger: result := 'Integer'; varSingle: result := 'Single'; varDouble: 2007-07-02 开发应用轶名网络 delphi 移去OLEContainterr的黑边框 /html/Database/image/20070702/236.html OleContainer1.OleObject.AxBorderStyle := afbNone; 2007-07-02 开发应用轶名网络 delphi 调试进程内的COM SERVER /html/Database/image/20070702/235.html 调试进程内Com Server的步骤是在delphi5带的DG.PDF的45-46页上，但那上面少了关键的一步就是，你还需要点中 Project|Options|Linker中的include remote debugger symbols选项,最后还要build all重新编译全部文件。 2007-07-02 开发应用轶名网络 delphi 在delphi中使用flash控件 /html/Database/image/20070702/234.html ---- FLASH是Macromedia公司出品的，用在互联网上动态的、可互动的shockwave。它的优点是体积小，可边下载边播放，这样就避免了用户长时间的等待。 ---- FLASH可以用其生成动画，还可在网页中加入声音。这样你就能生成多媒体的图形和界面，而使文件的体积却很� � ---- 2007-07-02 开发应用轶名网络 delphi 关于使用COM对象的方法 /html/Database/image/20070702/233.html 关于使用COM对象的方法，以Microsoft Word为例，作简要说明： Step0：从Word的类型库(Type Library)文件生成声明文件(xxx_TLB.pas)，要使用自动对象，必须先读取相应的类型库文件(*.TLB)，从其中得到自动对象的类型信息，方法：在Delphi IDE中打开......Microsoft 2007-07-02 开发应用轶名网络 delphi 汉字转拼音码(下) /html/Database/image/20070702/232.html unit HzSpell; { version 4.1} interface uses Windows, Messages, SysUtils, Classes; type THzSpell = class(TComponent) protected FHzText: String; FSpell: String; FSpellH: String; procedure SetHzText(const Value: String); function GetHzSpell: String; fu 2007-07-02 开发应用轶名网络 delphi 汉字转拼音码(中3) /html/Database/image/20070702/231.html (180,477,475,503,332,509,472,492,247,427,460,172,403,184,457,164,229,330,363,478, 330,464,347,520,413,214,403,451,451,451,483,122,477,192, 13, 15,499,431,461,210, 443,128,329,483,415,334,461,318,186, 67,268,233,241,461,492,431, 23,212,242,124, 345,1 2007-07-02 开发应用轶名网络 delphi 汉字转拼音码(中2) /html/Database/image/20070702/230.html (459, 21,464,215,234,472,242,168,488,246,351,492,243,291,491,459,455,181,235,181, 177,172,149,466,262,295,125,175,507,507,466,420,459, 40,457,483,464,184,182,463, 391,182,432,395,421,337,337,139,339,432,458, 72,108,314,420,108,108,242,236,458, 349,3 2007-07-02 开发应用轶名网络 delphi 汉字转拼音码(中) /html/Database/image/20070702/229.html (478, 94, 59,168,348,221,470,194,451, 23,136,341,479, 23,216,110, 31,256,491,451, 334,491,242,229,482,473,242,408,507,479, 91,450,166,462,317,393, 21, 42,268,237, 175,379, 47,136, 23,168,459,242,347,364,229,180,461,479,415,451,448,469,510,403, 220, 2007-07-02 开发应用轶名网络 delphi 汉字转拼音码(上) /html/Database/image/20070702/228.html { This file is base on Winpy_TAB.TXT } const PYMUSICCOUNT = 526; PyMusicCode: array [1..PYMUSICCOUNT] of String[6] = { 汉字基本发音表 } ( 'a', 'aes', 'ai', 'an', 'ang', 'ao', 'ba', 'bai', 'baike', 'baiwa', 'ban', 'bang', 'bao', 'be', 'bei', 'ben', ' 2007-07-02 开发应用轶名网络 delphi 如何对数据流 INSERT、APPEND /html/Database/image/20070702/227.html 如果不是第一次初始化的话。因此，有必要对多段数据流的整合操作做一些有利的约束。如增加INSERT(插入)、 APPEND(追加)之类的方法。从TStream的定义及其派生子类我们得知，CopyFrom是唯一可以加以利用的公用函数，它从指定的流上拷贝指定数量的字节后返回一长整型值， 2007-07-02 开发应用轶名网络 delphi 在Dephi中使用TStream读写数据的技巧 /html/Database/image/20070702/226.html 在Dephi中提供了一个抽象的数据类型TStream来支持对流式数据的操作。这些数据通常来自文件、数据库、内存对象、OLE对象等，TStream提供了统一、简洁的方法来进行数据的读写。在通常情况下，我们并不需要直接使用TStream类，对流式数据的读写封装在VCL控件的方法中 2007-07-02 开发应用轶名网络 delphi CS构架下的客户端自动更新程序 /html/Database/image/20070627/148.html 我原来写了一个自动更新程序，思路也很简单：客户端就一个Update.Exe，这个程序自动连接指定的FTP服务器，检查服务器上指定FTP目录中文件的版本（或日期），与本地的文件进行对比，如果本地没有文件，或与服务器上的文件日期不一致，则自动下载服务器上的文件到本地。 2007-06-27 开发应用大富翁论坛 delphi 显示DLL可导出函数 /html/Database/image/20070627/147.html TDLLExportCallback = function (const name: String; ordinal: Integer; address: Pointer): Boolean of Object; { Note: address is a RVA here, not a usable virtual address! } DLLToolsError = Class( Exception ); Procedure ListDLL 2007-06-27 开发应用 bill 站内 delphi VC与Delphi之间动态链接库互相调用 /html/Database/image/20070627/146.html Delphi中调用格式： Procedure ShowMess (h:HWND; mess:PChar); Stdcall;{Cdecl;} external LibName; 如无Stdcall或Cdecl声名，Delphi默认Register(FastCall)调用格式。注意Delphi与VC的对齐格式不同，在VC中定义结构时要用以下格式： 2007-06-27 开发应用 bill 站内 delphi 创建纯资源的DLL /html/Database/image/20070627/145.html ShowMessage('Bad Dll Load') else begin Icon := LoadIcon(h, 'ICON_1'); DrawIcon(Form1.Canvas.Handle, 10, 10, Icon); FreeLibrary(h); end; 2007-06-27 开发应用 bill 站内 delphi 调用DLL中的对象的方法返回值为string时报错！！！！ /html/Database/image/20070627/144.html 对象TDllNumber在objdll.dll中定义： objdll.dll输出一个函数：CreateObject 2007-06-27 开发应用 bill 站内 delphi delphi处理流 /html/Database/image/20070623/114.html TMemoryStream的继承关系如下 TObject | TStream | TCustomMemoryStream | TMemoryStream 如何使用TMemoryStream? 2007-06-23 开发应用 bill 站内 delphi Working with OpenGL - An FAQ /html/Database/image/20070623/113.html Compared to other graphics libraries you need very little additional software. Microsoft provides two dynamic link libraries (DLLs) with Windows9x and WindowsNT called OpenGL32.DLL and GLU32.DLL, which are able to render on accelerated as well as una 2007-06-23 开发应用秩名笨鱼技术网 delphi Making Forms Work: Part IV /html/Database/image/20070623/112.html Dialogs of this nature are normally centered on the display screen so that they might grab the user's attention. Most of the time this works, although sometimes the effect would be improved if the dialog were centered on the application or even posi 2007-06-23 开发应用 bill 国外 delphi Making Forms Work: Part III /html/Database/image/20070623/111.html One of Windows' many tasks is to act like the dispatcher in a taxi cab operation. When you call for a cab, a dispatcher receives the request and relays it to a driver. All the drivers may hear the call, but only one will respond. Alternatively, a dr 2007-06-23 开发应用秩名笨鱼技术网 delphi Making Forms Work: Part II /html/Database/image/20070623/110.html Modal forms offer specific features that we cannot have when displaying non-modally. Most commonly, we will display a form modally to isolate its processes from anything that might otherwise happen on the main form. Once these processes complete, you 2007-06-23 开发应用 bill 国外 delphi Making Forms Work /html/Database/image/20070623/109.html In just about every Delphi application, we use forms to present and retrieve information from users. Delphi arms us with a rich array of visual tools for creating forms and determining their properties and behaviour. We can set them up at design ti 2007-06-23 开发应用 bill 国外 delphi hint /html/Database/image/20070623/108.html Often, when a user starts using your new program, he needs assistance to step him through "how-to" do different operations. As experience grows, less structured help is required. Quick and appropriate information can be helpful. So - where can this 2007-06-23 开发应用 bill 国外 delphi 使用Application.ProcessMessages /html/Database/image/20070623/107.html ProgressBar1.Max := Table1.RecordCount; ProgressBar1.Position := 0; Button1.Enabled := False; try Table1.First; while not Table1.EOF do begin Sleep(50); // Just to slow this down. ProgressBar1.Position := Prog 2007-06-23 开发应用 bill 国外 delphi 使用注册表 /html/Database/image/20070623/105.html The Registry is a database used to store settings and options for the 32 bit versions of Microsoft Windows; including Windows 95, 98 and NT. It contains information and settings for hardware, software, users, and preferences of the PC. Whenever a use 2007-06-23 开发应用 bill 国外 delphi MTS组件——从理论到实践 /html/Database/image/20070622/61.html 简述 ·MTS是一种中间层COM组件宿主环境 ·中间层组件应当是无状态的 ·依靠无状态模式，MTS可以缓冲资源，在客户端之间共享组件 ·COM和MTS组合起来，进化成为COM+ ·利用类和向导，Delphi简化了MTS组件的创建 ·从ActiveX类库入手--MTS组件必 2007-06-22 开发应用 bill 站内 delphi 字符相似性函数 /html/Database/image/20070622/60.html SOUNDEX(char_expr) 比较两个字符串的相似性后返回一个四位数代码。 DIFFERENCE(char_expr1,char_expr2) 比较两个字符串，返回值从0到4，4为最优匹配。 Delphi没有可用的函数，我写了一个： function MaxMatchStr(DestStr:String;Strs:array of String):String; va 2007-06-22 开发应用 bill 站内 delphi 使用SQL字段模糊查询 /html/Database/image/20070622/59.html Delphi作为一个强大的数据库应用开发工具的一个重要标志，就是支持SQL编程。在实际的过程中，经常需要对某些字段进行模糊查询。如对“姓名”字段进行查询，当输入“王”时，能自动地将王姓的所有记录列出来。其实，通过结合SQL和Delphi的特点，就能很容易地完成这个功能 2007-06-22 开发应用 bill 站内 delphi 利用临时表加快查询 /html/Database/image/20070622/58.html select * from table1 inner join table2 on table1.field=table2.field 有时这个查询很快就完成了，但却在返回结果的时候花费了大量时间. 我发现如果我把第一个查询的结果插入到一个临时表中时，情况就大不一样了，改变后的查询如下 2007-06-22 开发应用 bill 站内 delphi 怎样发布基于Microsoft SQL Server的程序 /html/Database/image/20070622/57.html 很多朋友在编写完成基于SQLServer的程序后对发布程序感到头疼,因为仅仅发布应用程序和BDE是不够的,必须要安装SQLServer Client软件,难道还要提供一张SQLServer的光盘?下面jojo为大家介绍一个解决之道: 1.准备一份Install Shield Express,最好是2.01以上的版 2007-06-22 开发应用 jojo 站内 delphi Delphi5不能显示和处理Sql Server表字段内容问题解决方法 /html/Database/image/20070622/56.html 关于nvarchar的问题，是因为Microsoft 在Sql 2000 中新增加的字段，而Microsoft 宣布不在支持DB-Libary, 而Delphi使用的BDE刚好就是使用了DB-Libary，所以如果使用BDE就不支持Sql 2000 中所有的新特性。 2007-06-22 开发应用 bill 站内 delphi 提高CS应用程序一些性能的方法 /html/Database/image/20070622/55.html 当创建触发器linetotal后, 应用开发人员在编写应用程序时就不需考虑保持total列为最新值的问题,而且网络数据库上所有应用都会因此受益。 3.利用过程和包优化性能这里主要讨论如何利用完整性约束和数据库触发器把应用逻辑移到数据库服务器中执行以便减少网络I/O 2007-06-22 开发应用 bill 站内 delphi 开发网络数据库应用 /html/Database/image/20070622/54.html 深受编程人员的欢迎。Delphi 中提供了数据库引擎 BDE(Borland Database Engine)，并内含众多的数据库调用构件，为编程人员开发客户/服务器应用程序提供了方便。通常情况下，利用 Delphi 开发数据库应用程序，可以使用TTable、TDataSource、TDBEdit、TDBNavigator等构件 2007-06-22 开发应用 bill 站内 delphi 运行时执行所有Interbase命令的Interbase 对象 /html/Database/image/20070622/53.html 如果应用程序使用Interbase数据库，数据库和全部所需的对象如：如函数，存储过程等必须在运行之前创建。有一部分命令如：改变管理员的用户名和密码必须通过Interbase的Server manager或Interbase的命令行工具。通过在项目中包含此单元，你可以执行 2007-06-22 开发应用 bill 站内 delphi 在Oracle存储过程中得到数据库 /html/Database/image/20070622/52.html 方法是使用存贮过程。此存贮过程必须以游标作为第一个参数。后面可以跟上其它参数。此游标须是 IN/OUT 型的。你可以使用一个通用游标类型，并将此类型定义在一个 package 中。 2007-06-22 开发应用秩名笨鱼技术网 delphi 连接Interbase /html/Database/image/20070622/51.html 打开控制面板上的32位ODBC数据源，创建新数据源，在列表框中选择InterBase Server的ODBC驱动程序-InterBase 5.X Driver by Visigenic(*.gdb)。在InterBase ODBC Configuration对话框中做如下设置： 2007-06-22 开发应用 bill 站内 delphi InterBase 对两个表进行Union操作 /html/Database/image/20070622/50.html create database "a.gdb" user "sysdba" password "masterkey"; create table table1 (f1 char(5) not null, f2 char(5) not null); create table table2 (f1 char(5) not null, f2 char(5) not null); commit; 2007-06-22 开发应用 bill 站内 delphi 在Wise制作的安装程序中嵌入Interbase安装(下) /html/Database/image/20070622/49.html var InfoSize,puLen : DWord; Pt,InfoPtr : Pointer; begin InfoSize := GetFileVersionInfoSize(PChar(filename),puLen); fillchar(VerBlk,sizeof(VS_FIXEDFILEINFO),0); if InfoSize > 0 then begin GetMem(Pt,InfoSize); GetFi 2007-06-22 开发应用 bill 站内 delphi 在Wise制作的安装程序中嵌入Interbase安装(上) /html/Database/image/20070622/48.html GetVariable(DLLParams,'IBOPTIONS',IBOPTIONS); IBWiseInstall.WindowHandle := DLLParams.hMainWnd; IBWiseInstall.IBInstallOptions := IBOptionsFromString(IBOPTIONS); IBWiseInstall.Silent := (pos('S',IBInstallMode) > 0); IBWiseIn 2007-06-22 开发应用 bill 站内 delphi SQLSERVER添加二进制数据 /html/Database/image/20070622/47.html stringstream1 := TStringStream.create(''); bmp1.savetostream(stringstream1); query1.params[1].asblob := stringstream1.datastring; jpeg1.savetostream(stringstream1); query1.params[2].asblob := stringstream1.datastring; query1.executesql; strin 2007-06-22 开发应用 bill 站内 delphi 用ADO对象存取ODBC数据库 /html/Database/image/20070622/46.html 该对象用于与ODBC数据库建立连接，所有对数据库的操作均通过该连接进行．数据库连接对象ADODB.Connection的作用象Delphi中的TDatabase对象．建立一个连接对象的方法为(AConnection为Variant类型变量)： AConnection:=CreateOleObject('ADODB.Connection') 2007-06-22 开发应用 bill 站内 delphi 获取表与存储过程信息 /html/Database/image/20070622/45.html boolSystemTables := True; yourADOConnection.GetTableNames(yourListBox.Items, boolSystemTables); yourADOConnection.GetProcedureNames((yourListBox.Items); 2007-06-22 开发应用 bill 站内 delphi MDB数据库压缩方法 /html/Database/image/20070622/44.html 虽然说MDB数据库功能不是很强大，但时由于在WIN x系统中已有缺省的驱动程序，所以不用另外像SQL，SYBASE一样安装一个管理驱动，而且携带方便，很多的小应用程序或网站还是采用MDB数据库。经常操作MDB数据时，就会经常碰到要对数据进行压缩，下面的我在网上找到和自己 2007-06-22 开发应用 bill 站内 delphi 添加ODBC System DSN /html/Database/image/20070622/43.html 下面这个例子显示了如何加载实现了ODBC 管理功能的DLL(odbccp32.dll)来创建一个Access MDB文件和指向它的ODBC DSN。注意：这里假设DLL和MDB都在当前目录下。同时，"CREATE_DB"的调用是Access（MS Jet引擎)的专有调用，类似的还有COMPACT_DB和REPAIR_DB等。 const 2007-06-22 开发应用 bill 站内 delphi 调出连接串编辑对话框 /html/Database/image/20070622/42.html 当发布一个使用 ADO 连接的应用程序时，开发者有时需要在应用程序里设置 ADO 的连接串。ADO 连接串既长又复杂。我常将他们存贮在注册表中。但是，假如我需要生成一个新的串，困难出现了。从前我只好运行 Delphi，通过它的 IDE，运行 ADO 连接串的属性编辑器来建立。现 2007-06-22 开发应用 bill 站内 delphi 获得一个ADO连接数据库中的 table 列表 /html/Database/image/20070622/41.html 要取得 ADO 中已经存在的 tables 的列表，可以通过调用 TADOConnection 的 GetTableNames 方法，示范： 2007-06-22 开发应用 bill 站内 delphi COM中分配内存的注意事项 /html/Database/image/20070621/11.html 我发现DELPHI的内存分配和释放函数GetMem和FreeMem最好不要在COM组件的编写过程中使用否则可能会产生错误. 事情的经历是这样的,由于工作需要,要将一个VC写的DLL用DELPHI封装成为COM组件,在COM 中我需要分配一些内存然后传给VC写的这个DLL由他款充后然后再由我使用. 就 2007-06-21 开发应用苏华笨鱼技术网