Other – 蓝天白云

Delphi中使用ISuperObject解析Json数据

分类：Components, Delphi, Other 阅读 (9,269) No Responses »

7月 102016

　　Java、Php等语言中都有成熟的框架来解析Json数据，可以让我们使用很少的代码就把格式化好的json数据转换成程序可识别的对象或者属性，同时delphi中也有这样的组件来实现此功能，即IsuperObject。如果还没有这个组件的请在网上搜索下载或者在下面留言处留下你的邮箱向本人索取。

　　下面先说一下ISuperObject中几个常用的函数

function SO(const s: SOString = ‘{}’): ISuperObject; overload; 此函数传入json数据字符串，并返回一个ISuperObject对象，这一般是我们解析json时使用的第一个函数，如jObj := SO(jsonstr)。
property O[const path: SOString]: ISuperObject read GetO write PutO; default; 如：jobj.O[‘username’]，此函数被一个ISuperObject对象调用，方括号内的字符串为json中的字段名称，返回一个ISuperObject对象。
property S[const path: SOString]: SOString read GetS write PutS; 此函数被一个ISuperObject对象调用，和O[‘username’]不同的是，它返回的是一个SoString，即一个字符串，使用方法 str := jObj.S[‘username’]; 同理的还有其他几个类似的函数，如I[‘age’]返回整数，B[‘isenable’]返回布尔型，A[‘users’]返回一个TSuperArray数组
AsString, AsBoolean, AsInteger,AsArray，ISuperObject的函数，用来把ISuperObject转换成相应的数据类型。

　　下面我们看一个演示代码，json数据如下

{
    "retcode": "1", 
    "datafrom": "server",
    "users": "[{\"id\":1, \"username\": \"liuderu\", \"website\": \"bcoder.com\"},{\"id\":2, \"username\": \"Jeoe\", \"website\": \"baidu.com\"}]"
}

{

"retcode": "1",

"datafrom": "server",

"users": "[{\"id\":1, \"username\": \"liuderu\", \"website\": \"bcoder.com\"},{\"id\":2, \"username\": \"Jeoe\", \"website\": \"baidu.com\"}]"

}

　　Delphi版本2010，代码如下：

unit uFmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, superobject;

type
  TFmMain = class(TForm)
    Memo1: TMemo;
    ListView1: TListView;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmMain: TFmMain;

implementation

{$R *.dfm}

procedure TFmMain.BitBtn1Click(Sender: TObject);
var
  jRet, jUsers: ISuperObject;
  aryUsers: TSuperArray;
  retCode: integer;
  strUsers: string;
  i: integer;
begin
  jRet := SO(Memo1.Text);
  if (jRet.O['retcode'] <> nil) then begin
    retCode := jRet.O['retcode'].AsInteger;
    Label1.Caption := '返回值：' + IntToStr(retCode) + ';  数据来源：' + jRet.O['datafrom'].AsString;

    if(jRet.O['retcode'].AsInteger = 1) then begin
      strUsers := jRet.O['users'].AsString;
      jUsers := SO(strUsers);
      aryUsers := jUsers.AsArray;
      for I := 0 to aryUsers.Length - 1 do begin
        with  ListView1.Items.Add do begin
          Caption := aryUsers[i].O['id'].AsString;
          SubItems.Add(aryUsers[i].O['username'].AsString);
          SubItems.Add(aryUsers[i].O['website'].AsString);
        end;
      end;
    end;
  end;
end;

end.

unit uFmMain;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, Buttons, superobject;

type

TFmMain = class(TForm)

Memo1: TMemo;

ListView1: TListView;

BitBtn1: TBitBtn;

Label1: TLabel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FmMain: TFmMain;

implementation

{$R *.dfm}

procedure TFmMain.BitBtn1Click(Sender: TObject);

var

jRet, jUsers: ISuperObject;

aryUsers: TSuperArray;

retCode: integer;

strUsers: string;

i: integer;

begin

jRet := SO(Memo1.Text);

if (jRet.O['retcode'] <> nil) then begin

retCode := jRet.O['retcode'].AsInteger;

Label1.Caption := '返回值：' + IntToStr(retCode) + '; 数据来源：' + jRet.O['datafrom'].AsString;

if(jRet.O['retcode'].AsInteger = 1) then begin

strUsers := jRet.O['users'].AsString;

jUsers := SO(strUsers);

aryUsers := jUsers.AsArray;

for I := 0 to aryUsers.Length - 1 do begin

with ListView1.Items.Add do begin

Caption := aryUsers[i].O['id'].AsString;

SubItems.Add(aryUsers[i].O['username'].AsString);

SubItems.Add(aryUsers[i].O['website'].AsString);

end;

end.

点击下载源代码

Paypal添加招商银行一卡通

分类：Other, Others 阅读 (7,721) No Responses »

7月 122014

在PAYPAL帐户中添加自己的香港招行“香港一卡通”，需要填写以下信息：

(1)Name on account（帐户名称）：收款人名字，英文、中文？

(2) Bank Name（银行名称）：填写“CHINA MERCHANTS BANK HONG KONG BRANCH”；

(3) Account Type（帐户类型）：选择“Checking（支票收款）”；

(4) Bank Code（银行代码）：238，又叫CHATS CODE；

(5) Branch Location（分行地址）：21F，12 HARCOURT ROAD CENTRAL

(6) Branch Code（分行代码）：填写“860”这三位固定代码（即卡号中间的那三位）；

(7) Account Number（帐户号码）：填写你自己卡号的最后7位数字（即860之后的7位）；

(7) Re-Enter Account Number（重复帐户号码）：再次输入上面输入的7位收款帐号。

附截图：

其他信息：

1、招商銀行香港分行SWIFT CODE: CMBCHKHH

2、招商银行卡BIN号

信用卡：431988、356889、439225、439226、439227、518710、518718、622575、622576、622578、479229、479228、552534、552587、622581、622582、622577、521302、628362、356890、370285、370287、370289
借记卡：8位卡、955550、622580、622588、622609、621286、468203、512425、410062、524011、621483、621485、621486、621299

Delphi2010自带函数总结

分类：Delphi, Other 阅读 (3,414) No Responses »

10月 252013

Delphi version: Delphi2010

1. SysUtils

//检查当前系统版本，如果当前系统版本大于等于AMajor.AMinor则返回true
function CheckWin32Version(AMajor: Integer; AMinor: Integer = 0): Boolean;
//获取文件版本
function GetFileVersion(const AFileName: string): Cardinal;
//将字符串转换为大写
function UpperCase(const S: string): string; overload;
function UpperCase(const S: string; LocaleOptions: TLocaleOptions): string; overload;
//将字符串转换为小写
function LowerCase(const S: string): string; overload;
function LowerCase(const S: string; LocaleOptions: TLocaleOptions): string; overload;
//比较两个字符串s1和s2，大小写第三，如果s1<s2返回小于0的值，如果s1=s2返回0，如果s1>s2返回大于0的值
function CompareStr(const S1, S2: string): Integer; overload;
function CompareStr(const S1, S2: string; LocaleOptions: TLocaleOptions): Integer; overload;
//判断两个字符串是否相等，大小写敏感，相等返回true，不相等返回false
function SameStr(const S1, S2: string): Boolean; overload;
function SameStr(const S1, S2: string; LocaleOptions: TLocaleOptions): Boolean; overload;
//比较p1和p2所指向的指定长度的内存，相等返回true，不相等返回false
function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler;
//比较两个字符串s1和s2，大小写不敏感，所有小写字母被转换为大写字母，如果s1<s2返回小于0的值，如果s1=s2返回0，如果s1>s2返回大于0的值
function CompareText(const S1, S2: string): Integer; overload;
function CompareText(const S1, S2: string; LocaleOptions: TLocaleOptions): Integer; overload;

//比较s1和s2是否相等，大小写不敏感，如果相等返回true，不相等返回false

function SameText(const S1, S2: string): Boolean; overload;
function SameText(const S1, S2: string; LocaleOptions: TLocaleOptions): Boolean; overload;

function AnsiUpperCase(const S: string): string; overload;
function AnsiLowerCase(const S: string): string; overload;
function AnsiCompareStr(const S1, S2: string): Integer; overload;
function AnsiSameStr(const S1, S2: string): Boolean; inline; overload;
function AnsiCompareText(const S1, S2: string): Integer; overload;
function AnsiSameText(const S1, S2: string): Boolean; inline; overload;
function AnsiStrComp(S1, S2: PAnsiChar): Integer; inline; overload;
function AnsiStrComp(S1, S2: PWideChar): Integer; inline; overload;
function AnsiStrIComp(S1, S2: PAnsiChar): Integer; inline; overload;
function AnsiStrIComp(S1, S2: PWideChar): Integer; inline; overload;
function AnsiStrLComp(S1, S2: PAnsiChar; MaxLen: Cardinal): Integer; overload;
function AnsiStrLComp(S1, S2: PWideChar; MaxLen: Cardinal): Integer; inline; overload;
function AnsiStrLIComp(S1, S2: PAnsiChar; MaxLen: Cardinal): Integer; overload;
function AnsiStrLIComp(S1, S2: PWideChar; MaxLen: Cardinal): Integer; inline; overload;
function AnsiStrLower(Str: PAnsiChar): PAnsiChar; overload;
function AnsiStrLower(Str: PWideChar): PWideChar; inline; overload;
function AnsiStrUpper(Str: PAnsiChar): PAnsiChar; overload;
function AnsiStrUpper(Str: PWideChar): PWideChar; inline; overload;
function AnsiLastChar(const S: AnsiString): PAnsiChar; overload;
function AnsiLastChar(const S: UnicodeString): PWideChar; overload;
function AnsiStrLastChar(P: PAnsiChar): PAnsiChar; overload;
function AnsiStrLastChar(P: PWideChar): PWideChar; overload;
function WideUpperCase(const S: WideString): WideString;
function WideLowerCase(const S: WideString): WideString;
function WideCompareStr(const S1, S2: WideString): Integer;
function WideSameStr(const S1, S2: WideString): Boolean; inline;
function WideCompareText(const S1, S2: WideString): Integer;
function WideSameText(const S1, S2: WideString): Boolean; inline;

//去掉头尾空格的函数

function Trim(const S: string): string; overload;
function TrimLeft(const S: string): string; overload;
function TrimRight(const S: string): string; overload;

//在字符串S的头和尾加上单引号

function QuotedStr(const S: string): string; overload;

//在字符串S的头和尾加上Quote，例如AnsiQuotedStr(‘b’, ‘c’)=cbc

function AnsiQuotedStr(const S: string; Quote: Char): string; overload;

function AnsiExtractQuotedStr(var Src: PAnsiChar; Quote: AnsiChar): AnsiString; overload;
function AnsiExtractQuotedStr(var Src: PWidechar; Quote: WideChar): UnicodeString; overload;

//如果S以AQuote开始和结尾，则去掉开始和结尾的AQuote，如果不是返回原字符串

function AnsiDequotedStr(const S: string; AQuote: Char): string; overload;

//将字符串中的换行符格式为指定的格式

function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle =
{$IFDEF LINUX} tlbsLF {$ENDIF}
{$IFDEF MACOSX} tlbsLF {$ENDIF}
{$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): string; overload;

function IsValidIdent(const Ident: string; AllowDots: Boolean = False): Boolean;

//将整数型转换为字符串类型

function IntToStr(Value: Integer): string; overload;
function IntToStr(Value: Int64): string; overload;

//将无符号整数转换为字符串

function UIntToStr(Value: Cardinal): string; overload;
function UIntToStr(Value: UInt64): string; overload;

//将一个整数转换为十六进制字符串，Digits为最少显示多少位字符

function IntToHex(Value: Integer; Digits: Integer): string; overload;
function IntToHex(Value: Int64; Digits: Integer): string; overload;

//将一个字符串转换为整数，StrToIntDef中如果S为非整数格式字符串则返回Default

function StrToInt(const S: string): Integer; overload;
function StrToIntDef(const S: string; Default: Integer): Integer; overload;
function TryStrToInt(const S: string; out Value: Integer): Boolean; overload;

//将字符串转换为int64类型整数

function StrToInt64(const S: string): Int64; overload;
function StrToInt64Def(const S: string; const Default: Int64): Int64; overload;
function TryStrToInt64(const S: string; out Value: Int64): Boolean; overload;

//字符串类型转换为布尔类型

function StrToBool(const S: string): Boolean; overload;
function StrToBoolDef(const S: string; const Default: Boolean): Boolean; overload;
function TryStrToBool(const S: string; out Value: Boolean): Boolean; overload;

//从可执行程序的资源文件中根据Ident标识加载字符串

function LoadStr(Ident: Integer): string;

//从资源文件中加载字符串，并进行格式化操作

function FmtLoadStr(Ident: Integer; const Args: array of const): string;

function FileOpen(const FileName: string; Mode: LongWord): Integer;
function FileCreate(const FileName: string): Integer; overload; inline;
function FileCreate(const FileName: string; Rights: Integer): Integer; overload; inline;
function FileCreate(const FileName: string; Mode: LongWord; Rights: Integer): Integer; overload;
function FileRead(Handle: Integer; var Buffer; Count: LongWord): Integer;
function FileWrite(Handle: Integer; const Buffer; Count: LongWord): Integer;
function FileSeek(Handle, Offset, Origin: Integer): Integer; overload;
function FileSeek(Handle: Integer; const Offset: Int64; Origin: Integer): Int64; overload;
procedure FileClose(Handle: Integer); inline;
function FileAge(const FileName: string): Integer; overload; deprecated;
function FileExists(const FileName: string): Boolean;
function DirectoryExists(const Directory: string): Boolean;
function ForceDirectories(Dir: string): Boolean;

//
function FindFirst(const Path: string; Attr: Integer;var F: TSearchRec): Integer;
function FindNext(var F: TSearchRec): Integer;
procedure FindClose(var F: TSearchRec);
function FileGetDate(Handle: Integer): Integer;
function FileSetDate(const FileName: string; Age: Integer): Integer; overload;
function FileSetDate(Handle: Integer; Age: Integer): Integer; overload; platform;
function FileGetAttr(const FileName: string): Integer; platform;
function FileSetAttr(const FileName: string; Attr: Integer): Integer; platform;
function FileIsReadOnly(const FileName: string): Boolean; inline;
function FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean;
function DeleteFile(const FileName: string): Boolean; inline;
function RenameFile(const OldName, NewName: string): Boolean; inline;
{ IsAssembly returns a boolean value that indicates whether the specified file is a .NET assembly. }
function IsAssembly(const FileName: string): Boolean;
function ChangeFileExt(const FileName, Extension: string): string; overload;
function ChangeFilePath(const FileName, Path: string): string; overload;
function ExtractFilePath(const FileName: string): string; overload;
function ExtractFileDir(const FileName: string): string; overload;
function ExtractFileDrive(const FileName: string): string; overload;
function ExtractFileName(const FileName: string): string; overload;
//获取文件的扩展名
function ExtractFileExt(const FileName: string): string; overload;
//将相对路径表示的文件名转换成绝对路径表示的文件名
function ExpandFileName(const FileName: string): string; overload;
function ExpandFileNameCase(const FileName: string; out MatchFound: TFilenameCaseMatch): string; overload;
function ExpandUNCFileName(const FileName: string): string; overload;
function ExtractRelativePath(const BaseName, DestName: string): string; overload;
function ExtractShortPathName(const FileName: string): string; overload;
function FileSearch(const Name, DirList: string): string;
function DiskFree(Drive: Byte): Int64;
function DiskSize(Drive: Byte): Int64;

function FileDateToDateTime(FileDate: Integer): TDateTime;
function DateTimeToFileDate(DateTime: TDateTime): Integer;
function GetCurrentDir: string;
function SetCurrentDir(const Dir: string): Boolean;
function CreateDir(const Dir: string): Boolean;
function RemoveDir(const Dir: string): Boolean;
//
function StrLen(const Str: PAnsiChar): Cardinal; overload;
function StrLen(const Str: PWideChar): Cardinal; overload;
function StrEnd(const Str: PAnsiChar): PAnsiChar; overload;
function StrEnd(const Str: PWideChar): PWideChar; overload;
function StrMove(Dest: PAnsiChar; const Source: PAnsiChar; Count: Cardinal): PAnsiChar; overload;
function StrMove(Dest: PWideChar; const Source: PWideChar; Count: Cardinal): PWideChar; overload;
function StrCopy(Dest: PAnsiChar; const Source: PAnsiChar): PAnsiChar; overload;
function StrCopy(Dest: PWideChar; const Source: PWideChar): PWideChar; overload;
function StrECopy(Dest: PAnsiChar; const Source: PAnsiChar): PAnsiChar; overload;
function StrECopy(Dest: PWideChar; const Source: PWideChar): PWideChar; overload;
function StrLCopy(Dest: PAnsiChar; const Source: PAnsiChar; MaxLen: Cardinal): PAnsiChar; overload;
function StrLCopy(Dest: PWideChar; const Source: PWideChar; MaxLen: Cardinal): PWideChar; overload;
function StrPCopy(Dest: PAnsiChar; const Source: AnsiString): PAnsiChar; overload;
function StrPCopy(Dest: PWideChar; const Source: UnicodeString): PWideChar; overload;
function StrPLCopy(Dest: PAnsiChar; const Source: AnsiString;
MaxLen: Cardinal): PAnsiChar; overload;
function StrPLCopy(Dest: PWideChar; const Source: UnicodeString;
MaxLen: Cardinal): PWideChar; overload;
function StrCat(Dest: PAnsiChar; const Source: PAnsiChar): PAnsiChar; overload;
function StrCat(Dest: PWideChar; const Source: PWideChar): PWideChar; overload;
function StrLCat(Dest: PAnsiChar; const Source: PAnsiChar; MaxLen: Cardinal): PAnsiChar; overload;
function StrLCat(Dest: PWideChar; const Source: PWideChar; MaxLen: Cardinal): PWideChar; overload;
function StrComp(const Str1, Str2: PAnsiChar): Integer; overload;
function StrComp(const Str1, Str2: PWideChar): Integer; overload;
function StrIComp(const Str1, Str2: PAnsiChar): Integer; overload;
function StrIComp(const Str1, Str2: PWideChar): Integer; overload;
function StrLComp(const Str1, Str2: PAnsiChar; MaxLen: Cardinal): Integer; overload;
function StrLComp(const Str1, Str2: PWideChar; MaxLen: Cardinal): Integer; overload;
function StrLIComp(const Str1, Str2: PAnsiChar; MaxLen: Cardinal): Integer; overload;
function StrLIComp(const Str1, Str2: PWideChar; MaxLen: Cardinal): Integer; overload;
function StrScan(const Str: PAnsiChar; Chr: AnsiChar): PAnsiChar; overload;
function StrScan(const Str: PWideChar; Chr: WideChar): PWideChar; overload;
function StrRScan(const Str: PAnsiChar; Chr: AnsiChar): PAnsiChar; overload;
function StrRScan(const Str: PWideChar; Chr: WideChar): PWideChar; overload;
function TextPos(Str, SubStr: PAnsiChar): PAnsiChar; overload;
function TextPos(Str, SubStr: PWideChar): PWideChar; overload;
function StrPos(const Str1, Str2: PAnsiChar): PAnsiChar; overload;
function StrPos(const Str1, Str2: PWideChar): PWideChar; overload;
function StrUpper(Str: PAnsiChar): PAnsiChar; overload;
function StrUpper(Str: PWideChar): PWideChar; overload;
function StrLower(Str: PAnsiChar): PAnsiChar; overload;
function StrLower(Str: PWideChar): PWideChar; overload;
function StrPas(const Str: PAnsiChar): AnsiString; overload;
function StrPas(const Str: PWideChar): UnicodeString; overload;
function AnsiStrAlloc(Size: Cardinal): PAnsiChar;
function WideStrAlloc(Size: Cardinal): PWideChar;
function StrAlloc(Size: Cardinal): PChar;
function StrBufSize(const Str: PAnsiChar): Cardinal; overload;
function StrBufSize(const Str: PWideChar): Cardinal; overload;
function StrNew(const Str: PAnsiChar): PAnsiChar; overload;
function StrNew(const Str: PWideChar): PWideChar; overload;
procedure StrDispose(Str: PAnsiChar); overload;
procedure StrDispose(Str: PWideChar); overload;
//
function Format(const Format: string;
const Args: array of const): string; overload;
function Format(const Format: string; const Args: array of const;
const FormatSettings: TFormatSettings): string; overload;
procedure FmtStr(var Result: string; const Format: string;
const Args: array of const); overload;
procedure FmtStr(var Result: string; const Format: string;
const Args: array of const; const FormatSettings: TFormatSettings); overload;
function StrFmt(Buffer, Format: PAnsiChar;
const Args: array of const): PAnsiChar; overload;
function StrFmt(Buffer, Format: PAnsiChar; const Args: array of const;
const FormatSettings: TFormatSettings): PAnsiChar; overload;
function StrFmt(Buffer, Format: PWideChar;
const Args: array of const): PWideChar; overload;
function StrFmt(Buffer, Format: PWideChar; const Args: array of const;
const FormatSettings: TFormatSettings): PWideChar; overload;
function StrLFmt(Buffer: PAnsiChar; MaxBufLen: Cardinal; Format: PAnsiChar;
const Args: array of const): PAnsiChar; overload;
function StrLFmt(Buffer: PAnsiChar; MaxBufLen: Cardinal; Format: PAnsiChar;
const Args: array of const;
const FormatSettings: TFormatSettings): PAnsiChar; overload;
function StrLFmt(Buffer: PWideChar; MaxBufLen: Cardinal; Format: PWideChar;
const Args: array of const): PWideChar; overload;
function StrLFmt(Buffer: PWideChar; MaxBufLen: Cardinal; Format: PWideChar;
const Args: array of const;
const FormatSettings: TFormatSettings): PWideChar; overload;
function FormatBuf(var Buffer; BufLen: Cardinal; const Format;
FmtLen: Cardinal; const Args: array of const): Cardinal; overload;
function FormatBuf(var Buffer; BufLen: Cardinal; const Format;
FmtLen: Cardinal; const Args: array of const;
const FormatSettings: TFormatSettings): Cardinal; overload;
function FormatBuf(Buffer: PWideChar; BufLen: Cardinal; const Format;
FmtLen: Cardinal; const Args: array of const): Cardinal; overload;
function FormatBuf(var Buffer: UnicodeString; BufLen: Cardinal; const Format;
FmtLen: Cardinal; const Args: array of const): Cardinal; overload;
function FormatBuf(Buffer: PWideChar; BufLen: Cardinal; const Format;
FmtLen: Cardinal; const Args: array of const;
const FormatSettings: TFormatSettings): Cardinal; overload;
function FormatBuf(var Buffer: UnicodeString; BufLen: Cardinal; const Format;
FmtLen: Cardinal; const Args: array of const;
const FormatSettings: TFormatSettings): Cardinal; overload;
function WideFormat(const Format: WideString;
const Args: array of const): WideString; overload;
function WideFormat(const Format: WideString;
const Args: array of const;
const FormatSettings: TFormatSettings): WideString; overload;
procedure WideFmtStr(var Result: WideString; const Format: WideString;
const Args: array of const); overload;
procedure WideFmtStr(var Result: WideString; const Format: WideString;
const Args: array of const; const FormatSettings: TFormatSettings); overload;
function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format;
FmtLen: Cardinal; const Args: array of const): Cardinal; overload;
function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format;
FmtLen: Cardinal; const Args: array of const;
const FormatSettings: TFormatSettings): Cardinal; overload;
//
function FloatToStr(Value: Extended): string; overload;
function FloatToStr(Value: Extended;
const FormatSettings: TFormatSettings): string; overload;
function CurrToStr(Value: Currency): string; overload;
function CurrToStr(Value: Currency;
const FormatSettings: TFormatSettings): string; overload;
function FloatToCurr(const Value: Extended): Currency;
function TryFloatToCurr(const Value: Extended; out AResult: Currency): Boolean;
function FloatToStrF(Value: Extended; Format: TFloatFormat;
Precision, Digits: Integer): string; overload;
function FloatToStrF(Value: Extended; Format: TFloatFormat;
Precision, Digits: Integer;
const FormatSettings: TFormatSettings): string; overload;
function CurrToStrF(Value: Currency; Format: TFloatFormat;
Digits: Integer): string; overload;
function CurrToStrF(Value: Currency; Format: TFloatFormat;
Digits: Integer; const FormatSettings: TFormatSettings): string; overload;
function FloatToText(BufferArg: PAnsiChar; const Value; ValueType: TFloatValue;
Format: TFloatFormat; Precision, Digits: Integer): Integer; overload;
function FloatToText(BufferArg: PWideChar; const Value; ValueType: TFloatValue;
Format: TFloatFormat; Precision, Digits: Integer): Integer; overload;
function FloatToText(BufferArg: PAnsiChar; const Value; ValueType: TFloatValue;
Format: TFloatFormat; Precision, Digits: Integer;
const FormatSettings: TFormatSettings): Integer; overload;
function FloatToText(BufferArg: PWideChar; const Value; ValueType: TFloatValue;
Format: TFloatFormat; Precision, Digits: Integer;
const FormatSettings: TFormatSettings): Integer; overload;
function FormatFloat(const Format: string; Value: Extended): string; overload;
function FormatFloat(const Format: string; Value: Extended;
const FormatSettings: TFormatSettings): string; overload;
function FormatCurr(const Format: string; Value: Currency): string; overload;
function FormatCurr(const Format: string; Value: Currency;
const FormatSettings: TFormatSettings): string; overload;
function FloatToTextFmt(Buf: PAnsiChar; const Value; ValueType: TFloatValue;
Format: PAnsiChar): Integer; overload;
function FloatToTextFmt(Buf: PAnsiChar; const Value; ValueType: TFloatValue;
Format: PAnsiChar; const FormatSettings: TFormatSettings): Integer; overload;
function FloatToTextFmt(Buf: PWideChar; const Value; ValueType: TFloatValue;
Format: PWideChar): Integer; overload;
function FloatToTextFmt(Buf: PWideChar; const Value; ValueType: TFloatValue;
Format: PWideChar; const FormatSettings: TFormatSettings): Integer; overload;
function StrToFloat(const S: string): Extended; overload;
function StrToFloat(const S: string;
const FormatSettings: TFormatSettings): Extended; overload;
function StrToFloatDef(const S: string;
const Default: Extended): Extended; overload;
function StrToFloatDef(const S: string; const Default: Extended;
const FormatSettings: TFormatSettings): Extended; overload;
function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Extended;
const FormatSettings: TFormatSettings): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Double): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Double;
const FormatSettings: TFormatSettings): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Single): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Single;
const FormatSettings: TFormatSettings): Boolean; overload;
function StrToCurr(const S: string): Currency; overload;
function StrToCurr(const S: string;
const FormatSettings: TFormatSettings): Currency; overload;
function StrToCurrDef(const S: string;
const Default: Currency): Currency; overload;
function StrToCurrDef(const S: string; const Default: Currency;
const FormatSettings: TFormatSettings): Currency; overload;
function TryStrToCurr(const S: string; out Value: Currency): Boolean; overload;
function TryStrToCurr(const S: string; out Value: Currency;
const FormatSettings: TFormatSettings): Boolean; overload;
function TextToFloat(Buffer: PAnsiChar; var Value;
ValueType: TFloatValue): Boolean; overload;
function TextToFloat(Buffer: PAnsiChar; var Value; ValueType: TFloatValue;
const FormatSettings: TFormatSettings): Boolean; overload;
function TextToFloat(Buffer: PWideChar; var Value;
ValueType: TFloatValue): Boolean; overload;
function TextToFloat(Buffer: PWideChar; var Value; ValueType: TFloatValue;
const FormatSettings: TFormatSettings): Boolean; overload;
function HashName(Name: PAnsiChar): Cardinal;
procedure FloatToDecimal(var Result: TFloatRec; const Value;
ValueType: TFloatValue; Precision, Decimals: Integer);
//
function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;
function MSecsToTimeStamp(MSecs: Comp): TTimeStamp;
function TimeStampToMSecs(const TimeStamp: TTimeStamp): Comp;
function EncodeDate(Year, Month, Day: Word): TDateTime;
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
function TryEncodeDate(Year, Month, Day: Word; out Date: TDateTime): Boolean;
function TryEncodeTime(Hour, Min, Sec, MSec: Word; out Time: TDateTime): Boolean;
procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word);
function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day,
DOW: Word): Boolean;
procedure DecodeTime(const DateTime: TDateTime; var Hour, Min, Sec, MSec: Word);
procedure DateTimeToSystemTime(const DateTime: TDateTime; var SystemTime: TSystemTime);
function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime;
function DayOfWeek(const DateTime: TDateTime): Word;
function Date: TDateTime;
function Time: TDateTime;
function GetTime: TDateTime;
function Now: TDateTime;
function CurrentYear: Word;
function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer = 1): TDateTime;
procedure IncAMonth(var Year, Month, Day: Word; NumberOfMonths: Integer = 1);
procedure ReplaceTime(var DateTime: TDateTime; const NewTime: TDateTime);
procedure ReplaceDate(var DateTime: TDateTime; const NewDate: TDateTime);
function IsLeapYear(Year: Word): Boolean;
function DateToStr(const DateTime: TDateTime): string; overload; inline;
function DateToStr(const DateTime: TDateTime;
const FormatSettings: TFormatSettings): string; overload; inline;
function TimeToStr(const DateTime: TDateTime): string; overload; inline;
function TimeToStr(const DateTime: TDateTime;
const FormatSettings: TFormatSettings): string; overload; inline;
function DateTimeToStr(const DateTime: TDateTime): string; overload; inline;
function DateTimeToStr(const DateTime: TDateTime;
const FormatSettings: TFormatSettings): string; overload; inline;
function StrToDate(const S: string): TDateTime; overload;
function StrToDate(const S: string;
const FormatSettings: TFormatSettings): TDateTime; overload;
function StrToDateDef(const S: string;
const Default: TDateTime): TDateTime; overload;
function StrToDateDef(const S: string; const Default: TDateTime;
const FormatSettings: TFormatSettings): TDateTime; overload;
function TryStrToDate(const S: string; out Value: TDateTime): Boolean; overload;
function TryStrToDate(const S: string; out Value: TDateTime;
const FormatSettings: TFormatSettings): Boolean; overload;
function StrToTime(const S: string): TDateTime; overload;
function StrToTime(const S: string;
const FormatSettings: TFormatSettings): TDateTime; overload;
function StrToTimeDef(const S: string;
const Default: TDateTime): TDateTime; overload;
function StrToTimeDef(const S: string; const Default: TDateTime;
const FormatSettings: TFormatSettings): TDateTime; overload;
function TryStrToTime(const S: string; out Value: TDateTime): Boolean; overload;
function TryStrToTime(const S: string; out Value: TDateTime;
const FormatSettings: TFormatSettings): Boolean; overload;
function StrToDateTime(const S: string): TDateTime; overload;
function StrToDateTime(const S: string;
const FormatSettings: TFormatSettings): TDateTime; overload;
function StrToDateTimeDef(const S: string;
const Default: TDateTime): TDateTime; overload;
function StrToDateTimeDef(const S: string; const Default: TDateTime;
const FormatSettings: TFormatSettings): TDateTime; overload;
function TryStrToDateTime(const S: string;
out Value: TDateTime): Boolean; overload;
function TryStrToDateTime(const S: string; out Value: TDateTime;
const FormatSettings: TFormatSettings): Boolean; overload;
function FormatDateTime(const Format: string;
DateTime: TDateTime): string; overload; inline;
function FormatDateTime(const Format: string; DateTime: TDateTime;
const FormatSettings: TFormatSettings): string; overload;
procedure DateTimeToString(var Result: string; const Format: string;
DateTime: TDateTime); overload;
procedure DateTimeToString(var Result: string; const Format: string;
DateTime: TDateTime; const FormatSettings: TFormatSettings); overload;
function FloatToDateTime(const Value: Extended): TDateTime;
function TryFloatToDateTime(const Value: Extended; out AResult: TDateTime): Boolean;
//
function SysErrorMessage(ErrorCode: Cardinal): string;
function GetLocaleStr(Locale, LocaleType: Integer; const Default: string): string; platform;
function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): Char; platform;
procedure GetFormatSettings;
procedure GetLocaleFormatSettings(LCID: Integer;
var FormatSettings: TFormatSettings);
//
function GetModuleName(Module: HMODULE): string;
function ExceptionErrorMessage(ExceptObject: TObject; ExceptAddr: Pointer;
Buffer: PChar; Size: Integer): Integer;
procedure ShowException(ExceptObject: TObject; ExceptAddr: Pointer);
procedure Abort;
procedure OutOfMemoryError;
procedure Beep; inline;
// MBCS functions
function ByteType(const S: AnsiString; Index: Integer): TMbcsByteType; overload;
function ByteType(const S: UnicodeString; Index: Integer): TMbcsByteType; overload;
function StrByteType(Str: PAnsiChar; Index: Cardinal): TMbcsByteType; overload;
function StrByteType(Str: PWideChar; Index: Cardinal): TMbcsByteType; overload;
function ByteToCharLen(const S: AnsiString; MaxLen: Integer): Integer; overload; inline;
function ByteToCharLen(const S: UnicodeString; MaxLen: Integer): Integer; overload; inline; deprecated ‘Use ElementToCharLen.’;
function ElementToCharLen(const S: AnsiString; MaxLen: Integer): Integer; overload;
function ElementToCharLen(const S: UnicodeString; MaxLen: Integer): Integer; overload;
function CharToByteLen(const S: AnsiString; MaxLen: Integer): Integer; overload; inline;
function CharToByteLen(const S: UnicodeString; MaxLen: Integer): Integer; overload; inline; deprecated ‘Use CharToElementLen.’;
function CharToElementLen(const S: AnsiString; MaxLen: Integer): Integer; overload;
function CharToElementLen(const S: UnicodeString; MaxLen: Integer): Integer; overload;
function ByteToCharIndex(const S: AnsiString; Index: Integer): Integer; overload; inline;
function ByteToCharIndex(const S: UnicodeString; Index: Integer): Integer; overload; inline; deprecated ‘Use ElementToCharIndex.’;
function ElementToCharIndex(const S: AnsiString; Index: Integer): Integer; overload;
function ElementToCharIndex(const S: UnicodeString; Index: Integer): Integer; overload;
function CharToByteIndex(const S: AnsiString; Index: Integer): Integer; overload; inline;
function CharToByteIndex(const S: UnicodeString; Index: Integer): Integer; overload; inline; deprecated ‘Use CharToElementIndex.’;
function CharToElementIndex(const S: AnsiString; Index: Integer): Integer; overload;
function CharToElementIndex(const S: UnicodeString; Index: Integer): Integer; overload;
function StrCharLength(const Str: PAnsiChar): Integer; overload;
function StrCharLength(const Str: PWideChar): Integer; overload;
function StrNextChar(const Str: PAnsiChar): PAnsiChar; inline; overload;
function StrNextChar(const Str: PWideChar): PWideChar; overload;
function CharLength(const S: AnsiString; Index: Integer): Integer; overload;
function CharLength(const S: UnicodeString; Index: Integer): Integer; overload;
function NextCharIndex(const S: UnicodeString; Index: Integer): Integer; overload;
function NextCharIndex(const S: AnsiString; Index: Integer): Integer; overload;
function IsLeadChar(C: AnsiChar): Boolean; overload; inline;
function IsLeadChar(C: WideChar): Boolean; overload; inline;
function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean; overload; inline;
function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean; overload; inline;
function IsPathDelimiter(const S: string; Index: Integer): Boolean; overload;
function IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean; overload;
function IncludeTrailingPathDelimiter(const S: string): string; overload;
function IncludeTrailingBackslash(const S: string): string; platform; overload; inline;
function ExcludeTrailingPathDelimiter(const S: string): string; overload;
function ExcludeTrailingBackslash(const S: string): string; platform; overload; inline;
function LastDelimiter(const Delimiters, S: string): Integer; overload;
function FindDelimiter(const Delimiters, S: string; StartIdx: Integer = 1): Integer;
function AnsiCompareFileName(const S1, S2: string): Integer; inline; overload;
function SameFileName(const S1, S2: string): Boolean; inline; overload;
function AnsiLowerCaseFileName(const S: string): string; overload;
function AnsiUpperCaseFileName(const S: string): string; overload;
function AnsiPos(const Substr, S: string): Integer; overload;
function AnsiStrPos(Str, SubStr: PAnsiChar): PAnsiChar; overload;
function AnsiStrPos(Str, SubStr: PWideChar): PWideChar; overload;
function AnsiStrRScan(Str: PAnsiChar; Chr: AnsiChar): PAnsiChar; overload;
function AnsiStrRScan(Str: PWideChar; Chr: WideChar): PWideChar; inline; overload;
function AnsiStrScan(Str: PAnsiChar; Chr: AnsiChar): PAnsiChar; overload;
function AnsiStrScan(Str: PWideChar; Chr: WideChar): PWideChar; overload; inline;
function StringReplace(const S, OldPattern, NewPattern: string;
Flags: TReplaceFlags): string; overload;
function WrapText(const Line, BreakStr: string; const BreakChars: TSysCharSet;
MaxCol: Integer): string; overload;
function WrapText(const Line: string; MaxCol: Integer = 45): string; overload;
function FindCmdLineSwitch(const Switch: string; const Chars: TSysCharSet;
IgnoreCase: Boolean): Boolean; overload;
function FindCmdLineSwitch(const Switch: string): Boolean; overload;
function FindCmdLineSwitch(const Switch: string; IgnoreCase: Boolean): Boolean; overload;
procedure FreeAndNil(var Obj); inline;
// Interface support routines
function Supports(const Instance: IInterface; const IID: TGUID; out Intf): Boolean; overload;
function Supports(const Instance: TObject; const IID: TGUID; out Intf): Boolean; overload;
function Supports(const Instance: IInterface; const IID: TGUID): Boolean; overload;
function Supports(const Instance: TObject; const IID: TGUID): Boolean; overload;
function Supports(const AClass: TClass; const IID: TGUID): Boolean; overload;
function CreateGUID(out Guid: TGUID): HResult; stdcall;
function StringToGUID(const S: string): TGUID;
function GUIDToString(const GUID: TGUID): string;
function IsEqualGUID(const guid1, guid2: TGUID): Boolean; stdcall;
// Package support routines
function LoadPackage(const Name: string): HMODULE; overload;
function LoadPackage(const Name: string; AValidatePackage: TValidatePackageProc): HMODULE; overload;
procedure UnloadPackage(Module: HMODULE);
procedure GetPackageInfo(Module: HMODULE; Param: Pointer; var Flags: Integer;
InfoProc: TPackageInfoProc);
function GetPackageDescription(ModuleName: PChar): string;
procedure InitializePackage(Module: HMODULE); overload;
procedure InitializePackage(Module: HMODULE; AValidatePackage: TValidatePackageProc); overload;
procedure FinalizePackage(Module: HMODULE);
procedure RaiseLastOSError; overload;
procedure RaiseLastOSError(LastError: Integer); overload;
procedure RaiseLastWin32Error; deprecated ‘Use RaiseLastOSError’;
function Win32Check(RetVal: BOOL): BOOL; platform;
//Termination procedure support
procedure AddTerminateProc(TermProc: TTerminateProc);
function CallTerminateProcs: Boolean;
function GDAL: LongWord;
procedure RCS;
procedure RPR;

Delphi中不能更改工程选项处理办法

分类：Delphi, Other 阅读 (2,085) No Responses »

10月 072013

　　刚才在开发的时候，突然不能改变工程的图标和版本等信息了，把dof文件删除掉也不起作用。后来想起来，原来在前几天把工程默认的引用的资源文件的代码去掉了{$R *.res}，打开Project->View Source后，将{$R *.res}加到里面就可以了。如下所示：

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

Delphi版本：Delphi7

Delphi中读取Outlook的数据

分类：Delphi, Other 阅读 (4,139) No Responses »

9月 172013

Delphi中读取Outlook的数据，代码如下：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, activex, ComObj, ComCtrls;

type
  TForm1 = class(TForm)
    btnGetData: TButton;
    lvCalendar: TListView;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    lvContact: TListView;
    procedure btnGetDataClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnGetDataClick(Sender: TObject);
var
  i, J: Integer;
  Outlook, Namespace, Appointment, Calendar: variant;
  Created: Boolean;
  Accept: Boolean;
  MyItems: Variant;
  apptItem, Contacts, cItem: Variant;

const
  olAppointmentItem = 1;

  olFolderCalendar =	9;//	The Calendar folder.
  olFolderConflicts	=19;//	The Conflicts folder (subfolder of Sync Issues folder). Only available for an Exchange account.
  olFolderContacts	=10;//	The Contacts folder.
  olFolderDeletedItems =	3;//	The Deleted Items folder.
  olFolderDrafts =	16;//	The Drafts folder.
  olFolderInbox	=6;//	The Inbox folder.
  olFolderJournal=	11;//	The Journal folder.
  olFolderJunk =	23;//	The Junk E-Mail folder.
  olFolderLocalFailures	=21;//	The Local Failures folder (subfolder of Sync Issues folder). Only available for an Exchange account.
  olFolderManagedEmail =	29;//	The top-level folder in the Managed Folders group. For more information on Managed Folders, see Help in Microsoft Outlook. Only available for an Exchange account.
  olFolderNotes=	12 ;//	The Notes folder.
  olFolderOutbox =	4;//	The Outbox folder.
  olFolderSentMail =	5;//	The Sent Mail folder.
  olFolderServerFailures =	22;//	The Server Failures folder (subfolder of Sync Issues folder). Only available for an Exchange account.
  olFolderSyncIssues =	20;//	The Sync Issues folder. Only available for an Exchange account.
  olFolderTasks=	13;//	The Tasks folder.
  olFolderToDo	=28;//	The To Do folder.
  olPublicFoldersAllPublicFolders=	18;//	The All Public Folders folder in the Exchange Public Folders store. Only available for an Exchange account.
  olFolderRssFeeds =	25;//	The RSS Feeds folder.

begin
  lvCalendar.Clear ;
  Created := False;

  try
    Outlook := CreateOleObject('Outlook.Application');
  except
    Created := True;
  end;

  Namespace := Outlook.GetNamespace('MAPI');
  Calendar := Namespace.GetDefaultFolder(olFolderCalendar);

  for I := 1 to Calendar.Items.count  do begin
    Appointment := Calendar.Items[i];
    try
      With lvCalendar.Items.Add do begin
        Caption := Appointment.Subject;
        SubItems.Add(Appointment.Start);
        SubItems.Add(Appointment.End);
        SubItems.Add(Appointment.Duration);
        SubItems.Add(Appointment.Location);
        SubItems.Add(Appointment.Body);
      end;
    except

    end;
  end;

  Contacts := Namespace.GetDefaultFolder(olFolderContacts);
  for I := 1 to Contacts.Items.Count do begin
    Citem := Contacts.Items[I];
    try
      With lvContact.Items.Add do begin
        Caption := cItem.FirstName;
        SubItems.Add(cItem.LastName);
        SubItems.Add(cItem.MiddleName);
        SubItems.Add(cItem.Gender);
        SubItems.Add(cItem.Birthday);
        SubItems.Add(cItem.Email1Address);
        SubItems.Add(cItem.Email1AddressType);
        SubItems.Add(cItem.HomeTelephoneNumber);
      end;
    except

    end;
  end;

  if Created then
    Outlook := unassigned;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.ActivePageIndex := 0;
end;

end.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, activex, ComObj, ComCtrls;

type

TForm1 = class(TForm)

btnGetData: TButton;

lvCalendar: TListView;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

lvContact: TListView;

procedure btnGetDataClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnGetDataClick(Sender: TObject);

var

i, J: Integer;

Outlook, Namespace, Appointment, Calendar: variant;

Created: Boolean;

Accept: Boolean;

MyItems: Variant;

apptItem, Contacts, cItem: Variant;

const

olAppointmentItem = 1;

olFolderCalendar = 9;// The Calendar folder.

olFolderConflicts =19;// The Conflicts folder (subfolder of Sync Issues folder). Only available for an Exchange account.

olFolderContacts =10;// The Contacts folder.

olFolderDeletedItems = 3;// The Deleted Items folder.

olFolderDrafts = 16;// The Drafts folder.

olFolderInbox =6;// The Inbox folder.

olFolderJournal= 11;// The Journal folder.

olFolderJunk = 23;// The Junk E-Mail folder.

olFolderLocalFailures =21;// The Local Failures folder (subfolder of Sync Issues folder). Only available for an Exchange account.

olFolderManagedEmail = 29;// The top-level folder in the Managed Folders group. For more information on Managed Folders, see Help in Microsoft Outlook. Only available for an Exchange account.

olFolderNotes= 12 ;// The Notes folder.

olFolderOutbox = 4;// The Outbox folder.

olFolderSentMail = 5;// The Sent Mail folder.

olFolderServerFailures = 22;// The Server Failures folder (subfolder of Sync Issues folder). Only available for an Exchange account.

olFolderSyncIssues = 20;// The Sync Issues folder. Only available for an Exchange account.

olFolderTasks= 13;// The Tasks folder.

olFolderToDo =28;// The To Do folder.

olPublicFoldersAllPublicFolders= 18;// The All Public Folders folder in the Exchange Public Folders store. Only available for an Exchange account.

olFolderRssFeeds = 25;// The RSS Feeds folder.

begin

lvCalendar.Clear ;

Created := False;

try

Outlook := CreateOleObject('Outlook.Application');

except

Created := True;

end;

Namespace := Outlook.GetNamespace('MAPI');

Calendar := Namespace.GetDefaultFolder(olFolderCalendar);

for I := 1 to Calendar.Items.count do begin

Appointment := Calendar.Items[i];

try

With lvCalendar.Items.Add do begin

Caption := Appointment.Subject;

SubItems.Add(Appointment.Start);

SubItems.Add(Appointment.End);

SubItems.Add(Appointment.Duration);

SubItems.Add(Appointment.Location);

SubItems.Add(Appointment.Body);

end;

except

end;

Contacts := Namespace.GetDefaultFolder(olFolderContacts);

for I := 1 to Contacts.Items.Count do begin

Citem := Contacts.Items[I];

try

With lvContact.Items.Add do begin

Caption := cItem.FirstName;

SubItems.Add(cItem.LastName);

SubItems.Add(cItem.MiddleName);

SubItems.Add(cItem.Gender);

SubItems.Add(cItem.Birthday);

SubItems.Add(cItem.Email1Address);

SubItems.Add(cItem.Email1AddressType);

SubItems.Add(cItem.HomeTelephoneNumber);

end;

except

end;

if Created then

Outlook := unassigned;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

PageControl1.ActivePageIndex := 0;

end;

end.

Form代码：

object Form1: TForm1
  Left = 450
  Top = 238
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Outlook reader test'
  ClientHeight = 604
  ClientWidth = 985
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object btnGetData: TButton
    Left = 16
    Top = 568
    Width = 161
    Height = 25
    Caption = 'Get Data From Outlook'
    TabOrder = 0
    OnClick = btnGetDataClick
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 961
    Height = 545
    ActivePage = TabSheet2
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'Appointment'
      object lvCalendar: TListView
        Left = 0
        Top = 0
        Width = 953
        Height = 517
        Align = alClient
        Columns = &lt;
          item
            Caption = 'Subject'
            Width = 80
          end
          item
            Caption = 'Start'
            Width = 80
          end
          item
            Caption = 'End'
            Width = 80
          end
          item
            Caption = 'Duration'
            Width = 80
          end
          item
            Caption = 'Location'
            Width = 80
          end
          item
            Caption = 'Body'
            Width = 80
          end&gt;
        GridLines = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Contact'
      ImageIndex = 1
      object lvContact: TListView
        Left = 0
        Top = 0
        Width = 953
        Height = 517
        Align = alClient
        Columns = &lt;
          item
            Caption = 'First Name'
            Width = 90
          end
          item
            Caption = 'Last Name'
            Width = 90
          end
          item
            Caption = 'M Name'
            Width = 90
          end
          item
            Caption = 'Gender'
            Width = 90
          end
          item
            Caption = 'BirthDay'
            Width = 90
          end
          item
            Caption = 'Email1 Addr'
            Width = 90
          end
          item
            Caption = 'Email1 Type'
            Width = 90
          end
          item
            Caption = 'HomeTelePhoneNumber'
            Width = 90
          end&gt;
        GridLines = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
  end
end

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

object Form1: TForm1

Left = 450

Top = 238

BorderIcons = [biSystemMenu]

BorderStyle = bsDialog

Caption = 'Outlook reader test'

ClientHeight = 604

ClientWidth = 985

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

Position = poScreenCenter

OnCreate = FormCreate

PixelsPerInch = 96

TextHeight = 13

object btnGetData: TButton

Left = 16

Top = 568

Width = 161

Height = 25

Caption = 'Get Data From Outlook'

TabOrder = 0

OnClick = btnGetDataClick

end

object PageControl1: TPageControl

Left = 8

Top = 8

Width = 961

Height = 545

ActivePage = TabSheet2

TabOrder = 1

object TabSheet1: TTabSheet

Caption = 'Appointment'

object lvCalendar: TListView

Left = 0

Top = 0

Width = 953

Height = 517

Align = alClient

Columns = <

item

Caption = 'Subject'

Width = 80

end

item

Caption = 'Start'

Width = 80

end

item

Caption = 'End'

Width = 80

end

item

Caption = 'Duration'

Width = 80

end

item

Caption = 'Location'

Width = 80

end

item

Caption = 'Body'

Width = 80

end>

GridLines = True

TabOrder = 0

ViewStyle = vsReport

end

object TabSheet2: TTabSheet

Caption = 'Contact'

ImageIndex = 1

object lvContact: TListView

Left = 0

Top = 0

Width = 953

Height = 517

Align = alClient

Columns = <

item

Caption = 'First Name'

Width = 90

end

item

Caption = 'Last Name'

Width = 90

end

item

Caption = 'M Name'

Width = 90

end

item

Caption = 'Gender'

Width = 90

end

item

Caption = 'BirthDay'

Width = 90

end

item

Caption = 'Email1 Addr'

Width = 90

end

item

Caption = 'Email1 Type'

Width = 90

end

item

Caption = 'HomeTelePhoneNumber'

Width = 90

end>

GridLines = True

TabOrder = 0

ViewStyle = vsReport

end

Svn "Unable to connect to a repository at URL" 错误

分类：Other, Others 阅读 (6,881) No Responses »

4月 122013

1. 今天check out项目的时候，svn突然报了一个如下错误：

Checkout from http://127.0.0.1/financing, revision HEAD, Fully recursive, Externals included
Unable to connect to a repository at URL 'http://127.0.0.1/financing'
The OPTIONS request returned invalid XML in the response: XML parse error at
 line 1: no element found (http://127.0.0.1/financing)

Checkout from http://127.0.0.1/financing, revision HEAD, Fully recursive, Externals included

Unable to connect to a repository at URL 'http://127.0.0.1/financing'

The OPTIONS request returned invalid XML in the response: XML parse error at

line 1: no element found (http://127.0.0.1/financing)

在网上查了一上解决办法为：

在地址和项目名称之间加上svn，本例中为如下：http://127.0.0.1/svn/financing，再进行check out就没问题了

SVN客户端：TortoiseSVN 1.7.11, Build 23600 – 64 Bit, Subversion 1.7.8

SVN服务端：VisualSVN Server Manager Version: 2.5.9

Listview实现移动功能

分类：Other 阅读 (2,261) No Responses »

1月 122013

在Delphi的ListView中实现向上移动或者向下移动某行的功能，代码如下：

procedure TForm1.ExchangeItem(lv: TListView; const iFrom, iTo: Integer);
var
  tempItem: TListItem;
begin
  if iFrom = iTo then Exit;
  if (iTo < 0) or (iTo >= lv.Items.Count) then Exit;

  lv.Items.BeginUpdate;
  try
    tempItem := TListItem.Create(lv.Items);
    tempItem.Assign(lv.Items.Item[iFrom]);
    lv.Items.Item[iFrom].Assign(lv.Items.Item[iTo]);
    lv.Items.Item[iTo].Assign(tempItem);
    lv.ItemIndex := lv.Items[iTo].Index;
    tempItem.Free;
  finally
    lv.Items.EndUpdate
  end;
end;

procedure TForm1.btnMoveDownClick(Sender: TObject);
begin
  ExchangeItem(lvSE, lvSE.Selected.Index,  lvSE.Selected.Index + 1);
end;

procedure TForm1.btnMoveUpClick(Sender: TObject);
begin
  ExchangeItem(lvSE, lvSE.Selected.Index,  lvSE.Selected.Index - 1);
end;

procedure TForm1.ExchangeItem(lv: TListView; const iFrom, iTo: Integer);

var

tempItem: TListItem;

begin

if iFrom = iTo then Exit;

if (iTo < 0) or (iTo >= lv.Items.Count) then Exit;

lv.Items.BeginUpdate;

try

tempItem := TListItem.Create(lv.Items);

tempItem.Assign(lv.Items.Item[iFrom]);

lv.Items.Item[iFrom].Assign(lv.Items.Item[iTo]);

lv.Items.Item[iTo].Assign(tempItem);

lv.ItemIndex := lv.Items[iTo].Index;

tempItem.Free;

finally

lv.Items.EndUpdate

end;

procedure TForm1.btnMoveDownClick(Sender: TObject);

begin

ExchangeItem(lvSE, lvSE.Selected.Index, lvSE.Selected.Index + 1);

end;

procedure TForm1.btnMoveUpClick(Sender: TObject);

begin

ExchangeItem(lvSE, lvSE.Selected.Index, lvSE.Selected.Index - 1);

end;

XML的NodeName的特殊值

分类：Other 阅读 (2,594) 1 Response »

12月 242012

今天写一个用Java读取XML文件的代码的时候，突然在for循环里发现NodeName=#text的情况，翻来覆去的看XML并没有发现有NodeName为#text的节点。GG了一下才发现原来XML的NodeName并不只是按“<”右边的节点名来定义的，在W3C的文档中还定义了一些特殊的NodeName。

下面先看一下W3C文档中对NodeName的定义

Interface	`nodeName`
`Element`	The tag name, eg. `HTML`
`Attr`	The attribute name, eg. `id`
`Text`	`#text`
`CDATASection`	`#cdata-section`
`EntityReference`	The name of the entity reference, eg. `amp`
`Entity`	The entity name, eg. `&`
`ProcessingInstruction`	The target of the processing instruction, eg.`xml-stylesheet`
`Comment`	`#comment`
`Document`	`#document`
`DocumentType`	The name of the document type, eg. `html`
`DocumentFragment`	`#document-fragment`
`Notation`	The notation name

本人今天使用的XML如下：

<?xml version="1.0" encoding="utf-8"?>
<UserList>
  <User Name="Liu" ID="1">
    <Website><![CDATA[http://svn1.bcoder.com]]></Website>
    <Intro>I come from hebei.</Intro>
  </User>
  <User Name="Zhang" ID="2">
    <Website><![CDATA[http://www.desktoptool.net]]></Website>
    <Intro>I come from Shandong.</Intro>
  </User>
</UserList>

<?xml version="1.0" encoding="utf-8"?>

<Intro>I come from hebei.</Intro>

</User>

<Intro>I come from Shandong.</Intro>

</User>

</UserList>

在两个<User..>的前面各有一个#text类型的Node，乍一看什么都没有啊？其实<UserList>和下行的<User…>之间是有一堆的空格的，于是这堆空格就被当成了#text类型。将XML改成如下样子后就没有那两个#text类型的Node了

<?xml version="1.0" encoding="utf-8"?>
<UserList><User Name="Liu" ID="1">
    <Website><![CDATA[http://svn1.bcoder.com]]></Website>
    <Intro>I come from hebei.</Intro>
  </User><User Name="Zhang" ID="2">
    <Website><![CDATA[http://www.desktoptool.net]]></Website>
    <Intro>I come from Shandong.</Intro>
  </User>
</UserList>

<?xml version="1.0" encoding="utf-8"?>

<Intro>I come from hebei.</Intro>

</User><User Name="Zhang" ID="2">

<Intro>I come from Shandong.</Intro>

</User>

</UserList>

现在也明白为什么有的地方会用如下的判断节点类型的代码了

for (int i=0; i<uNodeList.getLength()- 1; i++){
  if (uNodeList.item(i).getNodeType() == Node.DOCUMENT_TYPE_NODE){
    //...
  }
}

for (int i=0; i<uNodeList.getLength()- 1; i++){

if (uNodeList.item(i).getNodeType() == Node.DOCUMENT_TYPE_NODE){

//...

}

Eclipse快捷键大全

分类：Other 阅读 (2,210) No Responses »

12月 192012

调试

F11 开始调试
Ctrl+F11 开始执行程序
Ctrl+Shift+B 创建/取消断点
F5 步进调试，如遇子函数进入子函数中调试
F6 步进调试，不进入子函数调试
F7 跳出本函数并定位到调用本函数的地方
F8 运行程序
Ctrl+F2 结束调试

编辑器

Ctrl+Shift+O 管理Import部分，将代码中需要引入但还没引入的单元添加到import头
Ctrl+D 删除本行代码
Ctrl+M 最大化面板窗口
F3 跳转代码到光标所在类的定义处
Alt+左方向键回到上一次按F3的地方
Ctrl+Shift+1 添加书签（本人自定义）
Alt+Shift+S 打开Source菜单

Html特殊字符编码表

分类：Other 阅读 (2,587) No Responses »

10月 262012

1. HTML码都以&开始并以;结尾

2. 记住一些字符的英语全拼可以方便记住这些符号，比如：< lt 为less than, > gt 为greater than, 空格 nbsp为Non-breaking Space

字符	HTML码	十进制码	字符	HTML码	十进制码	字符	HTML码	十进制码
Α	Α	Α	Β	Β	Β	Γ	Γ	Γ
Δ	Δ	Δ	Ε	Ε	Ε	Ζ	Ζ	Ζ
Η	Η	Η	Θ	Θ	Θ	Ι	Ι	Ι
Κ	Κ	Κ	Λ	Λ	Λ	Μ	Μ	Μ
Ν	Ν	Ν	Ξ	Ξ	Ξ	Ο	Ο	Ο
Π	Π	Π	Ρ	Ρ	Ρ	Σ	Σ	Σ
Τ	Τ	Τ	Υ	Υ	Υ	Φ	Φ	Φ
Χ	Χ	Χ	Ψ	Ψ	Ψ	Ω	Ω	Ω
α	α	α	β	β	β	γ	γ	γ
δ	δ	δ	ε	ε	ε	ζ	ζ	ζ
η	η	η	θ	θ	θ	ι	ι	ι
κ	κ	κ	λ	λ	λ	μ	μ	μ
ν	ν	ν	ξ	ξ	ξ	ο	ο	ο
π	π	π	ρ	ρ	ρ	?	&sigmaf;	ς
σ	σ	σ	τ	τ	τ	υ	υ	υ
φ	φ	φ	χ	χ	χ	ψ	ψ	ψ
ω	ω	ω	ϑ	&thetasym;	ϑ	ϒ	&upsih;	ϒ
ϖ	ϖ	ϖ	•	•	•	…	…	…
′	′	′	″	″	″	￣	&oline;	‾
⁄	&frasl;	⁄	℘	&weierp;	℘	ℑ	&image;	ℑ
ℜ	&real;	ℜ	™	™	™	ℵ	&alefsym;	ℵ
←	←	←	↑	↑	↑	→	→	→
↓	↓	↓	↔	↔	↔	↵	&crarr;	↵
⇐	⇐	⇐	⇑	&uArr;	⇑	⇒	⇒	⇒
⇓	&dArr;	⇓	⇔	⇔	⇔	∀	∀	∀
∂	∂	∂	∃	∃	∃	∅	∅	∅
∇	∇	∇	∈	∈	∈	∉	∉	∉
∋	&ni;	∋	∏	∏	∏	∑	∑	−
−	−	−	∗	&lowast;	∗	√	√	√
∝	&prop;	∝	∞	∞	∞	∠	&ang;	∠
∧	&and;	⊥	∨	&or;	⊦	∩	∩	∩
∪	∪	∪	∫	∫	∫	∴	&there4;	∴
～	&sim;	∼	≅	&cong;	≅	≈	≈	≅
≠	≠	≠	≡	&equiv;	≡	≤	≤	≤
≥	≥	≥	⊂	⊂	⊂	⊃	⊃	⊃
⊄	&nsub;	⊄	⊆	&sube;	⊆	⊇	&supe;	⊇
⊕	&oplus;	⊕	⊗	&otimes;	⊗	⊥	&perp;	⊥
⋅	⋅	⋅	⌈	&lceil;	⌈	⌉	&rceil;	⌉
⌊	&lfloor;	⌊	⌋	&rfloor;	⌋	◊	&loz;	◊
♠	&spades;	♠	♣	&clubs;	♣	♥	&hearts;	♥
♦	&diams;	♦				¡	¡	¡
￠	¢	¢	￡	£	£	¤	¤	¤
￥	¥	¥	\|	¦	¦	§	§	§
¨	¨	¨	©	©	©	a	ª	ª
«	«	«	¬	¬	¬
®	®	®	ˉ	¯	¯	°	°	°
±	±	±	2	²	²	3	³	³
′	´	´	μ	µ	&#181	“	"	"
<	<	<	>	>	>	‘		'
&	&

Page 1 of 2 1 2 Older Entries