冀公网安备 13098202000212号 2009年10月18日 星期日
用WebBrowser实现HTML界面的应用
扬帆| 扬帆Blog - Delphi |17:38:36
关键词：WebBrowser Control, TWebBrowser， Delphi, HTML，界面，Print Template，打印模板内容摘要：本文讲述了在Delphi中，利用WebBrower控件来实现HTML界面所面临的主要问题和解决办法，并给出了代码实例。原文出处：http://www.Yaeuq.net/software/webbrowser.h...
Cynna封装的TDHTMLEvent类（TWebBrowser常用）
扬帆| 扬帆Blog - Delphi |17:31:23
// ************* TDHTMLEvent class is placed in this separate unit ******************// 1. File -> New -> Unit// 2. Copy/Paste this code:unit Unit2;interfaceuses Windows, Classes;type TDHTMLEvent = class (TObject, IUnknown, IDispatch)&...
让delphi嵌入的WebBrowser无边框无滚动条
扬帆| 扬帆Blog - Delphi |16:44:51
{ WB_Set3DBorderStyle }procedure WB_Set3DBorderStyle(Sender: TWebBrowser; bValue: Boolean);var Document: IHTMLDocument2; Element: IHTMLElement; StrBorderStyle: string;be...
CCR Exif v0.9.8 - classes to read/write Exif metadata
CodeGear| CodeGear-CodeCentral Delphi |16:16:33
Features: 100% pure Delphi code — doesn’t use (say) LibExif or LibTiff, GDI+, or even Windows.pas; reads/writes both small- and big-endian data; surfaces both standard Exif and Windows Explorer tags; preserves the original MakerNote po...
用IdHTTP获取UTF-8编码的网页
扬帆| 扬帆Blog - Delphi |15:34:18
procedureTForm1.BtnClick(Sender: TObject);varS : widestring; //用string会导致信息丢失, TNTMemo1会出现部分？beginS := IdHTTP.Get('http://www.wesoho.com/'); S := UTF8Decode(S); //利用了UTF-8编码，必须要这句话才行！ ...
2009年10月17日 星期六
批量清空memo的操作方法
扬帆| 扬帆Blog - Delphi |21:01:24
for i := 0 to ControlCount - 1 do if Controls[i] is TCustomMemo then TCustomMemo(Controls[i]).Clear;==========================================================ComponentCount和ControlCount区别很...
Delphi 2010 新增功能之: IOUtils 单元(6): TPath(结构体) 的方法与属性
万一| 万一的 Delphi 博客 |20:48:00
以后路径相关的处理, 用 IOUtils.TPath 就很方便了.//较常用的方法: TPath.GetTempPath; {获取临时文件夹路径} TPath.GetTempFileName; {获取一个临时文件名} TPath.GetPathRoot(); {提取盘符, 如: c:\} TPath.GetD...
Delphi 2010 新增功能之: IOUtils 单元(5): TDirectory 的其他功能
万一| 万一的 Delphi 博客 |00:19:00
TDirectory.CreateDirectory(); {建立新目录} TDirectory.Exists(); {判断文件夹是否存在} TDirectory.IsEmpty(s1); {判断文件夹是否为空} TDirectory.Copy(); {复制文件夹} TDirectory.Move(); {移动文件...
2009年10月16日 星期五
Delphi 2010 新增功能之: IOUtils 单元(4): TDirectory.GetDirectories
万一| 万一的 Delphi 博客 |21:17:00
和 TDirectory.GetFiles 用法一样, TDirectory.GetDirectories 是用来获取子目录的.另外还有 TDirectory.GetFileSystemEntries 可同时获取文件与子目录, 用法都一样.unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Cont...
Delphi 2010 新增功能之: IOUtils 单元(3): TDirectory.GetFiles 支持通配符
万一| 万一的 Delphi 博客 |20:55:00
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; procedure Button1Click(S...
Delphi 2010 新增功能之: IOUtils 单元(2): TDirectory.TFilterPredicate
万一| 万一的 Delphi 博客 |18:20:00
TDirectory.GetFiles 函数还有一个 TDirectory.TFilterPredicate 类型的参数, 这是个匿名函数类型, 可对搜索结果再处理.unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type ...
Delphi 2010 新增功能之: IOUtils 单元(1): 初识 TDirectory.GetFiles
万一| 万一的 Delphi 博客 |17:08:00
用 IOUtils 单元下的 TDirectory.GetFiles 获取文件列表太方便了;下面的例子只是 TDirectory.GetFiles 的典型应用...unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFo...
InterLockedIncrement
扬帆| 扬帆Blog - Delphi |15:30:30
InterLockedIncrement and InterLockedDecrement实现数的原子性加减。什么是原子性的加减呢？举个例子：如果一个变量 Long value =0;首先说一下正常情况下的加减操作：value+=1；1：系统从Value的空间取出值，并动态生成一个空间来存储取出来的值；2：将取出来的值和...
动态数组传递数据示例 - 回复 YinGaGa 的问题
万一| 万一的 Delphi 博客 |14:03:00
问题来源:http://www.cnblogs.com/del/archive/2008/10/14/1310583.html#1673278unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TB...
Delphi 2010 in Croatia
Pawel Glowacki| Pawel Glowacki |13:55:32
I really like Croatia and it was such a pleasure to visit Zagreb on Tuesday with Mark Barringer (who did great DBOptimizer Beta 2 and ER/Studio demos) for the Delphi 2010 launch events. Delphi and C++Builder developers in Croatia really cares abou...