上一页 1 ··· 51 52 53 54 55 56 57 58 59 ··· 215 下一页
摘要: Wave 文件的前 12 个字节可以这样描述:TRiff = record ckId : DWORD; {'RIFF'} ckSize : DWORD; {文件大小, 不包括前 8 个字节} fccType : DWORD; {'WAVE'}end;我们读出文件的前 12 个字节进行判断, 就基本可以确认它是不是 Wave 文件.uses MMSystem, IOUtils; {这里准备用... 阅读全文
posted @ 2009-11-06 12:11 万一 阅读(2661) 评论(1) 推荐(0) 编辑
摘要: 最近准备学习 DirectSound、DirectMusic、DirectShow, 但刚一接触就碰到了关于 Wave 文件的诸多问题, 只好先回头学学 Wave 文件.Wave 文件的基础知识经常见到这样的描述: 44100HZ 16bit stereo 或者 22050HZ 8bit mono 等等.44100HZ 16bit stereo : 每秒钟有 44100 次采样, 采样数据用 16... 阅读全文
posted @ 2009-11-06 02:56 万一 阅读(4132) 评论(7) 推荐(0) 编辑
摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Bu... 阅读全文
posted @ 2009-11-02 11:56 万一 阅读(3994) 评论(3) 推荐(0) 编辑
摘要: 偶然从 SysUtils 里发现了几个路径相关的函数, 以前没见过, 可能是 2010 新增的:GetLocaleDirectory();GetLocaleFile();LocaleDirectoryExists();LocaleFileExists();应用测试:uses IOUtils;procedure TForm1.FormCreate(Sender: TObject);var p,f:... 阅读全文
posted @ 2009-11-02 01:00 万一 阅读(6772) 评论(2) 推荐(1) 编辑
摘要: 调用 Google 翻译的地址格式:http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=" + 原始文本 + "&langpair=" + 原语言 + "%7C" + 目标语言返回的数据格式如下, 可以用 responseData.translatedText 简单获取:{ "responseData" : {"... 阅读全文
posted @ 2009-10-28 14:52 万一 阅读(7730) 评论(29) 推荐(0) 编辑
摘要: 同上例类似, 通过 'http://clients1.google.cn/complete/search?&q=' + "关键字" 可以获取 Google 的关键字搜索排名.我用 Delphi 为关键字得到的结果是:window.google.ac.h( ["Delphi",[ ["delphi 教程", "375,000 结果", "0"], ["delphi盒子", "74,900 结果",... 阅读全文
posted @ 2009-10-28 09:42 万一 阅读(4574) 评论(0) 推荐(0) 编辑
摘要: 本例测试效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Edit1: TEdit; Button1: TB... 阅读全文
posted @ 2009-10-27 23:04 万一 阅读(6542) 评论(2) 推荐(0) 编辑
摘要: 这种转换一般用于网页地址; 我不知道 Delphi 是不是有现成的函数, 用到了就写了一个.为 "小月124" 写了个反向函数: 阅读全文
posted @ 2009-10-27 22:32 万一 阅读(15886) 评论(27) 推荐(0) 编辑
摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Cli... 阅读全文
posted @ 2009-10-27 21:05 万一 阅读(10749) 评论(13) 推荐(0) 编辑
摘要: SuperObject 文件包中还有一个 SuperXmlParser 单元, 可以从 XML 中解析出 ISuperObject.SuperXmlParser 只有三个函数: XMLParseString、XMLParseStream、XMLParseFile, 分别从字符串、流、文件中解析.遗憾的是对中文不够友好. unit Unit1;interfaceuses Windows, Mess... 阅读全文
posted @ 2009-10-27 16:46 万一 阅读(6504) 评论(20) 推荐(0) 编辑
上一页 1 ··· 51 52 53 54 55 56 57 58 59 ··· 215 下一页