Delphi - 随笔分类 - sunjun0427

delphi第三方控件安装方法

摘要：不是由BORLAND提供的组件叫第三方组件：安装方法：就目前常见的各种形式的组件的安装方法介绍一下。　1　只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此组件就不能再使用了，当然有的作者给出了几种版本的DCU文件，用户根据需要选择使用。这样的组件的安装方法是：在Component菜单中，选择install component，在对话框 "into existing packa 阅读全文

posted @ 2011-12-07 17:11 sunjun0427 阅读(595) 评论(0) 推荐(0)

多线程idhttp下载文件源代码（转）

摘要：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,StdCtrls,IdComponent,IdTCPConnection,IdTCPClient,IdHTTP,IdBaseComponent,IdAntiFreezeBase,IdAntiFreeze,IdThreadComponent,IdFTP,IdException;typeMyException1=class(exception)//自定义的异常类 end;typeTThr 阅读全文

posted @ 2011-04-08 11:50 sunjun0427 阅读(931) 评论(0) 推荐(0)

Delphi启动/停止Windows服务,启动类型修改为"自动"

摘要：unit U_StartServices;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, WinSVC, StdCtrls;type TForm1 = class(TForm) btn_StartServices: TButton; btn_StopServices: TButton; procedure btn_StartServicesClick(Sender: TObject); procedure btn_StopServicesClick 阅读全文

posted @ 2011-04-02 16:44 sunjun0427 阅读(1543) 评论(0) 推荐(0)

【转载】Delphi获取与设置系统时间格式(长日期与短日期)

摘要：Delphi获得与设置系统时间格式在Delphi中，特别是在写管理系统软件时，经常要用到 FormatDateTime 以将 TDateTime 格式的日期时间转换成字符串形式的值显示或保存起来，或者用 StrToDateTime将字符串形式的日期时间转换成 TDateTime 然后再做其他操作。在进行时间或日期的转换时，会使用系统当前设定的时间日期格式。而如果时间日期格式与字符串中的表示方式不相符，会使转换过程失败。例如当前短日期格式设定为'yyyy/MM/dd'，而要转为 '2006-10-20'这样的字符串为日期，就会报错，说这不是一个有效的日期。所以在进行转换前，要确保系统的日期时间格阅读全文

posted @ 2011-01-04 11:03 sunjun0427 阅读(3862) 评论(0) 推荐(0)

WideString 还是 AnsiString ？谈谈字符编码(转)

摘要：本来这一篇是讲关于XML字符编码的，我觉得写着写着好像与XML的关系不大了，就改了标题。所以，看的时候如果感觉到摸不到头脑，那就对了，如果感觉和你的认识不一样，欢迎批评指正。这里还有一个字符编码的问题。字符编码在Delphi7中已经得到了很大提高。 Delphi7自己的IDE虽然不能读取Unicode编码的源代码文件，但编译器已经支持 AnsiString和WideString的转换。也就是说，只要定义的时候定义WideString，那么在后面直接给他赋值时，AnsiString自动转换为WideString，反之亦然。这样有好处也有坏处，好处是在快速开发中，不需要考虑更多的字符转换问题，阅读全文

posted @ 2010-12-30 10:06 sunjun0427 阅读(4018) 评论(0) 推荐(1)

TAdvColumnGrid documentation (v1.05) TAdvStringGrid 一些官方功能的說明

摘要：TAdvColumnGrid documentation (v1.05) © by TMS softwareInfo - Procedures - Properties - Events - Main page InfoTAdvColumnGrid is now released as v1.05. We want to thank all users for their input, either reporting problems or giving usefull suggestions for enhancements. We always look forward to hear 阅读全文

posted @ 2010-12-21 23:29 sunjun0427 阅读(9679) 评论(0) 推荐(0)

TreeView 使用收藏

摘要：基本信息: TreeView 是一个显示树型结构的控件,每一个节点都是一个新类,使用具有代表性每个节点都有四个值: TEXT:显示文字 Image Index:显示图形序号 Selected Index: State Index:(1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips)增加根目录下的节点:(节点)var CatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象begin TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上 { 在根标题下建立一个新的子标题 } CatNode := TvwTips.Items 阅读全文

posted @ 2010-12-20 12:32 sunjun0427 阅读(632) 评论(1) 推荐(0)

Delphi中预编译指令(转)

摘要：《Delphi下深入Windows核心编程》（附录A Delphi编译指令说明）Delphi快速高小的编译器主要来自Object PASCAL的严谨，使用Delphi随时都在与编译器交流，大部分情况下不需要干涉编译器的运行，但是有时也需要对编译器进行必要的设置。**********************************************************************************************A.1 使用编译设置对话框编译器的编译指令是用于指定编译器对项目编译过程的动作和行为。可以通过[Project]-[Options]-[Compl 阅读全文

posted @ 2010-12-20 12:30 sunjun0427 阅读(616) 评论(0) 推荐(0)

Delphi 获取系统路径(C:\Windows\System32)

摘要：use shellapiprocedure TForm1.Button1Click(Sender: TObject); var adr: array[0..MAX_PATH] of Char; begin GetSystemDirectory(adr,MAX_PATH); //获取SYSTEM路径//GetWindowsDirectory(adr,MAX_PATH); //获取WINDOWSM路径 ShowMessage(adr); //显示C:\Windows\System32 end; 阅读全文

posted @ 2010-12-20 11:30 sunjun0427 阅读(2426) 评论(2) 推荐(0)

Delphi常用属性和事件

摘要：DELPHI常见属性说明ALIGN设置组件对齐（同其父容器）方式BORDERSTYLE设置组件边框形状CAPTION设置组件标题CTL3D设置组件边框是否为3D模式，若BORDERSTYLE设置为BSNONE则此属性无效COLOR设定组件背景颜色CURSOR设定鼠标经过组件时光标所显示的形状ENABLED设定组件是否能使用，当设为FALSE时组件会呈灰色FONT设定组件内文字的字型、字体大小、颜色等HEIGHT设定组件高度HELPCONTENT用来为帮助说明文件中的索引值建立关联LEFT设定组件与父组件左边框间的距离POPUPMENU设定鼠标右键（弹出式）快捷菜单TABORDER设定组件在按下阅读全文

posted @ 2010-12-17 23:27 sunjun0427 阅读(542) 评论(0) 推荐(0)

vc delphi 回调函数具体说明和实例与分析 - 转

摘要：回调函数是一个很有用，也很重要的概念。　　当发生某种事件时，系统或其他函数将会自动调用你定义的一段函数。回调函数在windows编程使用的场合很多，比如Hook回调函数：MouseProc,GetMsgProc以及EnumWindows,DrawState的回调函数等等，还有很多系统级的回调过程。本文不准备介绍这些函数和过程，而是谈谈实现自己的回调函数的一些经验。之所以产生使用回调函数这个想法，是因为现在使用VC和Delphi混合编程，用VC写的一个DLL程序进行一些时间比较长的异步工作，工作完成之后，需要通知使用DLL的应用程序：某些事件已经完成,请处理事件的后续部分。开始想过使用同步对象阅读全文

posted @ 2010-12-17 23:20 sunjun0427 阅读(1025) 评论(0) 推荐(0)

优秀的菜单控件DevExpress Bar使用初探

摘要：优秀的菜单控件DevExpress Bar使用初探前一阵子在做项目时，用到了Develper Experss Inc. 的DevExpress Bar控件，感觉它真是一个好东西，可以完全取代Delphi现有的Menu控件和ToolBar控件，其功能也是第三方控件中的佼佼者。故在此写一点点自己的所得和体会，希望能够对各位朋友有所帮助。DevExpress Bar安装后，控件栏新添了ExpressBars页：我们使用的主要是第二个dxBarManager控件。这里，以建立一个含有菜单和快捷工具栏的应用程序为例。新建工程，将其放置到Form1上如图：双击该控件，出现设置窗口（如下图）。所有的设置均是阅读全文

posted @ 2010-12-16 14:04 sunjun0427 阅读(1777) 评论(0) 推荐(0)

Delphi2006连接Mysql5.1

摘要：这两天抽空研究了下Delphi2006如何连接Mysql5.1，过于追求新版本有时就会遇到此类问题，厂商实现不完善，有地方没实现或没考虑到的，直接用它的产品就会出问题。baidu搜了搜国内网站，好像还没此类文章，可能是没多少人在用Delphi2006了，呵呵。用google搜，还是老外nb啊，找到了不少连接的方法，有几种都是商业产品，例如mydac、dbx等，看看价格，还都不便宜，那个价人民币我都嫌贵，何况还是dollars。发财的机会还是很多的，趁厂商自己还没做开发个这样的数据库连接驱动也能赚一笔。大致找到了如下几种免费的办法，总结一下：测试环境： WinXP＋SP2 Delphi2006＋阅读全文

posted @ 2010-12-16 13:53 sunjun0427 阅读(1778) 评论(0) 推荐(0)

DBGridEh导出功能详解(SaveDBGridEhToExportFile说明)

摘要：DBGridEh导出功能详解(SaveDBGridEhToExportFile说明)---　　经常有用户要求数据导出，对此，我们一直用最原始的办法，打开查询，读取每个字段的数据，逐条的的写入文件。如下：procedure TForm10.prExpData(pMode:Byte);Var pFPath:String; pFName:String; //Exp Name of prefix pFObject:string; pMyFile:TextFile; pStr:string; i:integer;begin pFObject:='c:\Exp_Sample.csv'; AssignFil 阅读全文

posted @ 2010-12-16 13:38 sunjun0427 阅读(1968) 评论(1) 推荐(0)

当前最全的TAdvStringGrid控件属性事件介绍和使用方法(AdvStringGrid使用技巧/Cells)

摘要：当前最全的TAdvStringGrid控件属性事件介绍和使用方法(AdvStringGrid使用技巧/Cells)---作者：TTT日期：20090306--- 　　TAdvStringGrid是Delphi编程中常用的控件，经常用于统计数据和设计比较复杂的表格。控件功能很强大，但相应的使用也很复杂!　　以下是我整理出的常用技巧，有一部分是我自己的经验，有一部分是网上搜的别人的总结，有一部分整理了，有一部分没有整理；有一部分测试了，有一部分没有经过测试~~~呵呵，但都是我手工编辑的啊~~。(部分示例过程是用于创建和设置动态Cells的过程，如果不理解请参考我总结的另一篇文章完美动态TAdvS 阅读全文

posted @ 2010-12-16 13:37 sunjun0427 阅读(8384) 评论(1) 推荐(1)

Delphi获取机器名和IP(包括内网和外网)地址的方法

摘要：Delphi获取机器名和IP地址的方法---{获取本机机名}function GetLocalName():String; var CNameBuffer : PChar; CLen : ^DWord;begin GetMem(CNameBuffer,255); New(CLen); CLen^:= 255; if GetComputerName(CNameBuffer,CLen^) then result:=CNameBuffer else result:=''; FreeMem(CNameBuffer,255); Dispose(CLen);end;{根据机名获取IP，要添加使用单元：Wi 阅读全文

posted @ 2010-12-16 13:33 sunjun0427 阅读(8496) 评论(0) 推荐(0)

Delphi判断全角字符方法

摘要：Delphi中判断是否含有全角字符方法：//判断全角限制字符ifLength(pStr)Length(WideString(pStr))thenbeginResult:='Full-widthcharacters';exit;end;说明：Length('汉字')=4Length(WideString('汉字'))=2　　－－本文来源于[TTT BLOG]：http://www.taoyoyo.net/ttt/post/190.html (提示：转载时请务必保留版权信息或者注明来源。) 阅读全文

posted @ 2010-12-16 13:32 sunjun0427 阅读(622) 评论(1) 推荐(0)

Delphi调用程序版本信息的方法

摘要：有时我们需要在程序运行是知道当前是什么版本，当然查程序文件的属性也只可以看到，但这样太麻烦了。　　可以用以下方法调用：//要在uses中添加引用单元：Version;procedure TForm1.FormSet;varpVer : tVersion;begin pVer := Tversion.Create(ParamStr(0)); x_pVerNo := pVer.FileVersion; x_pProgramName := pVer.InternalName; x_pComments := pVer.FileDescription; pVer.Free;end;　　－－本文来源于[T 阅读全文

posted @ 2010-12-16 13:31 sunjun0427 阅读(397) 评论(0) 推荐(0)

Delphi调用外部程序函数：WinExec() 和ShellExecute详解

摘要：1，WinExec()：　　WinExec主要运行EXE文件，不能运行其他类型的文件。不用引用特别单元。　　原型：UINT WinExec(exePath,ShowCmd)　　示例，我想要用记事本打开"C:\HDC.TXT"，以正常方式运行：WinExec(pChar('notepad c:\taoyoyo.txt'),SW_SHOWNORMAL);　　参数说明：　　--xePath：命令行参数。注意，要用pChar转化一下。　　--ShowCmd：外部程序的运行方式。其取值如下：　　----SW_HIDE 隐藏　　----SW_MAXIMIZE 最大化　　----SW_MINIMIZE 最小阅读全文

posted @ 2010-12-16 13:30 sunjun0427 阅读(11893) 评论(0) 推荐(0)

动态AdvStringGrid完美示例 (AdvStringGrid使用技巧/Cells)

摘要：此窗体，只需要简单准备如下，即可运行： 1，添加一个TAdvStringGrid，并命名为strGrid1。 2，设置：TAdvStringGrid--option--goEditing=true TAdvStringGrid--enableGraphics=true 3，修改Form名称为form1，或替换以下代码中的form1为当前窗体的名字。 4，将以下代码覆盖原来的代码。 5，关联以下过程(只需要在窗体和strGrid1控件属性-事件页中双击相关项即可完成关联。) FormCreate FormShow strGrid1CanEditCell strGrid1GetAlignm 阅读全文

posted @ 2010-12-16 13:28 sunjun0427 阅读(2077) 评论(0) 推荐(0)

随笔分类 - Delphi