- 博客(36)
- 资源 (35)
- 收藏
- 关注
原创 MSComm控件使用
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SPComm, StdCtrls, OleCtrls, MSCommLib_TLB, Math;type TForm1 = class(TForm) MSCo
2009-10-22 13:24:00
948
原创 Excel文件导入MSSQL数据库
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, SMIBase, SMI2Cell, SMI2XLS, StdCtrls, ComObj, OleServer, ExcelXP, Grids,
2009-09-04 14:37:00
1692
2
转载 赤壁之战孙权拒曹--老板不是一般人
电影《赤壁》吴宇森拍得还是不错的,毕竟电影是娱乐为主,不能去较真。 其中孙权不敢打,周瑜让其打老虎来锤炼心智,最后,孙权一狠心,就决定要打了。这一幕哄小孩还说得过去,但作为成年人,这一段,还是按成人故事讲吧。 史实上,劝孙权敢于拒曹的不是周瑜,也不是诸葛亮,而是鲁肃。仅他一句话,就把问题给说明白了。说话,当初孙权开领导班子会议,讨论与曹操的对外关系问题,人家已经逼到门口了,是撕破脸
2009-09-02 14:04:00
1479
转载 AVI族函数的说明
http://blog.youkuaiyun.com/aoosang/archive/2005/11/16/531126.aspx 1AVIBuildFilter2AVIClearClipboard3AVIFileAddRef4AVIFileCreateStream5AVIFileEndRecord6AVIFileExit7AVIFileGetStream8AVIFileInfo9AVIFileIn
2009-08-28 14:16:00
893
转载 VC++实现AVI文件的合成和分解
http://www.zbitedu.com/?action-viewnews-itemid-3892AVI是音频视频交错(Audio Video Interleaved)的英文缩写,它是Microsoft公司开发的一种符合RIFF文件规范的数字音频与视频文件格式,原先用于Microsoft Video for Windows (简称VFW)环境,现在已被Windows 95/98、OS/2
2009-08-28 14:14:00
1110
3
原创 抓取摄像头图片
unit Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, VfW, Clipbrd, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Image1: TImage; B
2009-08-27 17:17:00
745
原创 JPEG转AVI
//avi.c#include "stdafx.h"#include "avi.h"#include #include #include // header flagsconst u32 AVIF_HASINDEX = 0x00000010; /* index at end of file */const u32 AVIF_MUSTUSEINDEX=0x00000020;co
2009-08-25 17:10:00
2914
转载 Ubuntu命令
sudo passwd root //激活root帐户sudo dpkg -i //安装deb文件 https://download2.vmware.com/software/wkst/VMware-workstation-6.5.2-156735.exe?HashKey=3231a4e7c701240ca47c068c0388edf1&ext=.exe&AuthKey=1246324
2009-06-30 16:05:00
443
转载 法语入门学习资料汇总
http://fr.hjenglish.com/page/56920/ http://realner.ner.gov.tw/list.php?linkdir=法語/法語教學(Reflets)-Mp3-Rm/rm-56kbs http://wwwner.ner.gov.tw/digital_archives/index.php?allfield=%B7%A8&check_search
2009-06-19 14:00:00
590
转载 GetTickCount函數
【函数名】GetTickCount【库名】kernel32【适用范围】95/98/ME/NT/2000/XP【VB声明】Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long【说明】 用于获取自windows启动以来经历的时间长度(毫秒)【返回值】 Long,以毫秒为单位的wi
2009-05-19 16:17:00
973
转载 Delphi小技巧杂记
//获取任务栏尺寸 procedure TForm1.Button1Click(Sender: TObject); var TaskList: HWnd; Bordered: TRect; begin TaskList := FindWindow(’Shell_TrayWnd’, nil); GetWindowRect(TaskList, Bordered); La
2009-05-19 11:02:00
3283
转载 EOutOfResources字符异常
近日,用Delphi编程时,遇到一个莫名其妙的异常:EOutOfResources,这是一个可以重复再现的异常。开始以为是程序中创建的对象太多,导致占用了过多的资源,引起了这个异常。于是在代码中将许多不必要创建的对象统统删减,对代码进行了彻底的大瘦身,谁知竟然毫无效果!此时才注意到提示中有一句:“EOutOfResources with message RichEdit line inser
2009-05-18 15:53:00
4774
2
转载 程序员的爱情
我能抽象出整个世界... 但是我不能抽象出你... 因为你在我心中是那么的具体... 所以我的世界并不完整... 我可以重载甚至覆盖这个世界里的任何一种方法... 但是我却不能重载对你的思念... 也许命中注定了 你在我的世界里永远的烙上了静态的属性... 而我不慎调用了爱你这个方法... 当我义无返顾的把自己作为参数传进这个方法时... 我才发现爱上你是一个死循环... 它不停的返回对你的思念压
2009-05-08 16:46:00
516
原创 hSem: HWND;
hSem: HWND; hSem := CreateSemaphore(nil, 0, 1, BeyondERP); if (hSem begin CloseHandle(hSem); MessageBox(0, pchar(程序有一个已经在运行), pchar(错误),mb_iconstop + mb_Ok); Exit; e
2009-05-05 08:02:00
628
原创 下载位置
http://61.dc.ftn.qq.com/ftn_handler/36e179f39b27a310eb27547b3c03332213fca0400473098a0f18c14922203ef9ac885136687c54bdbfd3e5b8b25fe820d177445c23ec8b799804e695574b29c8/PolyPic.rar?k=06623261a5d1c6996fddd
2009-05-04 00:19:00
414
原创 DeleteIfTooLarge
procedure DeleteIfTooLarge(AFileName: TFileName);Var FileStream : TFileStream; IsTooLarge : Boolean;begin if Not FileExists(AFileName) then exit; FileStream := TFileStream.Create(AFileName,fmOpe
2009-04-29 07:55:00
347
转载 Delphi判断文件大小
Delphi判断文件大小 Delphi自身提供了FileSize函数,例如: var f: file of Byte; size : Longint; begin AssignFile(f, f:/t.exe); Reset(f); size := FileSize(f); edit1.text := IntToStr
2009-04-28 17:04:00
1125
转载 Delphi编译指令说明
Delphi快速高小的编译器主要来自Object PASCAL的严谨,使用Delphi随时都在与编译器交流,大部分情况下不需要干涉编译器的运行,但是有时也需要对编译器进行必要的设置。 ********************************************************************************************** A.1 使用编译设
2009-04-28 17:03:00
497
原创 TDBEdit(Sender);
var FOJ :TDBEdit; QCBZ,QCBZ_,ShJ :Double;begin FOJ.Font.Color := clBlack; QCBZ := StrToFloat(QCBZh.Field.Value); QCBZ_ := StrToFloat(QCBZh_.Field.Value); FOJ:= TDBEdit(Sender); if FOJ
2009-04-27 08:02:00
589
原创 不允许超出范围
procedure TfrmOffice.toolResize(Sender: TObject);begin if Tool.Top if Tool.Height > Screen.Height then begin Tool.Top := 23; Tool.Left := 1; Tool.Height := Screen.Height - 23; end; if
2009-04-23 23:40:00
586
原创 动态创建Image和Panel
var S1,S2 : String; I : Integer; _Left, _Top, _Width, _Height : Integer; __Left, __Top, __Width, __Height : Integer;begin I := 0; _Left := 0; _Top := 0; _Width := 227; _Height := 200; __Left :=
2009-04-22 22:08:00
590
原创 消息机制
直接在回调里面,定义一个局部结构变量,将回调函数的参数赋值给这个结构的各个成员,然后sendmessage时,用WParm,或者LParam其中的一个,将这个结构的地址传过去就行了.第一个handle,就由你自己指定了.你希望哪个窗口处理这个消息,就传那个窗口的handle进去,至于form怎么处理消息,就象我之前给你说的那样在form的类中,加个消息响应的函数就行,private, protec
2009-03-31 23:04:00
342
原创 窗口等待
procedure ShowWaitWindow(TmpStr: string; Okay: Boolean);var Rect: TRect;begin if not Assigned(frm_Start) then begin if Okay then frm_Start := THintWindowEx.Create(Application) else Exit; end
2009-03-26 08:07:00
438
转载 Application.MessageBox详解
1. Text:要显示的讯息2. Caption:讯息视窗的标题列文字3. Flags:讯息旗标 3.1. 可指定讯息视窗上的图示 3.2. 可指定讯息视窗出现的按钮 3.3. 可指定预设Focus在哪一个按钮 3.4. 可指定是否 Modal 3.5. 其他引数说明:Text、Caption 引数为 PCahr 型态,字串型态的变数可用 PChar()
2009-03-06 08:51:00
435
转载 用Delphi从内存流中判断图片格式
利用内存流来判断文件的格式,其实判断文件的前几个字节就可以简单的判断这个文件是什么类型的文件,例如jpg文件 是 FFD8 (从低位到高位就要反过来 D8FF 下面都是一样)BMP文件 是 424D ---4D42其他的我就不一一列举了,想知道跟多文件类型分别是用什么字符作为文件的开头的话,下载个C32asm或者UE等这类16进制编辑器就可以看到了。procedure TForm1
2009-03-05 10:18:00
602
转载 delphi 连接MySQL数据库
由于在Delphi 7中并没有提供对应MySQL4.0以上版本的dbexpress驱动(虽然在Borland的CodeCentral中有相关的驱动下载,但我却使用不了,不知道是否是我的方法不对),所以在使用前先下载MySQL 3.23.x的驱动libmysql.dll,下载后的libmysql.dll请放在Delphi安装目录的bin文件夹或者系统目录下或您的程序的目录中,否则dbexpress将
2009-03-05 10:09:00
3493
转载 关于 Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
所谓"流", 就是一段数据或是一块内存;在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性: Size、Position.对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.在很多控件的使用中, 读取主要用 LoadFromStream; 写入主要用 SaveToStream. 举个例子: (建立新工
2009-03-05 10:09:00
985
原创 MySQL:无法远程登入MySQL Server
尝试用MySQL Adminstrator GUI Tool登入MySQL Server,Server却回复错误讯息:Host 60-248-32-13.HINET-IP.hinet.net is not allowed to connect to thisMySQL server这个是因为权限的问题,处理方式如下:shell>mysql --user=root -p输入密码mys
2009-03-05 10:06:00
505
转载 Delphi与C之间的类型对应表
以下是引用片段: ABC -> TABC ACCEL -> TAccel ATOM -> TAtom BITMAP -> TBitMap BITMAPCOREHEADER -> TBitmapCoreHeader BITMAPCOREINFO -> TBitmapCoreInfo BITMAPFILEHEADER -> TBitmapFileHeader BITMAP
2009-03-04 10:26:00
534
转载 用Delphi从内存流中判断图片格式
利用内存流来判断文件的格式,其实判断文件的前几个字节就可以简单的判断这个文件是什么类型的文件,例如jpg文件 是 FFD8 (从低位到高位就要反过来 D8FF 下面都是一样)BMP文件 是 424D ---4D42其他的我就不一一列举了,想知道跟多文件类型分别是用什么字符作为文件的开头的话,下载个C32asm或者UE等这类16进制编辑器就可以看到了。procedure TForm1
2009-03-04 10:25:00
2274
转载 用 TMemoryStream(内存流) 入门
所谓"流", 就是一段数据或是一块内存;在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性: Size、Position.对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.在很多控件的使用中, 读取主要用 LoadFromStream; 写入主要用 SaveToStream. 举个例子: (
2009-03-04 10:24:00
1028
转载 delphi下实现控制其它窗体中的控件
用我的方法来控制其他程序窗体上的窗口控件,必须先了解什么是回调函数。我的理解是这样的: 回调函数写出来不是自己的程序去调用的,反而是让其他的东西去调用,比如windows操作系统,比如其他的程序等等之类的。但是什么时候被调用却不知道了。回调函数一般是按照调用者的要求定义好参数和返回值的类型,你向调用者提供你的回调函数的入口地址,然后调用者有什么事件发生的时候就可以随时按照你提供的地址调用这
2009-02-27 17:44:00
1356
转载 回调函数的例子
这次只是熟悉一下实现回调的整个过程。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; ListBox1: TList
2009-02-27 16:43:00
1812
1
原创 程序中调用DLL实现回调函数
//程序中调用DLL实现unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEd
2009-02-26 16:53:00
1703
原创 mainado连接数据库
procedure TMainDataModule.DataModuleCreate(Sender: TObject);var strConn :String;begin StrConn := Provider=SQLOLEDB.1;; strConn := strConn + Data Source=.;Initial Catalog=Book;User ID=sa;Password
2009-02-26 08:01:00
425
SimDesign.NativeXml V2.38
2010-12-03
Indy_9_00_17_src
2009-12-10
delphi无标题栏窗口的拖动
2009-08-21
饭桶牌农历控件包 农历控件
2009-08-14
BusinessSkinForm.v6.15.For.Delphi.BCB.rar
2009-06-19
ProcessExplorer v11.33
2009-05-19
CnWizards_0.9.0.470
2009-05-19
ProcessExplorer 11.33英文版
2009-05-18
EurekaLog.v6.0.12.Enterprise.for.Delphi.BCB.Retail-SSG
2009-05-18
DevExpr_v42控件自动安装版
2009-04-28
DevExpress_V40自动安装版
2009-03-09
加壳利器Aspack汉化版
2009-03-06
Cpu-Z检测CPU软件
2009-03-05
IconMaster (BMP转换ICO) v3.0 绿色版
2009-03-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人