随笔分类 -  delphi

1 2 下一页
那些年做过的外包 之 健康小屋
摘要：这个项目严格意义上来说不算外包, 因为没收到钱, 属于友情支援. 项目是之前的老板想搞一个健康小屋,卖给国内某大地产公司, 先是外包给了另外一个人, 结果时间过去了几个月, 进展比较缓慢, 大老板开始在叼人了, 老板压力山大, 不得已把我抽调过去应急. 这个项目当时涉及的硬件主要包含体温(额头红外) 阅读全文
posted @ 2018-04-06 21:59 小阿枫 阅读(356) 评论(0) 推荐(0)
Raize 重新编译
摘要：最近项目用到了Raize5的日历控件, 需要在中文版本与英文版本中切换显示, 这个需要修改 RzPopups.pas, 修改了需要重新编译. 费老大劲了. 首选修改 RzBorder.pas, 不然编译不过 再改 \RC5\Source\!Build_RC5.cmd 运行OK, 替换dcu, 重新启 阅读全文
posted @ 2017-11-27 16:52 小阿枫 阅读(338) 评论(0) 推荐(0)
delphi 图像旋转
摘要：网络搜集的 觉得有用的拿去吧 速度不错呢 后面这个不好找 阅读全文
posted @ 2016-06-18 17:05 小阿枫 阅读(2179) 评论(0) 推荐(0)
Canvas: Out of system resources
摘要：一个手写板的项目 在线程中操作Canvas画用户的笔记, 画不了几笔就卡住不画了, 然后保存到另外的image时 提示“Out of system Resource”错误， 百思不得姐 中间考虑是不是因为image图片宽度的问题, 就重新新建了一个bitmap, 然并卵. 搜索一圈下来, 居然是Ca 阅读全文
posted @ 2016-05-18 11:12 小阿枫 阅读(730) 评论(0) 推荐(0)
Delphi 调用C# DLL(包含委托)
摘要：例子C# Dll:using System;using System.Collections.Generic;using System.Text;using System.Diagnostics;using System.Runtime.InteropServices;public delegate... 阅读全文
posted @ 2015-09-22 10:51 小阿枫 阅读(5889) 评论(0) 推荐(1)
一个看股票的小工具
摘要：上图是这个小工具的截图主要包含以下功能:1.护眼功能 45分钟进入护眼模式, 3分钟后恢复(如想进入桌面, 双击蓝色的倒计时即可)2.添加一些提示, 显示在桌面, 便于提醒一些重要的事情3.桌面透明(通过窗体下的桌面截图实现), 单击文字刷新4.支持按时间提醒 如 11:00:00 点外卖 18:5... 阅读全文
posted @ 2015-08-12 16:20 小阿枫 阅读(546) 评论(0) 推荐(0)
Win 播放器
摘要：先上图主要包含的功能有:打开播放文件, 暂停, 恢复, 停止, 设置声音大小, 设置进度, 获取当前播放进度, 时间进度提供的源码, 主要采用DSPACK234这个控件为提高解码的成功率最好先安装完美解码软件.源码下载: 点我下载控件下载: 点我下载 阅读全文
posted @ 2015-07-09 17:02 小阿枫 阅读(285) 评论(0) 推荐(0)
Delphi Json
摘要：superobject.pas单元对json的解析非常方便, 力荐下面演示对如下json的解析{ "userid": "u0001", "info": [ { "url": "rtmp://192.168.3.159/livepkgr/66?adbe-live-event=liveevent", "... 阅读全文
posted @ 2015-05-19 16:00 小阿枫 阅读(2226) 评论(0) 推荐(0)
delphi TIdHTTP Post乱码问题
摘要：这里主要说的是中文乱码的问题1. 发过去的是乱码如下处理, 服务器采用的是UFT-8编码的情况下uses HTTPApp; sPost := HTTPEncode(UTF8Encode('中文处理'));2. 返回的是乱码如下处理ResponseStream:=TStringstream.Crea... 阅读全文
posted @ 2014-11-19 13:41 小阿枫 阅读(4979) 评论(0) 推荐(0)
ilbc编解码
摘要：针对国内的博客或者技术论坛对ILBC的论述都是把文章抄来抄去, 本人在此对ILBC的具体代码实现详细列出代码. ILBC是由Global IP Sound公司提出的一种专为包交换网络通信设计的编解码，优于目前流行的G.729A、G.723.1，对丢包进行了特殊处理，既使在丢包率相当高的网络环境下，仍可获得非常清晰的语音效果。　ILBC 对于20 ms的帧，共使用了304个比特来表示编码后的语音信号，被封装在38个字节中；对于30ms的帧，共使用了480个比特，封装在50个字节中。1. ILBC的编译 ILBC代码部分是网络上找的, 点此下载. dll和lib(使用的是20 ms的帧)点此下载. 阅读全文
posted @ 2013-08-18 16:22 小阿枫 阅读(3981) 评论(2) 推荐(1)
waveOutOpen
摘要：今天尝试做声音输入和播放这方面的东西.输入能捕获音频数据后, 调用播放时发现waveOutOpen这个函数返回值错误了.之前在XP系统下, 这个函数也是这样调用的啊, 跟踪了一下, 发现返回的错误码 32.百度, google一圈之后, 发现也有人有此问题, 但回答都没有在重点上.最后原因找到.原来在waveOutOpen(@hWaveOut, WAVE_MAPPER, @FFormat, DWORD(@waveOutProc), DWORD(Self), CALLBACK_FUNCTION);第三个参数的格式上. 此参数取数有一定的规则. typedef struct { WORD wFor 阅读全文
posted @ 2012-09-09 00:08 小阿枫 阅读(2468) 评论(0) 推荐(1)
屏幕录制API
摘要：绝对原创, 自己封装, 方便使用.使用的是TSCRec1.dll.View Code // H to Pas Converter Ver.1.20.1.47 by K.Kumaki// Date : 31 Mar 2012// Source : TSCRecApi.h (17 Feb 2003)unit TSCRecApi;{$X+}{$Z2}{$A8}interfaceuses Windows, Forms;const Dll = 'TSCRec1.dll';// General Function return values CAMREC_SUCCESS = TRUE;... 阅读全文
posted @ 2012-07-07 20:37 小阿枫 阅读(975) 评论(0) 推荐(0)
简单的图片对比函数
摘要：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 <> nil then begin temBit := TBitmap.Create; temBit.Width := bit1.Width; temBit.Height := bit1.Height; end; nRe :=... 阅读全文
posted @ 2011-12-06 11:43 小阿枫 阅读(402) 评论(0) 推荐(0)
日常提醒2 (delphi源码)
摘要：在之前的基础上增加了新的功能.1. 自动适应桌面背景, 如图2. 增加护眼功能 默认45分钟休息一次, 每次3分钟代码无偿共享.http://files.cnblogs.com/doorsky/WorkTip_new.rar 阅读全文
posted @ 2011-08-12 13:02 小阿枫 阅读(310) 评论(0) 推荐(0)
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_t DateTimeToTimet(TDateTime dt){return time_t((dt-25569) * 86400.0);}void DateTimeToSystemTime(TDateTime dt, LPSYS 阅读全文
posted @ 2011-06-07 11:39 小阿枫 阅读(2767) 评论(0) 推荐(0)
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 parameter);说明：X可以是整型，也可以是实型；返回值和X的类型一致例子：varr: Real;i: Integer;beginr := Abs(-2.3); { 2.3 }i := Abs(-157); { 157 }end. 取整 阅读全文
posted @ 2011-04-10 11:40 小阿枫 阅读(16157) 评论(0) 推荐(1)
DebugHook
摘要：DebugHook 是 System 下的变量. DebugHook: 程序在IDE中运行时,=1; 独立运行时, =0. 阅读全文
posted @ 2011-02-13 20:52 小阿枫 阅读(489) 评论(0) 推荐(0)
日志文件
摘要：delphi 写日志文件的一个类, 从网上查找的资料, 然后按自己的需求修正了下.使用: 引用本单元后, 调用WriteLog函数即可. 默认31天清理一次日志. 阅读全文
posted @ 2011-01-22 13:44 小阿枫 阅读(423) 评论(0) 推荐(0)
获取英语每日一句(delphi)
摘要：调用下面这个函数,可以获取http://www.iciba.com/网站的英语每日一句.原理很简单, 先获取整个页面的信息, 由于是UTF-8字符, 所以需要转化一下.然后通过查找关键字,将所要的句子截取出来.//获取爱词霸每日一句 {uses IdHTTP}function TFrmTip.GetDayEnglish(): string;var reStr, str_1: string; idhtp1: TIdHTTP;begin Result := ''; try idhtp1 := TIdHTTP.Create(nil); reStr := idhtp1.Get(' 阅读全文
posted @ 2010-12-14 21:21 小阿枫 阅读(420) 评论(0) 推荐(0)
日常提醒(delphi源码)
摘要：这个小工具主要用来放在桌面随时提醒还有哪些事要做.主要功能:1. 可以添加16个任务2. 可以随意放置位置.3. 前3个任务,用规定的格式可以实现每天定时提醒.(如10:20:00 叫外卖)4. 任务栏和托盘均隐藏.5. 运行后随系统自启动.6. 提供源代码,可以任意修改.7. 源码中还有背景渐变, 异性窗体,看自己需要修改了.操作说明:1. 开始运行时, 没有任何任务2. 此时双击绿色的区域, 会弹出一个Txt的编辑框.往里面输入你的任务即可, 每行一个. 前3个任务,支持时间提醒(每天提醒一次)3. 保存好Txt文档后, 点击第一个任务进行刷新.4. 拖动位置后, 想要记住那个位置, 也点 阅读全文
posted @ 2010-12-12 20:51 小阿枫 阅读(974) 评论(8) 推荐(0)

1 2 下一页