问与答 - 随笔分类 - 万一

使用 idHTTP 获取 UTF-8 编码的中文网页 - 回复同学 "Delphi学习者" 的问题

摘要：uses IdHTTP;const Url = 'http://del.cnblogs.com';procedure TForm1.Button1Click(Sender: TObject);var stream: TStringStream; idHttpObj: TIdHTTP;begin stream := TStringStream.Create('', TEncoding.UTF8); // idHttpObj := TIdHTTP.Create(nil); idHttpObj.Get(Url, stream); idHttpObj.Free; Mem 阅读全文

posted @ 2011-12-30 20:54 万一阅读(9065) 评论(6) 推荐(0) 编辑

如何使用 SendMessage 选择 ListBox、ComboBox 中的项 - 回复 "倪慧刚" 的问题

摘要：const i = 1;//初始测试数据procedure TForm1.FormCreate(Sender: TObject);begin ListBox1.Items.CommaText := 'aaa,bbb,ccc'; ComboBox1.Items.CommaText := 'aaa,bbb,ccc';end;//对 ListBox1procedure TForm1.Button1Click(Sender: TObject);begin// ListBox1.Selected[i] := True; {常规方法} SendMessage(L... 阅读全文

posted @ 2011-12-01 15:25 万一阅读(7640) 评论(3) 推荐(0) 编辑

给 "水桶" 同学解释一下 "流" 类中的 Seek() 方法

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/01/01/1022130.html#2103357TStream 有 Seek() 方法, 它的子类们(TFileStream、TMemoryStream、TBytesStream、TStringStream、TResourceStream、TStreamAdapter、THandleStream...)也都有 Seek() 方法, 且用法一样.另外它们也都有 Position 属性, 使用 Position 属性完全可以代替 Seek() 方法, 通过 Position 还可以方便地 "读阅读全文

posted @ 2011-05-22 21:54 万一阅读(6362) 评论(7) 推荐(2) 编辑

如何使用 TStringGrid 呈现大量的颜色信息 - 回复 "冷公子" 的问题

摘要："冷公子" 同学需要在 TStringGrid 中通过颜色显示大量信息, 给出的方案是: 建立一个对应的颜色数组.参考代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls;type TForm1 = class(TForm) StringGrid1: TStringGrid; Button1: TButton; procedure FormCreate(Sender: TOb 阅读全文

posted @ 2011-05-16 15:16 万一阅读(4168) 评论(6) 推荐(0) 编辑

在 StringGrid 上画线时, 使用 GDI+ 以消除锯齿 - 回复 "gsjn_8888_6666" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/12/24/1631729.html#2097194GDI+ 接口: http://www.cnblogs.com/del/archive/2009/12/11/1621790.html示例代码:uses GdiPlus;procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);var Graphics: IGPGraphics; Pen: 阅读全文

posted @ 2011-05-15 11:56 万一阅读(3905) 评论(1) 推荐(0) 编辑

关于显示透空歌词的思路 - 回复 "zhaoboaidelphi" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/12/22/1629717.html#20967341、使用 TransparentColor、TransparentColorValue 给窗体指定透明色;2、绘制非透明色的文本, 用 TLabel 呈现文本也可;3、处理 WM_NCHITTEST 消息使窗体能够被拖动;4、用 Esc 键退出.测试代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 阅读全文

posted @ 2011-05-14 16:42 万一阅读(2948) 评论(11) 推荐(1) 编辑

解析 png 图片的十六进制字符流的函数 - 回复 "黑人" 的问题

摘要：问题来源：http://www.cnblogs.com/del/archive/2010/04/24/1719631.html#2079634使用下面的 Hex2Png() 函数解析黑人给的数据，结果是一个 93396 的验证码图片。uses pngimage;{从 png 图片到十六进制字符串}function Png2Hex(png: TPngImage): string;var stream: TMemoryStream;begin stream := TMemoryStream.Create; png.SaveToStream(stream); SetLength(Result, st 阅读全文

posted @ 2011-04-26 22:53 万一阅读(4635) 评论(4) 推荐(0) 编辑

回复 "Globe" 关于 XML 编码转换的问题

摘要：问题来源：http://www.cnblogs.com/del/archive/2011/03/24/1994029.html#2059114Globe 同学有这样的 XML 文件：其中包含中文、韩文，并且有些是十六进制、有些是十进制，真实的内容应该是：下面是把它打开并另存为标准的 UTF-8 格式 XML 的代码(使用了 DelphiXE 最新的正则表达式组件)：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrl 阅读全文

posted @ 2011-04-01 22:32 万一阅读(3648) 评论(7) 推荐(0) 编辑

让程序运行后自我删除或恢复名称 - 回复 "实习新手" 的问题

摘要：问题来源：http://www.cnblogs.com/del/archive/2008/08/12/1266368.html#2028808改回应有的名称：阅读全文

posted @ 2011-02-18 13:02 万一阅读(3264) 评论(20) 推荐(1) 编辑

动态调整 TBitBtn 上的图片 - 回复 "游戏而已" 的问题

摘要：问题来源：http://www.cnblogs.com/del/archive/2011/02/11/1951641.html#2025348测试图片：测试代码：阅读全文

posted @ 2011-02-13 11:01 万一阅读(2817) 评论(19) 推荐(1) 编辑

如何使用 PPChar - 回复 "DelphiFan" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/08/1329543.html#2024604 阅读全文

posted @ 2011-02-11 21:13 万一阅读(3308) 评论(6) 推荐(0) 编辑

如何在 TDrawGrid 的单元格中显示图片 - 回复 "巅枫" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/03/06/1094289.html#2023057在 C:\Temp\ 下准备 1.bmp、2.bmp、3.bmp 三个图片, 然后: 阅读全文

posted @ 2011-02-09 11:12 万一阅读(5569) 评论(5) 推荐(0) 编辑

使用 BinToHex() 把 TBytes 转换为十六进制字符串 - 回复 "梧桐栖凤" 的问题

摘要：{函数}function BytestoHexString(ABytes: TBytes; len: Integer): AnsiString;begin SetLength(Result, len*2); BinToHex(@ABytes[0], PAnsiChar(Result), len);end;{测试}procedure TForm1.FormCreate(Sender: TObje... 阅读全文

posted @ 2011-01-27 18:17 万一阅读(8033) 评论(2) 推荐(0) 编辑

如何把一个字符串填充到一个无类型的指针 - 回复 "豪杰的爸爸" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/08/1329543.html#2016234 阅读全文

posted @ 2011-01-21 17:43 万一阅读(2006) 评论(1) 推荐(0) 编辑

把字节数组读入到流 - 回复 "巅枫" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2011/01/16/1936942.html#2012707 阅读全文

posted @ 2011-01-17 16:38 万一阅读(3295) 评论(10) 推荐(0) 编辑

如何使用系统级热键捕捉当前窗口保存为 png 图片 - 回复 "巅枫" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/02/16/1392049.html#2011187程序运行后, F8 可保存 bmp, F9 可保存 png; 测试保存目录在 C:\temp 阅读全文

posted @ 2011-01-15 13:23 万一阅读(2831) 评论(1) 推荐(0) 编辑

关于 OnMouseWheelDown、OnMouseWheelUp 等事件的简单例子 - 回复 "巅枫" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/10/28/1591380.html#2006425测试准备, 在空白窗体上添加 Memo1 和 Button1, 然后激活 Form1 的如下事件(巅枫同学关心的):OnMouseEnter、OnMouseLeave、OnMouseWheel、OnMouseWheelDown、OnMouseWheelUp, 还用到其 OnCreate 事件.然后根据如下测试代码, 一试便知: 阅读全文

posted @ 2011-01-08 14:10 万一阅读(5018) 评论(10) 推荐(0) 编辑

一个分割文本文件的小程序 - 回复 "jellyang" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2010/05/28/1746514.html#1835637代码:窗体: 阅读全文

posted @ 2010-05-29 19:21 万一阅读(3889) 评论(6) 推荐(0) 编辑

如何用弹出窗口显示进度 - 回复 "嘿嘿嘿" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2010/01/08/1642072.html#1820853准备工作: 在空白窗体上添加 Button 和 Timer, 并分别激活它们的默认事件.运行效果图: 阅读全文

posted @ 2010-05-10 17:05 万一阅读(9286) 评论(9) 推荐(1) 编辑

知道双字节码, 如何获取汉字 - 回复 "pinezhou" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/09/05/1284923.html#1818187好像没有解决问题, 换个思路重来一下: 阅读全文

posted @ 2010-05-06 22:08 万一阅读(4157) 评论(10) 推荐(0) 编辑

随笔分类 - 问与答