2007年4月30日 星期一

FCS-簡單範例-Hello World

內容來源:Luar's Flash遊樂場


這是最簡單的範例,當Flash連到FlashCom中一個Application後,它會Send一句Hello World給Flash。

在applications下建立一個叫helloworld Folder後,建立一個純文字檔main.asc,裡面輸入:
application.onConnect = function(newClient)
{
application.acceptConnection(newClient);
newClient.call("msgFromSrvr", false, "Hello World");
}

它作用時是當有Flash影片連上它時,它就會Call那個Flash中一個負責與FlashCom聯繫的NetConnection Object的一個自定Method叫msgFromSrvr,並傳出參數"Hello World"。

在Flash MX中,Frame 1輸入:
fc = new NetConnection();
fc.connect("rtmp:/helloworld");
fc.msgFromSrvr = function(msg)
{
trace(msg);
};

測試影片,就可以在Output窗口中見到Hello World。 注意:
新手經常面對的問題,就是經常來回修改Flash MX和main.asc中的ActionScript,但測試影片卻沒有改應,原因是因為凡main.asc經過修改後,都必須Reload那個Application才有效。

方法是在Flash MX Menu Bar選Window>Communication App Inspector,登入後在Active Application Instances選你那個Application,例如:helloworld,按View Detail後,再按Reload App,按OK,再測試影片便可。

2007年4月27日 星期五

無法安裝IIS

內容來源:http://www.atan.cn/article.asp?id=485

安裝時會顯示找不到staxmem.dll,但光碟裡卻有此檔案…
解決方法:
 開始->執行:輸入 esentutl /p %windir%/security/database/secedit.sdb  
按確定即可

用Google建立自已網站的搜尋引擎

http://www.google.com/coop/

Delphi 相關網站

Borland : http://www2.borland.com.tw/tw/reference.html

2007年4月24日 星期二

About Hotfix and Service Pack

Service Pack 可讓產品保持最新狀態、修正已知問題,並可擴充電腦功能。其中含有工具、驅動程式及更新,包括產品發行之後所做的加強。為了方便下載起見,這些項目都會封裝在一起。Service Pack 是產品特有的,亦即每一個產品各有其獨立的 Service Pack,但同一份 Service Pack 常被用在相同產品的不同版本上;例如,同一份 Service Pack 即可用來更新 Windows 2000 Server 及 Windows 2000 Professional。  

Service Pack 也是累加性的, 新的 Service Pack 含有先前各 Service Pack 的所有修正程式,外加之後所建議的任何新修正程式及系統修改。因此安裝最新的 Service Pack 後,就不需要安裝先前的各版本。

Quick Fix Engineering (QFE ) 是 Microsoft 公司內負責撰寫 Hotfix (產品程式碼修補程式) 的一個小組。當個別客戶遭遇嚴重問題,且沒有可用的解決方式時,便需提供 Hotfix。有些技術文件會將 Hotfix 稱為 QFE。  

Hotfix 並未接受廣泛的迴歸測試,且只處理特定問題,因此只有在遇到 Hotfix 可以處理的問題,且在使用現行軟體版本加上最新的 Service Pack 時,才應套用 Hotfix。Hotfix 累積到一定數目之後,會定期包裝成 Service Pack,此時這些 Hotfix 會接受比較嚴格的測試,並公佈讓客戶使用。安全性修補程式  

安全性修補程式的目的在於填補安全性漏洞。意圖闖入系統的駭客會去尋找這些安全性漏洞。安全性修補程式和 Hotfix 類似,但屬於強制性,只要條件符合,就必須儘快部署。許多已發行的安全性更新都是針對用戶端 (常是瀏覽器) 的問題,這些更新可能與伺服器安裝有關,也可能無關。您必須以用戶端修補程式更新目前的用戶端基礎元件,並以系統管理修補程式更新伺服器上的用戶端建置區。

大部份的 Hotfix 名稱都透露了此修正程式的重要資訊。
例如,以下是一個典型的 Hotfix 名稱 Q292435_W2K_SP3_x86_en.EXE,
其中:# Q292435 是知識庫中此 Hotfix 相關文件的編號。
# W2K 是指此 Hotfix 與 Microsoft Windows 2000 相關。
# SP3 是應該包含此 Hotfix 的 Service Pack。
# x86 是此 Hotfix 適用的處理器架構。
# en 是指語言 (英文)。

注意事項:檔名中只有 QXXXXXX.exe,後面沒有 W2K_SP3_x86 的 Hotfix,則是應用程式 (如 Internet Explorer) 所特有。Hotfix 也支援許多指令行參數,可用來控制 Hotfix 安裝程序的行為。

Hotfix 可執行檔的參數說明
-y 執行解除安裝
-f 關機時強迫應用程式關閉
-n 不建立解除安裝目錄
-z 更新完成後不重新開機
-q 無訊息模式 — 沒有使用者介面
-m 自動模式
-l 列出已安裝的 Hotfix

注意事項:檔名為 QXXXXXX.exe 的應用程式特定 Hotfix 通常不會支援上述所有的參數。

如果將安裝多重 Hotfix 的程序寫成指令碼,則可利用 -q 和 -z 參數讓使用者無需介入,且不強迫重新開機。  

在安裝多個 Hotfix 時,通常每安裝好一個,就得重新開一次機。這是因為系統無法替換被鎖定或使用中的檔案,因此要替換的檔案會先置於佇列中,等到系統重新開機後再替換。QChain 工具可讓您將數個 Hotfix 串連起來,只要最後重新開機一次,不需要每次都重開機。如果要使用 QChain,請在安裝 Hotfix 時加上 -z 參數,讓安裝程式完成後不會重新開機。然後執行 QChain.exe,最後再重新開機。

2007年4月23日 星期一

HTML-Structure

內容來源:http://wiki.moztw.org/index.php/HTML-Structure#.E4.B8.80.E5.80.8B.E5.9F.BA.E6.9C.AC.E7.9A.84_HTML_.E6.96.87.E4.BB.B6.E7.B5.90.E6.A7.8B
定義文件的類別
文件類別的宣告,代表了指明你所使用的 html 規格,最常用的文件類別有以下三種 DTD(Document Type Definition)。這是一份標準的 html 文件一定要放在開頭的。
Strict:對於文件語法的要求較為嚴謹的規格。

Transitional:這是比較鬆散的規格,對於語法的嚴謹度要求比較寬鬆。

Frameset:這個規格是專門用在含有框架頁的網頁上。

2007年4月18日 星期三

用PhotoImpact製作ICO

第一步:開啟圖檔



第二步:調整大小為32*32(調整->調整大小)


第三步:轉換色階為16色(調整->轉換影像類型->最佳化16色)

第四步:存檔



2007年4月16日 星期一

Delphi 使程式碼簡潔的忠告

內容來源:http://www.delphiguys.com/rensheng/2007-2-11/ShiDaiMaJianJiDe-5-TiaoZhongGao_0.htm

一、Boolean值操作應該是直接的
if If_Love_Delphi then
Result:=True
else
Result:=False;
改成這樣寫比較好:
Result:= If_Love_Delphi;

二、避免使用 if/then/if ,而用and来代替
例1:
if If_Love_Delphi then
if If_Love_Linux then
TryKylix(Now);
改成這樣寫比較好:
if If_Love_Delphi and If_Love_Linux then
TryKylix(Now);
例2:
if If_Love_Delphi then
if If_Love_Linux then
Result:=True;
改成這樣寫比較好:
Result:= If_Love_Delphi and If_Love_Linux;

三、判斷boolean值時不需用"=True","=False"
if (If_Love_Delphi=True) and
(If_Love_Linux=False) then
DoNotTryLinux;
改成這樣寫比較好:
if If_Love_Delphi and
not If_Love_Linux then
DoNotTryLinux;

四、盡量不要用"+"來進行字串合併
ShowMessage('在下身高'+IntToStr(iHeight)+'米,体重'+IntToStr(iWeight)+'公斤。');
改成這樣寫比較好:
ShowMessage(Format('在下身高%d,体重%d。', [iHeight,iWeight]));

五、盡量多用With,它不儘效率高,而且使程式碼更加容易讀
if Sender if TEdit then
if (TEdit(Sender).Text=') or
(TEdit(Sender).Text[TEdit(Sender).SelStart]=') or
(TEdit(Sender).SelLength=Length(TEdit(Sender).Text)) and
(Key in ['a'..'z']) then
Key:=UpperCase(Key);
改成這樣寫比較好:
if Sender is TEdit then
with Sender as TEdit do
if (Text=') or (Text[SelStart]=') or
(SelLength=Length(Text)) and (Key in ['a'..'z'] then
Key:=UpCase(Key);

根據瀏覽器類型調用css樣式

內容來源:http://www.shou-nao.com/tw/charles/article.cfm?ATC_ID=E477A780-934F-2EAA-1011F1F9BE3E3302


if (window.navigator.userAgent.indexOf("MSIE")>=1)
{
//如果瀏覽器为IE
setActiveStyleSheet("default.css");
}else{
if (window.navigator.userAgent.indexOf("Firefox")>=1)
{
//如果瀏覽器为Firefox
setActiveStyleSheet("default2.css");
}else{
//如果瀏覽器为其他
setActiveStyleSheet("newsky.css");
}
}

function setActiveStyleSheet(title){
document.getElementsByTagName("link")[0].href="style/"+title;
}




解釋:
如果瀏覽器为IE,則用default.css
如果瀏覽器为Firefox,則用default2.css
如果瀏覽器为其他,則用newsky.css

2007年4月13日 星期五

修改文件的屬性!

內容來源:http://72.14.235.104/search?q=cache:6vHTe1erPScJ:topic.csdn.net/t/20020718/08/882754.html

var
f:integer;
begin
f := fileGetAttr('c:\x.sys');//获得文件属性;
if f and faHidden = 0 then //是否有隐藏属性;
fileSetAttr('C:\x.sys',faHidden);//设置隐藏;
end;
faReadOnly :只读
faHidden :隐藏
faSysFile :系统
faVolumeID :卷标
faDirectory :目录
faArchive :存档
faAnyfile ;所有类型

Delphi 7.0常用函数速查手册

內容來源:Delphi 7.0常用函数速查手册

FloatToStr:將“浮點型態”轉成“字串型態”。
EX:
Edit1.Text := FloatToStr(1.981);

IntToStr:將“整數型態”轉成“字串型態”。
EX:
S := IntToStr(10);(注:S为String型態。)

IntToHex:將“十進制”轉成“十六進制”。該函數有二个参數。第一個参數为要轉換的十進制數值,第二個参數是指定使用多少位來顯示十六進制數值。
EX:
 Edit1.Text := IntToHex('100', 2); =>64
注意:Delphi没有提供專門的“十六進制”轉為“十進制”的函數。使用StrToInt函數可以實現這個功能。如:I := StrToInt('S\' + '64'); 這時I等於100。加上一個'S\'即可將“十六進制”轉為“十進制”。


StrToInt:將“字串型態”轉成“整數型態”。
EX:
 I := StrToInt('100');
注意:不能轉換如 StrToInt('ab')或StrToInt('好')這樣的型態,因為他們並不是數字型態。


StrToFloat:將“字串型態”轉成“浮點數型態”。
EX:
N := StrToFloat(Edit1.Text);
注意:Edit1.Text中的内容为1.981(凡在Edit控件中顯示的文本均為字串)。N为Double类型,用于保存轉換後的浮點數型態數直。


Copy:该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串),第二个参数是从字符串某一处开始复制,第三个参数是要复制字符串的长度(即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。
EX:
var
    S: String;
    MyStr: String; // 保存新的字符串
  begin
    S := 'I Love China!';
  //下面将获取I Love China中的“Love”字符串。
  MyStr := Copy(S, 3, 4);
  end;
  执行结果,MyStr等于“Love”,“Love”字符串在“I Love China!”中第3个位置开始,所以第二个参数为3,“Love”一共有4个字符,所以第三个参数为4。


Concat:连接两个或多个字符串为一个字符串。
EX:
var
    S1, S2: String;
  begin
    S1 := Concat('A', 'B'); // 连接两个字符串,S1变量等于AB。
    S2 := Concat('Borland', ' Delphi', ' 7.0'); // 连接三个字符,S2变量等于Borland Delphi 7.0。
  end;


Delete:删除字符串中指定的字符串。该函数有三个参数。第一个参数为要进行处理的字符串,第二个参数为从何处开始删除,第三个参数为删除的字符个数。
EX:
var
    S: String;
  begin
    S := 'I Like Reading CPCW.';
    // 下面的代码将删除S变量中的“C”字符。
    Delete(S, 16, 1);
  end;
  此时S变量则是I Like Reading PCW.(“C”已经不存在了)。


High:返回数组下标的最大值。
EX:
var
    arrText: array[0..9] of Char;
    i: Integer;
  begin
    i := High(arrText); // i的值则为9
  end;


Insert:插入一个字符(串)。该函数有三个参数。第一个参数为要插入的字符(串),第二个参数为被插入字符串(源字符串),第三个参数为从何处插入。
EX:
 var
    S: String;
  begin
    S := 'Wat is your name?';
    // 上面句子中的What单词查一个“h”字符,下面使用Insert函数将h添加进去。
    Insert('h', S, 2); // 将“h”从第2位处插入。
  end;

LeftStr(所在单元:StrUtils): 返回字符串左边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串,第二个参数为指定个数。
EX:
 var
    S, A: String;
  begin
    S := 'MSN Messenger';
   A := LeftStr(S, 3); // 从最左边开始,获取左边的三个字符。因此A变量则等于MSN。
  end;

Length:用于统计指定字符串的长度(即个数)
EX:
var
  nLen1, nLen2: Integer; // 用于保存字符串长度
  begin
    nLen1 := Length('CPCW');
  nLen2 := Length('电脑报');
  end;
  执行结果,nLen1等于4,nLen2等于6。由于一个汉字相当于两个字符的长度,所以3个汉字的长度为6。

Low:返回数组下标的最小值
EX:
var
    arrText: array[1..9] of Char;
    i: Integer;
  begin
    i:= High(arrText); // i的值则为1
  end;

LowerCase:将字符(串)中的英文字符转换为小写
EX:
var
    S, A: String;
  begin
    S := 'ABC';
    A := UpperCase(S); // 经过UpperCase函数转换后,A则等于abc。
  end;

MidStr(所在单元:StrUtils):返回指定范围内的字符串。该函数有三个参数。第一个参数为源字符串,第二个参数为起点,第三个参数为结束点。通过第二、第三个参数则可指定要复制字符串的范围。
Copy函数与此函数类似。MidStr主要用于处理含有中文字符的字符串。
EX:
var
    S: String;
    H: String;
  begin
    S := MidStr('China', 1, 2); // S变量为Ch
    H := MidStr('电脑报', 1, 1); // H变量为“电”。如果使用Copy函数,则应是H := Copy('电脑报, 1, 2),否则返回的将不是“电”字。因此在使用操作含有中文的字符串时,最好使用MidStr。
  end;

Pos:查找字符(串)所在位置。该函数有二个参数。第一个参数为要查找的字符(串),第二个参数为被查找字符(串)。
EX:
var
    nPos: Integer; // 用于保存查找的字符所在位置
  begin
    nPos := Pos('Like', 'I Like Reading!');
  end;
  此时nPos等于3。如果没有查找到,则nPos为0。
  注意:Pos函数在查找时是要区分字符大小的。如果要实现不区分大小,那么需要使用UpperCase或LowerCase函数将两个参数的字符(串)转换为“大写”或“小写”再进行查找。
  另外还有一个查找字符(串)的函数----AnsiPos,该函数的使用方法与Pos函数完全一样。当你查找的是汉字时,最好使用AnsiPos函数。

RightStr(所在单元:StrUtils) :返回字符串右边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串,第二个参数为指定个数
EX:
var
    S, A: String;
  begin
    S := 'MSN Messenger';
    A := RightStr(S, 3); // 从最右边开始,获取右边的三个字符。因此A变量则等于ger。
  end;


SetLength:设置字符串或动态数组长度。该函数有两个参数。第一个参数为要设置的字符串变量或动态数组变量,第二个参数为指定的长度,其取值范围在0到255之间。
EX:
var
    S: String;
    arrText: array of Char; // 定义一个动态数组
  begin
    SetLength(S, 10); // 当设置后,S变量只能赋值长度为10的字符串。
    SetLength(arrText, 10); // 只有使用SetLength为动态数组分配内存空间后才能使用动态数组。这句代码的作用相当于arrText: array[0..9] of Char
  end;

StrPCopy:将字符串复制到字符数组中。该函数有两个参数。第一个参数为“目标数组”,第二个参数为“字符串”。
EX:
var
    arrChar: array[0..255] of Char; // 这里声明了长度为256的Char型数组
  begin
    StrPCopy(arrChar, 'Come on, baby!');
  end;


Trim:删除字符串左右两边的空格(无论左右两边有多少个空格均被全部删除)。
EX:
var
    S: String;
  begin
    S := ' Delphi 7.0 ';
    S := Trim(S);
  end;

TrimLeft:删除字符串左边的空格(无论左边有多少个空格均被全部删除)。
EX:
S := TrimRight('Delphi ');


UpperCase:将字符(串)中的英文字符转换为大写。
EX:
var
    S, A: String;
  begin
    S := 'abc';
    A := UpperCase(S); // 经过UpperCase函数转换后,A则等于ABC。
  end;

Append:追加内容到文件中。文件必须要存在
EX:
var
    S: String;
    F: TextFile;
  begin
    S := 'This is a book.';
  AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
    Append(F); // 以追加的方式打开文件
    Writeln(F, S); // 将S变量中的内容追加到文本尾后。
    CloseFile(F); // 关闭文件
  end;

AssignFile:与指定的文件建立连接
EX:
var
    F: TextFile; // 声明文本文件类型变量
  begin
    AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
  end;

ChDir:改变当前目录(文件夹)。
EX:
var
    sDir: String;
  begin
    sDir := 'C:\Windows';
    ChDir(sDir); // 此时,系统的当前目录则为C:\Windows目录。
  end;

CloseFile:关闭文件。当对文件的操作完成后,应该使用CloseFile函数关闭打开的文件。
EX:
var
    S: String;
    AllText: String;
    F: TextFile;
  begin
  AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
    Reset(F); // 打开文件
    while not EOF(F) do begin // 使用While循环,一直判断是否到了文件未尾
     Readln(F, S); // 读取一行文本
     AllText := AllText + S;
    end;
    CloseFile(F); // 关闭文件
  end;

DeleteFile:删除指定的文件。该函数只有一个参数。此参数为欲删除文件的完整路径。如果删除成功,则返回True。若删除失败、或文件不存在则返回False。
EX:
var
    IsOK: Boolean; // 用于保存删除状态
  begin
    IsOK := DeleteFile('C:\My Documents\Index.html'); // 函数执着后,将结果返回给IsOK变量。如果IsOK变量为True,则表示文件删除成功。
    if IsOK then ShowMessage('文件删除成功!')
    else ShowMessage('文件删除失败!');
  end;

DirectoryExists:检测指定的文件夹否存在。如果存在则返回True,反之则为False。
EX:
var
    IsExists: Boolean;
  begin
    IsExists := DirectoryExists ('C:\Windows');
    if IsExists then ShowMessage('Windows文件夹存在!')
    else ShowMessage('Windows文件夹不存在!');
  end


DiskFree:获取指定磁盘的剩余空间。该函数只有一个参数。该参数用于指定要获取剩余空间的磁盘号。当参数为0时,表示获取当前磁盘的剩余空间,1为A盘,2为B盘,以此类推。如果返回值为-1,表示指定的磁盘无效。
EX:
var
    FreeSize: Int64;
  begin
    FreeSize := DiskFree(3); // 获取C盘中的剩余空间。返回的值是以“字节”为单位的。
  end;

DiskSize:获取指定磁盘的空间。该函数只有一个参数。该参数用于指定要获取磁盘空间的磁盘号。当参数为0时,表示获取当前磁盘的空间,1为A盘,2为B盘,以此类推。如果返回值为-1,表示指定的磁盘无效。
EX:
var
    DiskSize: Int64;
  begin
    DiskSize:= DiskSize(3); // 获取C盘的空间。返回的值是以“字节”为单位的。
  end;

EOF:判断文件指针是否移动到了文件未尾。当EOF函数返回值为True时,则不可以使用Readln函数进行读取文件了。
EX:
var
    S: String;
    AllText: String;
    F: TextFile;
  begin
  AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
    Reset(F); // 打开文件
    while not EOF(F) do begin // 使用While循环,一直判断是否到了文件未尾
     Readln(F, S); // 读取一行文本
     AllText := AllText + S;
    end;
  end;

Erase:删除文件
EX:
var
    F: File;
  begin
  AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
    Reset(F); // 打开文件
    CloseFile(F); // 关闭文件
    Erase(F); // 删除文件。在删除文件之前必须先关闭文件。
  end;

FileExists:检测指定的文件否存在。如果存在则返回True,反之则为False
EX:
var
    IsExists: Boolean;
  begin
    IsExists := FileExists('C:\Test.txt');
    if IsExists then ShowMessage('该文件存在!')
    else ShowMessage('该文件不存在!');
  end;


FileSize:获取文件大小。返回的结果是字节为单位
EX:
var
    F: file of Byte;
    nSize: Longint;
  begin
  AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
    Reset(F); // 打开文件
    nSize := FileSize(F); // 获取文件大小。
    CloseFile(F); // 关闭文件
  end;

ForceDirectories:创建新的子目录。路径中不存在的目录将一同创建
EX:
ForceDirectories('C:\Flash\MyFolder'); // 如果Flash文件夹本身不存的话,那么将会先创建Flash文件夹,然后再创建MyFolder文件夹

MkDir:建一个新的子目录(文件夹)。
EX:
MkDir('C:\MyFolder'); // 在C盘根目录中创建了一个名叫MyFolder的文件夹。
  需要注意的是,如果在本身不存在的目录中创建子目录将会失败。比如C盘根本不存在Flash文件夹,写成MkDir('C:\Flash\MyFolder');这样将不能成功创建MyFolder文件夹。

Reset:以只读方式打开文件
EX:
var
    F: TextFile; // 声明文本文件类型变量
  begin
    AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
    Reset(F); // 打开文件
  end;

Rewrite:以可写方式打开文件。如果文件不存在,将会自动创建。使用该函数,将会覆盖文件中的所有内容。
EX:
var
    F: TextFile; // 声明文本文件类型变量
  begin
    AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
    Rewrite(F); // 打开文件。如果文件不存在,将会在C盘中创建MyFile.txt文件。如果文件存在,将会覆盖MyFile.txt中的所有内容。
  end;

Readln:读取一行文本
EX:
var
    S: String;
    F: TextFile;
  begin
  AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
    Reset(F); // 打开文件
    Readln(F, S); // 读取一行文本到S变量中
  end;

Rename:更改文件名
EX:
var
    F: File;
  begin
  AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
    ReName(F, 'C:\NewFile.txt'); // 更名为NewFile.txt
  end;

Writeln:写入一行文本
EX:
var
    S: String;
    F: TextFile;
  begin
    S := 'This is a book.';
  AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
    Rewrite(F); // 创建新文件
    Writeln(F, S); // 将S变量中的内容写入文本中。
  end;

AllocMem:分配内存空间并自动初始化为零。如果不需要初始化为零,可以使用GetMem代替AllocMem。
EX:
var
    Buffer: PChar;
  begin
    Buffer := AllocMem(256); // 分配大小为256个字节的内存空间
  end;

Dispose:释放为指针分配的内存空间
EX:
var
    P: Pinteger; // 声明一个Integer(整型)指针
  begin
    New(P);
    P^ := 100;
    Dispose(P) // 释放内存
  end;

FreeMem:释放分配的内存空间
EX:
var
    Buffer: Pchar;
  begin
    GetMem(Buffer, 256); // 分配大小为256个字节的内存空间。
    FreeMem(Buffer); // 释放内存空间
  end;

GetMem:分配内存空间
EX:
var
    Buffer: PChar;
  begin
    GetMem(Buffer, 256); // 分配大小为256个字节的内存空间。
  end;

New:为指针分配内存空间
EX:
var
    P: PInteger; // 声明一个Integer(整型)指针
  begin
    New(P); // 分配内存
    P^ := 100; // 赋值
  end;

Abs:求绝对值
EX:
var
    r: Single;
    i: Integer;
  begin
    r := Abs(-2.8); // r等于 2.8
    i := Abs(-156); // I 等于 156
  end;

Exp:Exp返回e的X次幂的值,其中e是一个自然对数基底
EX:
e := Exp(1.0); // e为real型变量

Floor:取得小于等于X的最大的整数
EX:
Floor(-2.8) = -3
  Floor(2.8) = 2
  Floor(-1.0) = -1

Int:返回参数中的整数部分
EX:
var
    R: Real;
  begin
    R := Int(123.456); // R等于 123.0
    R := Int(-123.456); // R等于 -123.0
  end;

Max(所在单元:Math):比较两个数字,并返回最大的一个数字
EX:
var
    k: Integer;
  begin
    k := Max(10, 20); // k将为20
  end

Min(所在单元:Math):比较两个数字,并返回最小的一个数字
EX:
var
    k: Integer;
  begin
    k := Min(10, 20); // k将为10
  end;

PI:精确计算返回圆周率
EX:
var
    x Extended;
  begin
    x := PI; // x等于3.1415926535897932385
  end;

Round:对一个实数进行四舍五入
EX:
var
    I, j: Integer;
  begin
    i := Round(1.25); // i等于1
    j := Round(1.62); // j等于2
  end;

Sqr:取给定值的平方
EX:
var
   i: Integer;
  begin
   i := Sqr(3); // i等于9

Date:返回当前的日期
EX:
procedure TForm1.Button1Click(Sender: TObject);
  begin
    Label1.Caption := '今天是:' + DateToStr(Date);
  end;
  Label显示为:今天是2005年1月1日。

DateToStr:将日期型转换为字符型
EX:
var
    S: String;
  begin
    S := DateToStr(Date);
  end;

DateTimeToStr:将DateTime型转换为字符型
EX:
var
    S: String;
  begin
    S := DateTimeToStr(Now);
  end;

DayOfTheMonth(所在单元:DateUtils):获取指定日期的日
EX:
Label1.Caption := IntToStr(DayOfTheMonth(Now));
  假设当前日期为2005年1月2日,那么Label将显示为2。


DayOfTheWeek(所在单元:DateUtils):根据指定日期,获取星期几
EX:
Label1.Caption := IntToStr(DayOfTheMonth(Now));
  假设当前日期为2005年1月2日,那么Label将显示为7。根据返回的值来判断是周几。7表示星期天,1为星期一,依类类推。


DayOfTheYear(所在单元:DateUtils):根据指定日期,获取天数
EX:
Label1.Caption := IntToStr(DayOfTheYear(Now));
  假设当前日期为2005年1月2日,那么Label将显示为2。表示是2005年的第2天。

DayOf(所在单元:DateUtils):根据指定的日期,返回日
EX:
Label1.Caption := IntToStr(DayOf(Date));
  假设当前日期为2005年1月2日,那么Label将显示为2

IsLeapYear:根据指定的年,判断是否为闰年。可使用YearOf函数获取年
EX:
procedure TForm1.Button1Click(Sender: TObject);
  begin
    if IsLeapYear(YearOf(Date)) then ShowMessage('是闰年')
    else ShowMessage('不是闰年');
  end;

MonthOf(所在单元:DateUtils):根据指定的日期,返回月份
EX:
Label1.Caption := IntToStr(MonthOf(Date));
  假设当前日期为2005年1月2日,那么Label将显示为1

Now:返回当前日期及时间
EX:
procedure TForm1.Button1Click(Sender: TObject);
  begin
    Label1.Caption := '现在是:' + DateTimeToStr(Now);
  end;

YearOf(所在单元:DateUtils):根据指定的日期,返回年
EX:
Label1.Caption := IntToStr(YearOf(Date));
  假设当前日期为2005年1月2日,那么Label将显示为2005。


DecodeDate: 將指定日期分解成年、月、日,且年、月、日的型態為Word
EX:
var
Year,Month,Day:Word;
DecodeDate (Now, Year,Month,Day);
showmessage( IntToStr (Year)); =>印出系統的年份,如2001


DecodeTime: 將指定時間分解成時、分、秒及毫秒
EX:
var
Hour,Min,Sec,Msec:Word;
DecodeTime (Now, Hour,Min,Sec,Msec);
showmessage( IntToStr (Hour)); =>印出系統的時。

delphi的幾個技巧

內容來源: http://qiang82.cnblogs.com/

  1. 、判斷一個字串是否包含於另外一個字串的方法
    例如:if pos('ab','abcd')<>0 then
       messagedlg('ab是包含于abcd',mtConfirmation,[mbYes, mbNo],0);
    pos(obj,target) 在target字串中找出第一個出現obj的第一個字串位置,如果找不到,返回0
  2. 如何使窗口全屏,類似游戲一樣,而不是視窗的最大化!
    (1) BorderStyle 为 bsNone
    (2) Windowstate 为 wsMaximized
    (3) 離開時可加一個按鈕,寫上 close 即可退出。
  3. 數字格式化
    format('%8.2f',[123.456]) ==> ' 123.46'。
  4. 播放wav
    use mmsystem;
    SndPlaySound('hello.wav',SND_FILENAME or SND_SYNC);
  5. InputBox,InputQuery和ShowMessage函數
    uses dialogs;
    var s,s1:string;
      b:boolean;
    begin
      s:=trim(Inputbox('NewPassword','Password','masterkey'));
      b:=s<>''s1:=s;
      if b then
       b:=InputQuery('Confirm Password','Password',s1);
      if not b or (s1<>s) then
       ShowMessage('Password Failed');
    end;
  6. 將一個可视控件变成图形类型
    例如将一个带背景的LABEL变成一个TIMAGE图片类型,可以这样做:
    image1.width:=label1.width;
    image1.height:=label1.height;
    label1.perform(WM_PAINT,image1.Canvas.Handle,0);
  7. 如何得到字的ASCII值
    var: a:integer;
    string1:string;
    begin
      string1:='ABC';
    a:=byte(string[1]); {此时就得到'A'的ASCII值}
    end;
  8. 動態更新DBGrid的顏色
    例如,如果一个城市的人口大于200万,我们就让它显示为蓝色。使用的控件事件为DBGrid.OnDrawColumeCell:
    procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);
    begin
    if Table1.FieldByName('Population').AsInteger > 20000000 then
    DBGrid1.Canvas.Font.Color := clBlue;
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
  9. 取得路徑中的文件名:
    ExtractFileName(Address.Text);
  10. 複制文件:
    CopyFile(pchar(strSourcePath),pchar(strSavePath),false);
    false表示如存在同名文件是否覆蓋。
  11. 复制文件夹:
    //1.1拷貝目錄:DoCopyDir
    function DoCopyDir(sDirName:String;sToDirName:String):Boolean;
    var
    F: TSearchRec;
    //hFindFile:Cardinal;
    t,tfile:String;
    sCurDir:String[255];
    FindFileData:WIN32_FIND_DATA;
    begin
    //先保存目前目錄
    sCurDir:=GetCurrentDir;
    ChDir(sDirName);
    F.FindHandle:=FindFirstFile('*.*',FindFileData);
    if F.FindHandle<>INVALID_HANDLE_VALUE then
    begin
    if not DirectoryExists(sToDirName) then //如果目錄不存在
    ForceDirectories(sToDirName); //強迫建立目錄
    repeat
    tfile:=FindFileData.cFileName;
    if (tfile='.') or (tfile='..') then
    Continue; //跳過兩個目錄
    if FindFileData.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY then
    begin
    t:=sToDirName+'\'+tfile;
    if not DirectoryExists(t) then
    ForceDirectories(t);
    if sDirName[Length(sDirName)]<>'\' then
    DoCopyDir(sDirName+'\'+tfile,t)
    else
    DoCopyDir(sDirName+tfile,sToDirName+tfile);
    end
    else
    begin
    t:=sToDirName+'\'+tFile;
    CopyFile(PChar(tfile),PChar(t),false);
    end;
    until FindNextFile(F.FindHandle,FindFileData)=false;
    FindClose(F);
    end
    else
    begin
    ChDir(sCurDir);
    result:=false;
    exit;
    end;
    //回到原來的目錄下
    ChDir(sCurDir);
    result:=true;
    end;

    //---- 1.2拷貝目鍵的函數:CopyDir
    function CopyDir(sDirName:String;sToDirName:string):Boolean;
    begin
    if Length(sDirName)<=0 then exit; //拷貝 Result:=DoCopyDir(sDirName,sToDirName); end;

Delphi中預編譯指令的使用方法

內容來源:http://www.hackhome.com/html/jskf/sjkyy/2006/0612/31553.html

一.指令介紹
1. DEFINE指令: 格式:{$DEFINE 名稱}
說明:用於定義一個在當前Unit有效的Symbol。定義了之後可以使用IF DEF 和 IFNDEF 
   指令來判斷該Symbol是否存在。

2. UNDEF指令: 格式:{$UNDEF 名稱}
說明:用於取消一個在當前Unit已經定義的Symbol。該指令和DEFINE配合使用。

3. IFDEF指令: 格式:{$IFNDEF 名稱}
說明:如果該指令後的名稱已經定義,則編譯該指令後直到{$ELSE}或{$ENDIF}之間的
程式碼。

4. IFNDEF指令: 格式:{$IFNDEF 名稱}
說明:如果該指令後的名稱已經定義,則編譯該指令後直到{$ELSE}或{$ENDIF}之間的
程式碼。

5. IFOPT指令: 格式:{$IFOPT 开关}
說明:如果該指令後的开关已經設立,則編譯該指令後直到{$ELSE}或{$ENDIF}之間的
   程式碼。

  6. ELSE指令: 格式:{$ELSE}
說明:透過前面的IFXXXX的條件來確定該指令到{$ENDIF}之間的程式碼是否應該被編
   譯或被忽略。

7. ENDIF指令: 格式:{$ENDIF}
說明:與IFXXXX配合,指明條件編譯程式碼的結束位置。

EX:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)

Button1: TButton;

procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }

a : String;
end;

var
Form1: TForm1;

implementation
{$R *.DFM}

{$DEFINE AAA}

procedure TForm1.FormCreate(Sender: TObject);
begin
a := 'Other';
{$IFDEF AAA}
a := 'AAA';
{$ENDIF}
{$IFDEF BBB}
a := 'BBB';
{$ENDIF}
end;

procedure TForm1.Button1Click(Sender: TObject); 字串3
begin
Caption := a;
end;

end.

編譯後,按下Button,顯示“AAA”。
程式編譯了a := ’AAA。


如何快速的制作和更改版本:
  使用預編譯指令,在制作同一個程式的多個版本時,只需找出各版本中有區別的Unit,依次定義統一的版本Symbol,然後在程式中加入條件預編譯指令,就可以在實際編譯中取捨編譯不同的程式部份,這樣對於程式的規範性和保密性有很好的作用。
  然後,由于該類編譯指令只能作用於當前Unit,所以不能在一個公共Unit定義一次版本Symbol,而必須在各Unit中定義統一版本Symbol才行,因此,在更換版本時,需要確定所有的Symbol都已改變,這樣才能確保各版本的正確性,因此,可以使用Delphi IDE的Find in Files....(多個文件中尋找字串)的功能,找出所有定義版本Symbol的文件和位置,然後依次更改 保證所有位置已修改。

指定 Delphi 的編譯條件

內容來源:http://www.wretch.cc/blog/solnone&article_id=17350876

在 Project -> Options -> Directories / Conditionals 中有 Conditional defines 可以設定 編譯條件,有多個條件時以分號分隔

Ex:在 Form Create 事件中加入
procedure TForm1.FormCreate(Sender: TObject);
begin
{$IFDEF DEBUG}
ShowMessage('DEBUG Conditional');
{$ELSE}
ShowMessage('Normal');
{$ENDIF}
end;

執行程式後會顯示 'Normal'
在 Conditional defines 入框中輸入 DEBUG 按 ok 後重 build
Project -> Build Project1
再次執行程式後會顯示 'DEBUG Conditional'

Delphi使用Inc

內容來源:http://topic.csdn.net/t/20010423/18/103526.html

Delphi可以像C一樣用Inc文件
用編譯指令 {$I FileName}

如:
File1.Text 內容為
const
CText = 'Hello World!';


Unit1.pas
//.............
Procedure TForm1.Button1Click(Sender: TObject);
{$I File1.txt}
Begin
ShowMessage(CText);
End;
......

AJAX 相關網站

AJAX 入門 http://web.nchu.edu.tw/~jlu/classes/xml/ajax/ajax.shtml

免費線上掃毒

卡巴斯基 http://www.kaspersky.com/virusscanner
PANDA http://www.pandasoftware.com/activescan/activescan/ascan_1.asp
賽門鐵克 http://security.symantec.com/sscv6/default.asp?langid=ch
趨勢 http://housecall.trendmicro.com/housecall/start_corp.asp
McAfee http://us.mcafee.com/root/mfs/default.asp
F-Secure http://support.f-secure.com/enu/home/ols.shtml
WindowsSecurity http://www.windowsecurity.com/trojanscan/

2007年4月11日 星期三

PATINDEX

參考網址:http://www.microsoft.com/taiwan/msdn/library/2003/sep-2003/sp03g8.htm

PATINDEX 屬於 Int 值,它會傳回 Text、Ntext 或 Image 資料行中第一個相同模式所出現的位置,如果找不到相同的模式,則為 0。

語法: PATINDEX ( '%pattern%' , expression )

--PATINDEX sample
create table #t (n ntext)
insert #t values('Hello Tim, long time no see!')
SELECT PATINDEX('%tim%', n) FROM #t
SELECT PATINDEX('%time%', n) FROM #t
drop table #t

輸出:
7
17

Ruby 相關網站!

Ruby On Rails
http://willh.org/cfc/wiki/index.php/Programming_Ruby,_1st_Edtion
Ruby 程式語言
Ruby 討論版(簡)
Cyberpunk
Ruby 論壇(簡)
Ruby 學習筆記

2007年4月5日 星期四

Apache 重寫規則的常見應用 (rewrite)

內容來源:http://fanqiang.chinaunix.net/a6/b1/20010905/0800001238_b.html

一:目的

本文旨在提供如何用Apache重寫規則來解決一些常見的URL重寫方法的問題,通過常見的
實例給用戶一些使用重寫規則的基本方法和線索。

二:為什需要用重寫規則?
一個網站,如果是長期需要放在internet上提供服務,必定會有不斷地更新和維護,如臨
時轉移到其它服務器進行維護,重新組織目錄結構,變換URL甚至改變到新的域名等等,
而為了讓客戶不會因此受到任何影響,最好的方法就是使用Apache Rewrite Rule(重寫
規則)。

三: 重寫規則的作用范圍
1) 可以使用在Apache主配置文件httpd.conf中
2) 可以使用在httpd.conf裡定義的虛擬主機配置中
3) 可以使用在基本目錄的跨越配置文件.htaccess中

四:重寫規則的應用條件
只有當用戶的WEB請求最終被導向到某台WEB服務器的Apache台,則這台WEB服務器接受
進來的請求,根據配置文件該請求是主配置還是虛擬主機,再根據用戶在瀏覽器中請求的
URI來配對重寫規則並且根據實際的請求路徑配對.htaccess中的重寫規則。最把請求
的內容傳回給用戶,該響應可能有兩種:

1) 對瀏覽器請求內容的外部重定向(Redirect)到另一個URL。
讓瀏覽器再次以新的URI發出請求(R=301或者R=302,臨時的或是永久的重定向)
如:一個網站有正規的URL和別名URL,對別名URL進行重定向到正規URL,或者網站改換
成了新的域名
則把舊的域名重定向到新的域名(Redirect)

2) 也可能是由Apache內部子請求代理產生新的內容送回給客戶[P,L]
這是Apache內部根據重寫的URI內部通過代理模塊請求內容並送回內容給客戶,而客戶
端瀏覽器並
不知道,瀏覽器中的URI不會被重寫。但實際內容被Apache根據重寫規則的URI得到。
如:在公司防火牆上運行的Apache啟動這種代理重寫規則,代理對內部網段上的WEB服務
器的請求。

五:重寫規則怎樣工作?
我們假定在編譯Apache時已經把mod_rewrite編譯成模塊,確信你的httpd.conf中有
LoadModule rewrite_module libexec/mod_rewrite.so
並且在Addmodule中有
Addmodule mod_rewrite.c
則可以使用重寫規則。
當外部請求來到Apache,Apache調用重寫規則中的定義來重寫由用戶瀏覽器指定請求的
URI,最被重寫的URI如果是重定向,則送由瀏覽器作再一次請求;如果是代理則把重寫
的URI交給代理模塊請求最終的內容(Content),最把內容送回給瀏覽器。

六: 何時使用.htaccess中的重寫規則定義?
假如你對你的的網站內容所在的服務器沒有管理員權限,或者你的網站放在ISP的服務器
上托管等等條件下,你無法改寫主配置文件,然而你可以對你的WEB站點內容所在的目錄
有寫權限,則你可以設置自己的.htaccess
文件達到同樣的目的。但你需要確定主配置文件中對你的網站所在的目錄定義了下面的內
容:

Options Indexes FollowSymLinks
AllowOverride all

否則你的.htaccess不會工作。

七: 應用舉例
假定Apache被編譯安裝在主機192.168.1.56的/usr/local/apache/ 目錄下面,我們編
譯進了重寫和代理模塊。

1) 隱藏Apache下的某個目錄,使得對該目錄的任何請求都重定向到另一個文件。

a> httpd.conf的實現方法

我們放下面的部分到/usr/local/apache/conf/httpd.conf


options Indexes followsymlinks
allowoverride all
rewriteengine on
rewritebase /
rewriterule ^(.*)$ index.html.en [R=301]


注:rewriteengine on 為重寫引擎開關,如果設為off,則任何重寫規則定義將不被應
用,該開關的另一好處就是如果為了臨時拿掉重寫規則,則改為off再重啟動Apache即
可,不必將下面一條條的重寫規則注釋掉。
rewritebase / 的作用是如果在下面的rewriterule定義中被重寫的部分(此處為文件
名index.html.en)前面沒有/,則是相對目錄,相對這個rewritebase面的定義也就
是/usr/local/apache/htdocs/index.html.en,否則,如果此處沒有rewritebase /這
一項,則被重寫成
http://192.168.1.56/usr/local/apache/htdocs/manual/index.html.en ,顯然是
不正確的。

不過這裡我們也可以不用rewritebase / , 而改為
rewriteengine on
rewriterule ^(.*)$ /index.html.en [R=301]
或者
rewriteengine on
rewriterule ^(.*)$ http://192.168.1.56/index.html.en [R=301]

b> .htaccess的實現方法

我們先放下面的部分到httpd.conf


options Indexes followsymlinks
allowoverride all


然放下面的部分到/usr/local/apache/htdocs/manual/.htaccess中
rewriteengine on
rewritebase /
rewriterule ^(.*)$ index.html.en [R=301]

注:對文件.htaccess所作的任何改動不需要重啟動Apache.

問:要是把這個manual目錄重定向到用戶jephe的自己的主目錄呢?
用下面的.htaccess方案。
rewriteengine on
rewritebase /~jephe/
rewriterule ^(.*)$ $1 [R=301]

則對manual目錄下任何文件的請求被重定向到~jephe目錄下相同文件的請求。

2) 轉換www.username.domain.com的對username的主頁請求為
www.domain.com/username

對HTTP/1.1的請求包括一個Host: HTTP頭,我們能用下面的規則集重寫
http://www.username.domain.com/anypath 到 /home/username/anypath

Rewriteengine on
rewritecond %{HTTP_HOST} ^www\.[^.]+\.host\.com$
rewriterule ^(.+) %{HTTP_HOST}$1 [C]
rewriterule ^www\.([^.]+)\.host\.com(.*) /home/$1$2

注:
rewritecond 條件重寫規則,當滿足面定義的條件才會應用下面的重寫規則,
rewritecond有各種變量
,請查閱相關文檔。

3) 防火牆上的重寫規則代理內部網段上服務器的請求。

NameVirtualhost 1.2.3.4


servername www.domain.com
rewriteengine on
proxyrequest on
rewriterule ^/(.*)$ http://192.168.1.3/$1 [P,L]


注:當外部瀏覽器請求www.domain.com時被解析到IP地址1.2.3.4 ,Apache 交出
mod_rewrite處理轉換成
http://192.168.1.3/$1再交由代理模塊mod_proxy得到內容傳送回用戶的瀏覽器。


4) 基本預先設定的轉換MAP表進行重寫 rewritemap

轉換www.domain.com/{countrycode}/anypath 到Map表中規定的URI,上面是虛擬主機
中的定義

rewritelog /usr/local/apache/logs/rewrite.log
rewriteloglevel 9

rewriteengine on
proxyrequest on
rewritemap sitemap txt:/usr/local/apache/conf/rewrite.map
rewriterule ^/([^/]+)+/(.*)$ http://%{REMOTE_HOST}::$1 [C]
rewriterule (.*)::([a-z]+)$ ${sitemap:$2|http://h.i.j.k/} [R=301,L]

文件/usr/local/apache/conf/rewrite.map的內容如下:

sg http://a.b.c.d/
sh http://e.f.g.h/

注: 當用戶請求http://www.domain.com/sg/anypath時被重寫為
http://a.b.c.d/anypath .
當需要調試時請用rewritelog and rewriteloglevel 9聯合,9為最大即得到最多的調試
信息
最小為1,最小的調試信息,默認為0,沒有調試信息。
sitemap的語法是${sitemap: LookupKey | Defaultvalue} ,有些書上把$寫成了%是錯
誤的。

2007年4月4日 星期三

QRDBText中文不能自動換行問題?

參考網址:http://delphi.ktop.com.tw/board.php?cid=30&fid=100&tid=44298

屬性需設定
AutoSize = false
AutoStretch = true
WordWrap = true

function ApartString(InStr : String ;MaxLen : Integer) : String;
var
P: Integer;
S,L : String;
OriStr : Array[0..1000] OF Char;
OutStr : String;
begin
P := 0;
L := '';
OutStr := '';
StrPCopy(OriStr,InStr);

WHILE P <= Length(InStr) - 1 DO
BEGIN
IF ORD(OriStr[P]) > 127 THEN
BEGIN
S := Copy(OriStr,P + 1,2);
Inc(p)
END
ELSE
BEGIN
S := Copy(OriStr,P + 1,1);
END;

Inc(p);

IF Length(L + S) > MaxLen Then
BEGIN
OutStr := OutStr + L + #13;
L := S;
END
ELSE
BEGIN
L := L + S;
END;
END;

OutStr := OutStr + L;
ApartString := OutStr;

end;


在OnPrint的地方
procedure TPNameCard.QRDBText4Print(sender: TObject; var Value: string);
var
I : Integer;
OriStr : Array[0..1000] OF Char;
V_Chinese : Boolean;

begin
IF Not (Sender AS TQRDBText).AutoSize THEN
BEGIN
StrPCopy(OriStr,Value);
V_Chinese := False;

FOR I := 0 TO Length(Value) - 1 DO
BEGIN
IF ORD(OriStr[I]) > 127 THEN
BEGIN
V_Chinese := True;
Break;
END;
END;

IF V_Chinese THEN
Value := ApartString(Value,20)
ELSE
Value := Value;
END;
end;