2009年10月18日 星期日

Delphi 2010 新增功能之: IOUtils 单元(7): TFile 结构的功能

万一| 万一的 Delphi 博客 |22:19:00

IOUtils 单元主要就是三个结构: TDirectory、TPath、TFile, 很有用; 下面是 TFile 的功能简介.TFile.Exists();//判断指定的文件是否存在TFile.Copy();//复制文件 var source,dest: string; begin TFile.Copy(source, dest); {不允许覆盖同名的文件} TFil...

用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编码，必须要这句话才行！&nbsp...