- 博客(69)
- 收藏
- 关注
RSS订阅转载 家居监控小系统
欢迎使用.Ⅰ. 将普通的PC摄像头与微博结合起来, 侦测移动物体, 自动将现场图片上传微博.Ⅱ. 根据微博命令, 计算机触发设置的动作, 如重启, 播放声音, 执行其他程序, 控制串口, 获取此时IP地址等Ⅲ. 高度的录像压缩比. 1个小时的录像磁盘占用约120M, 1天约占3G. 一个月才90G.Ⅳ. 自定义的OSD叠加. 叠加的字符自己做主, 颜色可选黑色和白...
2011-12-19 17:41:00
132
转载 简单的图片对比函数
function Compare(bit1: TBitmap; bit2: TBitmap; nC: Integer; Img: TImage): Integer;var x,y , nRe: Integer; bx, by, bbs: Byte; bColor: TColor; temBit: TBitmap;begin if Img <...
2011-12-06 11:43:00
256
转载 日常提醒2 (delphi源码)
在之前的基础上增加了新的功能.1. 自动适应桌面背景, 如图2. 增加护眼功能 默认45分钟休息一次, 每次3分钟代码无偿共享.http://files.cnblogs.com/doorsky/WorkTip_new.rar转载于:https://www.cnblogs.com/doorsky/archive/2011/08/12/2136000.html...
2011-08-12 13:02:00
131
转载 胃总是涨 大便不成形 打嗝 口有异味?
如果你有类似的症状, 而且吃了很多中药都不管用, 喝什么畅优, 益力多都不见效. 你可以考虑是否是感染了幽门螺杆菌.大家可以百度一下这种细菌.摘抄部分如下:最好检测方法诊断工具： 尿素[13C/14C]呼气试验 整个试验过程只需30分钟，无其他任何不适。 该方法使众多高血压、心脏病及对胃镜过敏的患者避免了做胃镜的不适感，是目前理想的...
2011-07-05 12:43:00
217
转载 哲理故事
1.甲去买烟，烟29元，但他没火柴，跟店员说：“顺便送一盒火柴吧。”店员没给。 乙去买烟，烟29元，他也没火柴，跟店员说：“便宜一毛吧。”最后，他用这一毛买一盒火柴。 这是最简单的心理边际效应。第一种：店主认为自己在一个商品上赚钱了，另外一个没赚钱。赚钱感觉指数为1。第二种：店主认为两个商品都赚钱了，赚钱指数为2。当然心理倾向第二种了。同样，这种心理还表现在买一送一的花招上，顾客认为...
2011-06-25 09:59:00
195
转载 time_t和SYSTEMTIME 与TDateTime的转换 (转)
在vc中实现time_t和SYSTEMTIME 与delphi中的TDateTime的转换。delphi中的TDateTime其实就是一个double型。TDateTime TimetToDateTime(time_t t){double result=(double)t / 86400.0 + 25569;return TDateTime(result);}time_...
2011-06-07 11:39:00
275
转载 delphi中的常用数学函数
delphi中的常用数学函数定义：function Power(X，Y): (Same type as parameter); 说明：X可以是整型，也可以是实型；返回值实型例子：vari:integer;begini := Power(3,4); { 81}end.求绝对值函数abs(x)定义：function Abs(X): (Same type as paramete...
2011-04-10 11:40:00
437
转载 DebugHook
DebugHook 是 System 下的变量. DebugHook: 程序在IDE中运行时,=1; 独立运行时, =0.转载于:https://www.cnblogs.com/doorsky/archive/2011/02/13/1953847.html...
2011-02-13 20:52:00
243
转载 日志文件
delphi 写日志文件的一个类, 从网上查找的资料, 然后按自己的需求修正了下.使用: 引用本单元后, 调用WriteLog函数即可. 默认31天清理一次日志.unit uProgLog;interfaceuses Windows, SysUtils, SyncObjs;type TLogFile = class private...
2011-01-22 13:44:00
207
转载 YUV420_to_RGB24 算法
算法一: 查表法const int Table_fv1[256]={ -180, -179, -177, -176, -174, -173, -172, -170, -169, -167, -166, -165, -163, -162, -160, -159, -158, -156, -155, -153, -152, -151, -149, -148, -146, -145,...
2011-01-02 21:23:00
165
转载 YUV420P
最近一周整理了一下网上关于YUV数据的转化和显示方面的资料, 与大家共享一下.1.关于YUV.百度百科:http://baike.baidu.com/view/189685.htm英文资料:http://en.wikipedia.org/wiki/YUV#Y.27UV420p_.28and_Y.27V12.29YUV转换算法:http://www.kldby...
2011-01-02 20:36:00
200
转载 整理一下零碎的东西
1.设置润眼窗口窗口设置方法：打开控制面板中的"显示"选择外观(appearance)－高级(advanced)，然后在项目(items)那栏选窗口(windows)，再点颜色(color) －其它颜色(others)，然后把Hue(色调)设为85，Sat(饱和度)设为90，Lum(亮度)设为205。然后单击添加到自定义颜色(Addtocustomcolors)，...
2010-12-14 21:52:00
160
转载 获取英语每日一句(delphi)
调用下面这个函数,可以获取http://www.iciba.com/网站的英语每日一句.原理很简单, 先获取整个页面的信息, 由于是UTF-8字符, 所以需要转化一下.然后通过查找关键字,将所要的句子截取出来.//获取爱词霸每日一句 {uses IdHTTP}function TFrmTip.GetDayEnglish(): string;var reStr, st...
2010-12-14 21:21:00
151
转载 日常提醒(delphi源码)
这个小工具主要用来放在桌面随时提醒还有哪些事要做.主要功能:1. 可以添加16个任务2. 可以随意放置位置.3. 前3个任务,用规定的格式可以实现每天定时提醒.(如10:20:00 叫外卖)4. 任务栏和托盘均隐藏.5. 运行后随系统自启动.6. 提供源代码,可以任意修改.7. 源码中还有背景渐变, 异性窗体,看自己需要修改了.操作说明:1....
2010-12-12 20:51:00
320
转载 生成GUID
Globally Unique Identifier（全球唯一标识符） 也称作 UUID(Universally Unique IDentifier) GUID/UUID是通过特定算法产生的一个二进制长度为128位的数字， 在空间上和时间上具有唯一性，保证同一时间不同地方产生的数字不同， 在公元3400年以前产生的UUID/GUID与任何其他产生过的UUIDs/GUIDs都不...
2010-11-26 22:43:00
201
转载 ADSL随系统启动
1. 网上很多关于ADSL自动随系统启动并连接网络的方法都是搞个什么快捷方式放在启动中, 但偏偏我的电脑此方法无效.2. 试用了一下宽带王这款软件, 感觉不爽, 第一占用了我的资源(内存20M), 第二托盘图标不能隐藏, 第三那些什么重连功能咱用不上.3.还是动手自己写一个吧.①. 开启自启动 Reg := TRegistry.Create; with Reg ...
2010-11-17 22:11:00
98
转载 Inno Setup 5 教程
最近弄了两天Inno Setup 5, 算是可以完成一个自己满意的安装包了.当然, 参考了网络上一些资料, 而我们必须利用它们.我把这个demo安装文件上传至博客文件中了. 有需要的同学就下载吧.下载地址: http://files.cnblogs.com/doorsky/%e5%ae%89%e8%a3%85%e6%96%87%e4%bb%b6.rar以下为安装效果....
2010-11-15 22:01:00
673
转载 去掉英语美国键盘
一直对那个英语美国键盘很烦恼，每次手动删除以后， 重启之后又出现了。今天终于在百度快照中找到了解决办法。[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000409]"Layout File"="0" //修改这个键值为0 即可我的XP系统已经实验过了。 enjoy it。...
2010-11-10 20:52:00
520
转载 9158cap, WDM Video Capture 服务启动失败
最近一段时间, 电脑老是莫名其妙的死机, 直接熄火, 查了下系统日志, 发现9158cap, WDM Video Capture 服务启动失败这个很多开始－运行－“regedit”找到：[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services]可以找到9158cap, 9YOU键值 删掉.转载于:https://www.c...
2010-11-01 20:55:00
167
转载 串口的一点知识(摘抄)
第一章 背景知识1. 概述串口是计算机上I/O接口的一种，要掌握串口通信编程的相关知识，必须先了解I/O接口的相关知识。I/O接口是接口的一种。2. 什么是接口?众所周知计算机是由CPU，存储器，外部终端设备组成.接口就是用于CPU与外部设备、存储器的连接和数据交换的设备。3. 接口分类.广义的计算机接口有二种，见下表：类別 用途 电路实现复杂性存储器接口: 用于CPU与外部设备...
2010-04-24 23:40:00
673
转载 移位操作
在权限设置或者串口设置等方面个人觉得很有用//获取每一位的状态 返回值 状态 0,1 function GetBitSate(dw1:DWORD; Pos:Byte):Byte; //设置每一位的状态 返回值 设置后的数据 function SetBitSate(dw1:DWORD; Pos:Byte; Sate: Byte): DWORD; //获取最后8,16...
2010-02-02 18:18:00
140
转载 对mysql.pas的封装
引用的mysql.pas文件的版本是:04-Aug-2009. 嗯,在上一篇中已经贴出来了. 引用的动态库libmySQL.dll 在mysql的安装目录下有.先把它封装成类 TMySql;unit MySqlClass;interfaceuses Windows, Messages, SysUtils, Classes, mysql;const //定义命...
2010-01-05 23:08:00
265
转载 delphi 气泡提示
这是一个气泡提示的动态库.(参考网络资源 自己封装)library BoolTip;uses SysUtils, CommCtrl, Windows, Controls, Classes;{$R *.res}var tI: TToolInfo; buffer : array[0..255] of char; function CreateInfoTip(hWnd: ...
2009-12-28 23:24:00
268
转载 mysql 动态创建(删除)数据库,表
1. 删除droptableifexists tablename;2. 创建 create database if not exists databasename; create table if not exists tablename;转载于:https://www.cnblogs.com/doorsky/archive/2009/12/...
2009-12-16 09:03:00
280
转载 Time_T 和 TDatetime
Time_T 表示:距1970-1-1 00:00:00 GMT 标准时间秒数 Longint;TDateTime: 整数部分为自1899-12-30 以来的天数。其小数部分为天的时间 double型 有些时候可能要互相转换,比如mysql数据库中的时间.Time_T to TDateTime:function time_tToDateTime(vtime_...
2009-12-14 19:53:00
230
转载 界面美化(来自网络)
1.PageControl设置其ownerdrow为true,然后在其DrawTab事件中加入如下代码procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);var aRect:TRect;be...
2009-12-05 22:23:00
158
转载 特效(毛玻璃)
在CSDN上看到的一个网友写的,挺实用的.unit uClosingEffect;interfaceuses Windows, Messages, SysUtils, Classes, Graphics;const WM_REDIRCREATE = WM_USER + 382; WM_REDIRDESTROY = WM_USER + 383; WM_R...
2009-11-16 22:48:00
288
转载 快速排序
procedure QuickSort(var A: array of Integer; iLo, iHi:Integer); procedure Swap(var A,B:Integer); var temp:Integer; begin temp:= A; A:=B; B:=temp; end;var Lo,Hi,Mid: Integer;begi...
2009-11-16 22:43:00
88
转载 Delphi--Flash
delphi与flash交互具体存在两个问题：1、如何能让delphi应用程序接收到flash发来的消息，并处理；2、怎样能从delphi应用程序向flash传递命令，控制.swf文件的运行。一、flash向delphi发送消息： flash向delphi发送消息运用flash中自带的fscommand命令即可。第一步（flash中Button添加script）：...
2009-06-13 17:17:00
212
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人