| [10848] 続・Delphi7でZeosLib | 返信 削除 |
| 2017/2/21 (火) 14:05:35 Mr.XRAY |
|
> 古い，つまり Ansi 版の Delphi にも 古いバージョンの ZeosLib をインストールできる． 以下，略 とまあ，こう書いたのですが，個人的には悔しいわけです． で，igy さんの foreign_keys の書き込みを読んで思ったのです． そうだ，なるべく新しいバージョンの ZeosLib だ !! 探しました．ありました．7.1.2 です． Delphi 7 Pro にインストールできました !! (^o^) 前のは 6.6.6 てす． Paradox の接続の時に ZConnection1.Properties.Clear; ZConnection1.Properties.Add('AutoEncodeStrings=ON'); ZConnection1.Properties.Add('controls_cp=CP_UTF16'); と言う処理をしているのですが， これは，Paradox は Shift-JIS なわけです． それで，コードページは自動検出，Paradox を使うアプリは Delphi XE ですから， コードページはユニコードです． ところが，ZeosLib 6.6.6 ではこれが使えないのです． ZeosLib 7.1.2 にはありました !! ライブラリ (DLL) の場所も指定できます． やってみました．見事に表示できました !! Windows 7 U64(SP1) + Delphi 7 Pro + ZeosLib 7.1.2 + SQLite 3.8.7 です． やったぜい ! ざまあみろ !! //============================================================================= // フォームを閉じる時の処理 //============================================================================= procedure TForm1.FormDestroy(Sender: TObject); begin ZQuery1.Close; ZConnection1.Disconnect; end; //============================================================================= // ZeosLibを使用してSQLiteのデータベースに接続 //============================================================================= procedure TForm1.Button1Click(Sender: TObject); var FDBName : string; FTableName : string; begin ZConnection1.LibraryLocation := ExpandFileName('..\sqlite3.dll'); //TDataSource,TDBGridの設定 DataSource1.DataSet := ZQuery1; DBGrid1.DataSource := DataSource1; FDBName := ExpandFileName('..\AddressBook_A.db3'); FTableName := 'AddressTBL'; //念のため接続を切断してから設定 ZQuery1.Close; ZConnection1.Disconnect; ZConnection1.LoginPrompt := False; ZConnection1.Protocol := 'sqlite-3'; ZConnection1.Database := FDBName; ZConnection1.Properties.Clear; ZConnection1.Properties.Add('AutoEncodeStrings=ON'); ZConnection1.Properties.Add('controls_cp=CP_20932'); //データベースへ接続 ZConnection1.Connect; //TZQueryの設定 ZQuery1.Connection := ZConnection1; ZQuery1.Close; ZQuery1.SQL.Clear; ZQuery1.SQL.Add('select * from ' + FTableName); //クエリの実行 ZQuery1.Open; //日付型は書式を設定してみる (ZQuery1.FieldByName('生年月日') as TDateTimeField).DisplayFormat := 'ggee年mm月dd日'; DBGrid1.Columns[0].Width := 30; DBGrid1.Columns[1].Width := 90; DBGrid1.Columns[3].Width := 160; end;  |
