dbExpress(DBX4) AS400 Driver

在安裝RAD Studio DELPHI 2007後，C:\Documents and Settings\user\My Documents\RAD Studio\5.0\Demos\database\projects\dbx\driver\as400資料夾中有提供連接AS400的Driver。

Installation instructions for dbexpca400 (dbExpress driver)

##CONTINUE##

-----------------------------------------------------------

0) set up your iSeries or AS/400 connection in iSeries Access, for this example the connection is called "MYAS400" (usually this is already configured)

1) copy dbexpca400.dll to a directory that is in your path, make sure only one version of dbexpca400.dll is on your system. The Windows\system or WINNT\system32 directory is a good place for the driver.

(optional) copy dbexpca400.obj and iseriesaccess.obj to $(BCB)\Lib for C++Builder 6 (optional) copy dbexpca400.dcu and iseriesaccess.dcu to $(Delphi)\Lib for Delphi 7 or 6

2) modify dbXDrivers.ini, depending on your Delphi version in

Delphi 2007: %Public%\Documents\RAD Studio\dbexpress Delphi 2005: %CommonProgramFiles%\Borland Shared\BDS\dbExpress Delphi 2006: %ProgramFiles%\BDS\4.0\dbexpress Delphi 6, Delphi 7, C++Builder 6: %CommonProgramFiles%\Borland Shared\DBExpress\

[Installed Drivers] CA400=1

[CA400] GetDriverFunc=getSQLDriverCA400 LibraryName=dbexpca400.dll VendorLib=cwbdb.dll Database=MYAS400 User_Name= Password= ServerCharSet= ErrorResourceFile= LocaleCode=0000 BlobSize=-1 RowsetSize=-1 RoleName= CA400 TransIsolation=DirtyRead CommitRetain=True AutoCommit=True Custom String=/trace=0 Connection Timeout=-1 Trim Char=False

[CA400 TransIsolation] DirtyRead=0 ReadCommited=1 RepeatableRead=2

3) drop a TSQLConnection on a form, double click the TSQLConnection then choose "+ Add Connection", select driver name "CA400" and give your connection a name, for example "MYCA400CONN". Check that Database is set to the connection you defined in iSeries Access (MYAS400)

4) set the "LoginPrompt" property of SQLConnection to false if you don't want to be prompted for a password (the connection security is maintained by iSeries Access)

5) drop a TSQLQuery on your form, set it's SQLConnection property to your SQLConnection. Set the SQL property to for example 'select * from "QIWS"."QCUSTCDT"' (QIWS.QCUSTCDT is a standard table on every iSeries system)

Borland Database Engine (BDE) 移植到DBX4方法

首先下載http://www.bluetrainsoftware.com/developersinc/dbx_bde.zip套件。

解壓縮到目錄，開啟dbx4_bde_wrapper.dproj，先build，然後install。

 

打開目錄中的dbxdrivers.ini，複製下列文字

DBX4BDE=1

[DBX4BDE]
DelegateDriver=False
DriverName=DBX4BDE
DriverUnit=dbx4_bde_wrapper_unit
DriverPackageLoader=TDBX4BDEDriverLoader
DriverPackage=dbx4_bde_wrapper.bpl
Database=DBDEMOS

加到到C:\Documents and Settings\user\My Documents\RAD Studio\dbExpress\的dbxdrivers.ini檔中。

作法：

1. 打開或新增專案，放上BDE的TDatabase元件，設定好參數，name=myDemos。

2. 放上dbExpress的TSQLConnection元件，Edit Connection Properties，Add Connection。

3. Driver Name = DBX4BDE，Connection Name 自行命名。

4. Connection Setting的Database = myDemos。

5. 按Test Connection，Successfully Connectioned。

完成。

 

Demo Video參考連結：http://www.bluetrainsoftware.com/developersinc/DBXBDEDemo/dbx_bde_project.html

如何在Data Explorer建立Blackfishsql新資料庫?

如何在新DBX_DEMO_JDS connection建立bfdmeo.JDS：

打開Data Explorer, 選擇dbExpress | BlackfishSql | 右鍵 | Add New Connection

輸入 connection name, 例如: "dbx_demo_jds" 按 "Ok"

在這新的 connection 按右鍵, 選擇 "Modify Connection"

打開Connection對話方塊

輸入新的database參數：

• the server name : localhost
• the database name: 資料庫完整路徑名稱, 例：

    C:\programs\us\db\blackfishsql\data\bfdemo.jds

• the user name : SYSDBA
• the password : masterkey

按 "Advanced" 按鈕打開進階參數設定, 將 "Create" 設成 True:

按 "Ok"

按 "Test Connection"

顯示 "Connection Succeeds" 
按 "Ok"
新的database 成功建立完成.

Delphi Vcl for Web(intraweb)由StandAlone改為ISAPI

Library Project1; //Program 改為 Library uses Forms, IWMain, ISAPIApp, //增加 IWInitISAPI, //增加 main in 'main.pas' {IWForm2: TIWAppForm}, ServerController in 'ServerController.pas' {IWServerController: TIWServerControllerBase}, UserSessionUnit in 'UserSessionUnit.pas' {IWUserSession: TIWUserSessionBase}; {$R *.res} { begin Application.Initialize; Application.CreateForm(TformIWMain, formIWMain); Application.Run; end. } //改成下面語法 exports GetExtensionVersion, HttpExtensionProc, TerminateExtension; begin IWRun; end.

Delphi中建議使用的寫法

{ No.1 判斷邏輯類型} var B: Boolean; begin B := Boolean(2); //這樣只是為了調試//B := True; if B = True then ShowMessage('B = True'); //不建議//不安全 /////// if B then ShowMessage('B'); //建議//簡短 end; var B: Boolean; begin if Edit1.Text = '是' then //不建議//煩瑣 B := True else B := False; /////// B := Edit1.Text = '是'; //建議//簡短 end; { No.2 臨時SQL查詢 } begin QueryTemp.Close; QueryTemp.SQL.Text := 'SELECT SUM(金額) AS 合計 FROM 銷售表'; QueryTemp.Open; //不建議, 數據沒有關閉造成資源浪費 ShowMessage(Query1.FieldByName('合計').AsString); ///// QueryTemp.SQL.Text := 'SELECT SUM(金額) AS 合計 FROM 銷售表'; QueryTemp.Open; ShowMessage(Query1.FieldByName('合計').AsString); QueryTemp.Close; //建議用,使用完就關閉 end; { No.3 字段賦值 } begin Table1.Edit; Table1.FieldByName('姓名').AsString := Edit1.Text; //不建議 Table1.FieldByName('日期').AsDateTime := Date; ///// Table1['姓名'] := Edit1.Text; //建議, 簡短、擴充性好 //Table1.Fieldvalues['姓名'] := Edit1.Text; //Borland建議的方法。以及Paramvalues[] Table1['日期'] := Date; end; { No.4 使用Self指針 } begin Edit1.Parent := Form1; //不建議//Form1只是一個變量//如果沒有分配資源怎麼辦？ /////// Edit1.Parent := Self; //建議 end; { No.5 利用Sender參數，使代碼通用 } procedure TForm1.Edit1Change(Sender: TObject); begin if Edit1.Text = '' then //不建議 Edit1.Color := clRed; /////// if TEdit(Sender).Text = '' then //建議, 複製到EditXChange中很方便 TEdit(Sender).Color := clRed; end; { No.6 遍歷數組 } var I: Integer; A: array[0..9] of Integer; begin for I := 0 to 9 do //不建議 A[I] := I; /////// for I := Low(A) to High(A) do //建議//擴充性好 A[I] := I; end; { No.7 利用MaxInt常量 } begin Caption := Copy(Edit1.Text, 3, Length(Edit1.Text) - 3 + 1); //不建議 /////// Caption := Copy(Edit1.Text, 3, MaxInt); //建議//嘻嘻，少計算一次 end; { No.8 必須執行的代碼、使用try … finally … end語句 } var vStringList: TStringList; begin vStringList := TStringList.Create; vStringList.LoadFromFile('c:\temp.txt'); ShowMessage(vStringList.Text); vStringList.Free; //不建議//如果出現異常資源將無法釋放 /////// vStringList := TStringList.Create; try vStringList.LoadFromFile('c:\temp.txt'); ShowMessage(vStringList.Text); finally //建議//即使出現Exit都會執行 vStringList.Free; end; end; //其他情況1 begin Screen.Cursor := crHourGlass; try { 耗時操作 } finally Screen.Cursor := crDefault; end; end; //其他情況2 begin Query1.DisableControls; try { 操作數據集 } finally Query1.EnableControls; end; end;

計算你的網站排放了多少二氧化碳

根據統計，每年光是網際網路就排放了 1000 億磅的二氧化碳，所以哈佛和耶魯的學生做出了可以計算網站二氧化碳排放量的免費 widget，雖然不知道它是怎麼算出來的，不過蠻有趣，而且又有環保概念，所以快去把官網或下面的程式碼貼在你的網站上，看看你的網站是不是綠色網站。

<a href=http://www.co2stats.com/?rs=4850><img src=http://www.co2stats.com/widget.php?s=4850 border="0"></a>