01 2013 档案

Delphi用ADOQuery将图片存取ACCESS简单示例《转》
摘要：1.ACCESS数据表名test，字段id字符，字段photo为OLE2.在DELPHI窗体中添加ADOQuery1，OpenDialog1，Image1，Button1，Button2，Button3设置OpenDialog1的Filter为“JPEG文件(*.jpg;*.jpeg)|*.jpg;*.jpeg”设置Button1的Caption为“Open Image”设置Button2的Caption为“Save Image”设置Button3的Caption为“Show Image”代码如下：procedure TForm1.Button1Click(Sender: TObject);b 阅读全文
posted @ 2013-01-26 15:53 冰意 LceMeaning 阅读(3339) 评论(0) 推荐(0)
RegisterHotKey设置系统级热键《转》
摘要：BOOL RegisterHotKey( HWND hWnd, //响应该热键的窗口句柄 Int id, //该热键的唯一标识 UINT fsModifiers, //该热键的辅助按键 UINT vk //该热键的键值 ); 为了得到唯一标识，我们还将用到另一个API函数 ATOM GlobalAddAtom( LPCTSTR lpString //自己设定的一个字符串 ); 因为我们还要在程序退出的时候，消除这个热键， 所以需要声明一个全局变量： HotKeyId: Integer; 第一步： 在窗口的create事件中，加入以下代码 HotKeyId := GlobalAddAtom(‘M 阅读全文
posted @ 2013-01-26 15:47 冰意 LceMeaning 阅读(366) 评论(0) 推荐(0)
TCP/IP协议与UDP协议的区别《转》
摘要：TCP（Transmission Control Protocol，传输控制协议）是面向连接的协议，也就是说，在收发数据前，必须和对方建立可靠的连接。一个TCP连接必须要经过三次“对话”才能建立起来，其中的过程非常复杂，只简单的描述下这三次对话的简单过程：A--->B//主机A向主机B发出连接请求数据包：“我想给你发数据，可以吗？”，这是第一次对话；AB//主机A再发出一个数据包确认主机B的要求同步：“我现在就发，你接着吧！”，这是第三次对话。三次“对话”的目的是使数据包的发送和接收同步，经过三次“对话”之后，主机A才向主机B正式发送数据。详细点说就是：TCP接通连接要进行3次握手过程1 阅读全文
posted @ 2013-01-19 14:24 冰意 LceMeaning 阅读(906) 评论(0) 推荐(0)
一句话判断网络是否连接《转》
摘要：uses WinInet;procedure TForm1.Button1Click(Sender: TObject);begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接');end; 阅读全文
posted @ 2013-01-09 18:03 冰意 LceMeaning 阅读(198) 评论(0) 推荐(0)
Application.ProcessMessages《转》
摘要：//如果有这样一个循环, 是非常可怕的; 因为它完不了, 你得等着.procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin for i := 0 to MaxInt do begin Text := IntToStr(i); end;end;//即使这样也无济于事, 因为在循环期间你执行不了 Button2Clickvar b: Boolean;procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin b := True; for i . 阅读全文
posted @ 2013-01-09 17:44 冰意 LceMeaning 阅读(176) 评论(0) 推荐(0)
Delphi 的多线程已经非常易用了《转》
摘要：先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):{自定义方法: 在窗体上绘制...}procedure MyMethod;var i: Integer;begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end;end;{调用上面的自定义方法}procedure TForm1.Button1Click(Sender: TObject);begin MyMethod;end;修改为多线... 阅读全文
posted @ 2013-01-09 16:59 冰意 LceMeaning 阅读(225) 评论(0) 推荐(0)
类型转换函数《转》
摘要：函数功能Chr将一个有序数据转换为一个ANSI字符Ord将一个有序类型值转换为它的序号Round转换一个实型值为四舍五入后的整型值Trunc转换一个实型值为小数截断后的整型值Int返回浮点数的整数部分IntToStr将数值转换为字符串IntToHex将数值转换为十六进制数字符串StrToInt将字符串转换为一个整型数，如字符串不是一个合法的整型将引发异常StrToIntDef将字符串转换为一个整数，如字符串不合法返回一个缺省值Val将字符串转换为一个数字（传统Turbo Pascal例程用于向后兼容）Str将数字转换为格式化字符串（传统Turbo Pascal例程用于向后兼容）StrPas将零 阅读全文
posted @ 2013-01-09 16:43 冰意 LceMeaning 阅读(180) 评论(0) 推荐(0)
Delphi 编译错误信息表《转》
摘要：; not allowed before ELSEElSE前不允许有“;” clause not allowed in OLE automation section在OLE自动区段不允许“”子句 is not a type identifier不是类型标识符 not previously declared as a PROPERTY前面没有说明PROPERTYGOTO leads into or out of TRY statement GOTO进入或超出TRY语句的范围 clause expected, but found要求子句，但出现16-Bit fixup encountered .. 阅读全文
posted @ 2013-01-09 16:42 冰意 LceMeaning 阅读(249) 评论(0) 推荐(0)
让 Edit 只接受数字《转》
摘要：//方法1：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (Key in ['0'..'9']) then Key := Chr(0);end;//方法2：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (Byte(Key) in [48..57]) then // 0的 Ascii 是 48 Key := Chr(0);end;//方法3:procedu 阅读全文
posted @ 2013-01-09 16:32 冰意 LceMeaning 阅读(209) 评论(0) 推荐(0)
菜单的历史信息《转》
摘要：本例效果图:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus;type TForm1 = class(TForm) MainMenu1: TMainMenu; OpenDialog1: TOpenDialog; mniFile: TMenuItem; mniOpen: TMenuItem; N1: TMenuItem; mniExit: TMenuItem; proce... 阅读全文
posted @ 2013-01-09 15:56 冰意 LceMeaning 阅读(185) 评论(0) 推荐(0)
TMainMenu 类 - 快捷键的记录方式《转》
摘要：我们从 Form 的源码中看到, 指定的快捷键是一个数字, 譬如 Ctrl+A, 对应着数字: 16449其实这是一个 Word 类型的数字; 快捷键的参数是 TShortCut 类型的, 它定义在 Classes 单元的第92行(Delphi 2007):TShortCut = Low(Word)..High(Word);Menus 单元有两个函数: TextToShortCut、ShortCutToText, 可以互相转换它们.var w: Word; s: string;begin w := TextToShortCut('Ctrl+A'); ShowMessage(In 阅读全文
posted @ 2013-01-09 15:53 冰意 LceMeaning 阅读(210) 评论(0) 推荐(0)
TMainMenu 类 - 手动建立菜单 : 指定快捷键《转》
摘要：菜单项通过 ShortCut 属性来设定快捷键, ShortCut 是 TShortcut 类型的; TShortcut 是一个子界: 0..65535ShortCut 的所有可选值请参加列表:http://www.cnblogs.com/LceMeaning/archive/2013/01/09/2853071.html=========================================================================unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, . 阅读全文
posted @ 2013-01-09 15:50 冰意 LceMeaning 阅读(191) 评论(0) 推荐(0)
TMainMenu 类 - 所有可选的快捷键列表(ShortCut 的可选值)《转》
摘要：键值快捷键3Scroll Lock8BkSp9Tab12Num 513Enter16Shift17Ctrl18Alt20Caps Lock27Esc32Space33PgUp34PgDn35End36Home37Left38Up39Right40Down44Sys Req45Ins46Del48049150251352453554655756857965A66B67C68D69E70F71G72H73I74J75K76L77M78N79O80P81Q82R83S84T85U86V87W88X89Y90Z96Num 097Num 198Num 299Num 3100Num 4101Num 510 阅读全文
posted @ 2013-01-09 15:48 冰意 LceMeaning 阅读(450) 评论(0) 推荐(0)
ini 文件操作记要: 使用 TMemIniFile《转》
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click... 阅读全文
posted @ 2013-01-09 15:37 冰意 LceMeaning 阅读(296) 评论(0) 推荐(0)
ini 文件操作记要: 使用 TIniFile《转》
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; pr... 阅读全文
posted @ 2013-01-09 15:36 冰意 LceMeaning 阅读(223) 评论(0) 推荐(0)
一条语句复制整个目录《转》
摘要：使用的是 Delphi 2010 下 IOUtils 单元的 TDirectory.Copy 函数:1 uses IOUtils;2 3 procedure TForm1.Button1Click(Sender: TObject);4 const5 SourceDir = 'C:\Temp\Folder1'; { 源文件夹必须存在 }6 DestDir = 'C:\Temp\Folder2'; { 如果目标文件夹不存在, 程序会自动创建 }7 begin8 TDirectory.Copy(SourceDir, DestDir);9 end; 阅读全文
posted @ 2013-01-09 15:29 冰意 LceMeaning 阅读(210) 评论(0) 推荐(0)
多线程编程《转》
摘要：1-1多线程的基本概念WIN98/NT/2000/XP是个多任务操作系统，也就是：一个进程可以划分为多个线程，每个线程轮流占用CPU运行时间和资源，或者说，把CPU时间划成片，每个片分给不同的线程，这样，每个线程轮流的“挂起”和“唤醒”，由于时间片很小，给人的感觉是同时运行的。多线程带来如下好处：（自己阅读）1）避免瓶颈；2）并行操作；3）提高效率；在多线程中，通过优先级管理，可以使重要的程序优先操作，提高了任务管理的灵活性。另一方面，在多CPU系统中，可以把不同的线程在不同的CPU中执行，真正做到同时处理多任务（Win98只是模拟的，而Win/NT/2000是真正的多CPU同时操作）。多线程 阅读全文
posted @ 2013-01-09 15:06 冰意 LceMeaning 阅读(190) 评论(0) 推荐(0)
SQL查询语句使用详解《转》
摘要：一、简单查询简单的Transact-SQL查询只包括选择列表、FROM子句和WHERE子句。它们分别说明所查询列、查询的表或视图、以及搜索条件等。例如，下面的语句查询testtable表中姓名为“张三”的nickname字段和email字段。SELECTnickname,emailFROMtesttableWHEREname='张三'(一)选择列表选择列表(select_list)指出所查询列，它可以是一组列名列表、星号、表达式、变量(包括局部变量和全局变量)等构成。1、选择所有列例如，下面语句显示testtable表中所有列的数据：SELECT*FROMtesttable2、 阅读全文
posted @ 2013-01-09 15:03 冰意 LceMeaning 阅读(181) 评论(0) 推荐(0)
DELPHI 输入框框限制并方便用户输入《转》
摘要：防止用户误输入是软件开发的一项必不可少的工作，除才之外，还要为用户的使用提供最大方便。当然，我们可以利用或开发新的组件，以完成这些功能。但是，在团队开发中，每个成员都用自己认为不错的组件开发自己所承担的模块，会给软件的后期维护带来麻烦。交工的时候，项目负责人可不买你的帐。如果你用函数调用来完成这些功 阅读全文
posted @ 2013-01-09 15:01 冰意 LceMeaning 阅读(526) 评论(0) 推荐(0)