- 博客(24)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 不通过扩展名判断图像文件格式
<br /> 编制一个小程序，需要判断图像文件格式。从网上搜索到，文件头第1个字节：１、$00 Icon；２、$42 Bmp；３、$FF JPEG 。据此进行判断。<br /> <br /> 此外，Jpeg文件的格式是以$FF $D8开头的，以$FF $D9结尾。但是有时候也并不一定以$FF $D9结尾，因为一般Jpeg解读代码读到$FF $D9的时候就终止解读了，但文件并不一定非要结束，可以继续有内容。有的Jpeg文件会在文件末尾加入额外内容，作为隐藏内容藏在文件中。就是所云的图片中隐藏的秘密。<br
2011-01-04 21:41:00
1395
1
转载 DELPHI 常用虚拟键：VK_
<br /> <br />常数名称 十六进制值 十进制值 对应按键<br />VK_LBUTTON 01 1 鼠标的左键<br />VK_RBUTTON 02 2 鼠标的右键<br />VK-CANCEL 03 3
2010-12-27 10:15:00
6908
原创 无法为更新定位行。一些值可能已在最后一次读取后已更改
<br />DELPHI中新插入一条记录,紧接着删除该记录,提示"无法为更新定位行。一些值可能已在最后一次读取后已更改" 引发一个EOleException错误。<br /> <br /> 经查，为表未设置主键缘故。
2010-10-11 17:15:00
851
转载 将应用程序11M内存占用，降至500K
<br />好多天没有写BLog了，最近解决了一个问题-减少内存占用。不过是有条件的，只能在WinXp,Win2K中应用此方法，不显示主窗体一直运行的程序最佳。以前程序占用11M内存，我用动态创建窗口的方法只能减少不到100K，应用此方法后内存占用只有496K。把下面的过程放到一个Timer中，每隔一段时间执行一次，如5秒。<br />{<br />************************************<br />* Clear Memory<br />* From Muse2008<br
2010-10-02 21:01:00
542
转载 浅谈控件(组件)制作方法一（附带一delphi导出数据到excel的组件实例）
<br />从99年学习delphi开始，我就被它的快速开发迷上了，那时候刚接触编程，对可视化开发特别来劲，原因嘛，不外乎是比C更快的实现啦，这几年来，从delphi的C/S到三层B/S,大大小小也写过一些软件，自认为这delphi也就这么些功能吧，自从最近偶得一本Com本质论,研究了一下VCL源码，才发现它真的神通广大（我也不知道用什么词来形容），最近有些许突破，就在此于大家分享，有不对之处还请指点一二。<br />说白了，组件只包括二类成员： 属性和方法(我所说的方法包括了事件)<br />分属于四
2010-08-28 22:01:00
775
转载 Delphi制作数据感知控件之浮想联翩
<br />王维康 编写<br /> 知识点<br /> <br />本文共有6个关于控件的知识点：<br /> <br />1、基本控件的制作；2、感知属性的添加；3、关联控件的销毁处理；<br /> <br />4、事件方法的赋值； 5、属性页的制作； 6、组件包设计思想<br /> <br /> <br /> <br />关于制作感知控件的文章有不少，但涉及的内容大都比较单一，读者只能依照文章的陈述按部就班地操作，无法很好的理解控件的制作机制。本文试图通过讲解一个控件的制作流程来着重阐述制作感知控件
2010-08-28 21:46:00
647
转载 树型表结构的查询
<br />connect by 是结构化查询中用到的，其基本语法是： <br /> select ... from tablename start by cond1 <br /> connect by cond2 <br /> where cond3; <br /> 简单说来是将一个树状结构存储在一张表里，比如一个表中存在两个字段: <br /> id,parentid那么通过表示每一条记录的parent是谁，就可以形成一个树状结构
2010-08-25 15:33:00
825
转载 delp控制Word
我将我的商用《旅行社管理系统》的 发团通知 部分奉献给您，望对您有所帮助。procedure TFrmMain.N327Click(Sender: TObject);varFWord :Variant;FDoc :Variant;strSQL :string;begin//首先创造对象,如果出现异常就做出提示try FWord := CreateOleObject('Word.Application'); //WOrd程序的执行是否可见，值为false时，程序在后台运
2010-08-01 23:48:00
474
转载 delphi操作word
delphi操作word<br />一、Delphi程序启动Word<br />采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为：<br />首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序，如果存在，<br />则直接连接，如果没有Word程序，则使用CreateOleObject('Word.Application')启动Word二、Delphi程序新建Word文稿<br />格式：WordDo
2010-08-01 23:28:00
634
原创 常用KEY值
<br />常用的, <br />Backspace-> 8 <br />Tab-> 9 <br />Return-> 13 <br />Pause-> 19 <br />CapsLock-> 20 <br />Esc-> 27 <br />Space-> 32 <br />PageUp-> 33 <br />PageDown-> 34 <br />End-> 35 <br />Home-> 36 <br />LeftArrow-> 37 <br />UpArrow-> 38 <br />RightArro
2010-07-31 18:36:00
590
原创 汉化数据导航条
<br />在表单的create事件写这段代码<br /><br /><br />var<br /> i:integer;<br />begin<br /> for I := 0 to DBNavigator1.ComponentCount - 1 do<br /> if DBNavigator1.Components[I] is TNavButton then begin<br /> case TNavButton(DBNavigator1.Components[I]).Index of
2010-07-31 18:07:00
329
原创 Delphi对Word的控制。
一、创建Word:function createWord(s_modelfilename: string): variant;var WordApp: Variant;begin if not FileExists(s_modelfilename) then begin Showmsg('未指定模板，无法打印！' + s_modelfilename, 16); exit; end; try WordApp := GetActiveOleObjec
2010-07-30 11:05:00
1419
原创 EXCEL的操控框架
1、声明变量 ExcelApp : OleVariant;2、创建对象 ExcelApp:=createoleobject('Excel.application');3、设置属性 ExcelApp.WorkBooks.Open(FFileName); ExcelApp.WorkSheets[1].Activate; ExcelApp.Visible := false;4、操作对象 showmessage(ExcelApp.Cells[1,1].
2010-07-28 18:36:00
377
转载 EditPlus 使用技巧集萃
<br /><br />EditPlus 使用技巧集萃<br /><br /><br />【1】正则表达式应用——替换指定内容到行尾<br />原始文本如下面两行<br />abc aaaaa<br />123 abc 444<br /><br />希望每次遇到“abc”，则替换“abc”以及其后到行尾的内容为“abc efg”<br />即上面的文本最终替换为：<br />abc efg<br />123 abc efg<br /><br />解决：<br />① 在替换对话框，查找内容里输入“abc.*
2010-07-28 09:42:00
289
转载 PB对EXCEL的操作！
Ole_object.Workbooks.add//新建一个Excel文件 Ole_object.Workbooks.Open( "FileName ")//打开一个已存在Excel文件 Ole_object.ActiveWorkBook.Sheets( "SheetName ").Select//选择文件中一个工作表 Ole_object.Application.Run( "MacroName
2009-08-15 18:03:00
1628
转载 怎样在程序中动态加BDE别名
对于BDE会话期对象来说，BDE别名特别重要，许多方法都需要传递一个数据库的别名作为参数。TSession提供了管理BDE别名的功能。 但是作者往往等到要发布程序时才发现，你的程序由于找不到别名而无法运行，必须在一台已经装了BDE管理程序的机上才能用，你一定非常失望。不要紧，只要在程序中加入以下语句，你的程序就又可以执行。 AddAlias用于为Paradox、dBase或文本创建
2009-08-13 15:57:00
883
转载 检测、创建BD库别名的方法。
<br /> 对于BDE会话期对象来说，BDE别名特别重要，许多方法都需要传递一个数据库的别名作为参数。TSession提供了管理BDE别名的功能。<br /> 但是作者往往等到要发布程序时才发现，你的程序由于找不到别名而无法运行，必须在一台已经装了BDE管理程序的机上才能用，你一定非常失望。不要紧，只要在程序中加入以下语句，你的程序就又可以执行。<br /> AddAlias用于为Paradox、dBase或文本创建别名，不需要连接参数，只需指定一个路径和默认的驱动程序。<br /> AddSta
2009-08-13 15:30:00
735
转载 载excel操作大全：
转载excel操作大全：powerbuilder操作excel命令大全(例子的有些地方不对！)2006-12-04 16:431．创建Excel对象 eole=CREATEOBJECT(′Excel.application′) 2．添加新工作簿 eole.Workbooks.add 3．设置第3个工作表为激活工作表 eole.Worksheets(″sheet3″).Acti
2009-08-10 23:20:00
1805
原创 我的SQL语句学习记录
1、使用distinct的注意事项【 ORA-01791:不是SElECTed表达式】select DISTINCT G.XM FROM B01 B,A02 A,GBZHXXJ G WHERE A.A01B=B.B11 AND G.ID=A.A00 AND CCBM>=010201 AND G.BS=1 ORDER BY B.CCBM,A.A25; 总是提示：“ORA-01791
2009-08-10 14:54:00
404
转载 在运行中怎样刷新datawindow中的DropDownDW？
在运行中怎样刷新datawindow中的DropDownDW？DataWindowChild state_childinteger rtncodertncode = dw_1.GetChild(’ emp_state’， state_child)IF rtncode = -1 THEN MessageBox("Error"， "Not a DataWindowChild")//
2009-08-09 15:15:00
828
转载 ORACLE中CASE的用法
CASE表达式可以在SQL中实现if-then-else型的逻辑，而不必使用PL/SQL。CASE的工作方式与DECODE()类似，但应该使用CASE,因为它与ANSI兼容。CASE有两种表达式:1. 简单CASE表达式,使用表达式确定返回值.语法:CASE search_expressionWHEN expression1 THEN result1WHEN expressio
2009-08-08 15:09:00
9006
转载 能够处理任何数据库字段的Panel
unit DBPanel;interfaceuses windows, messages, sysutils, classes,graphics, controls, forms, dialogs, extctrls, dbctrls, stdctrls, db;type TDBPanel = class(tpanel) private {
2009-08-05 10:30:00
495
转载 数据窗口控件ItemError事件中必需的编程
数据窗口控件ItemError事件中必需的编程在数据窗口中录入数据时，如果输入错误，给本来没有内容的单元输入了数据，就应该删除。但是，删除后的内容自动变为， 如果字段的类型是字符类型，则不会有错误产生，如果是其它类型的，则会产生校验错误，并显示错误提示，并且不允许焦点切换。下面这段程序就是解决该问题 的，该程序是通用程序，并且也是数据窗口ItemError事件中必需的程序。 String
2009-08-03 09:18:00
999
DELPHI全掌握.chm
2010-08-30
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人