知って得する！現役ヘルプデスクが答えるDelphiテクニカルエッセンス 9.0

Size: px

Start display at page:

Download "知って得する！現役ヘルプデスクが答えるDelphiテクニカルエッセンス 9.0"

がんまみやくぼ
6 years ago
Views:

1 セッション No.3 知って得する! 現役ヘルプデスクが答える Delphi テクニカルエッセンス 9.0 株式会社ミガロ. RAD 事業部技術支援課吉原泰介

2 アジェンダお客様より年間 1,000 件以上お問合せ頂いているテクニカルサポートからの技術フィードバック! Q1. PageControl 応用テクニック Q2. DLL モジュールの開発手法

3 Q1. PageControl 応用テクニック質問 PageControl コンポーネントで画面を分割したいのですが固定の画面設計しかできないのでしょうか? 回答 PageControl コンポーネントは Excel のシートのように複数画面を 1 画面内で切替できるので情報量が多い画面設計で非常に便利です通常パネルのように固定の部品として利用しますがプログラムを工夫すれば固定でない活用もできます

4 Q1. PageControl 応用テクニック PageControl コンポーネントとは Microsoft Excel PageControl コンポーネント 1 つの画面で複数のシートを切り替えることでたくさんの情報量を表示することができる

5 Q1. PageControl 応用テクニック PageControl コンポーネントの使い方 Panel と似ているが右クリックでシート ( ページ ) を追加できる Excel のようにシート切替可能な画面が作れる

6 Q1. PageControl 応用テクニック関連情報を 1 画面に集約 PageControl は画面構成に便利なコンポーネントですが固定のレイアウトだけでなく今回はプログラムからの応用操作をご紹介

7 Q1. PageControl 応用テクニック PageControlの応用テクニック 1シートをクリア ( 全て削除 ) する 2シートを作成する 3シートに項目 ( 部品 ) を作成する 4フレームを利用してシート項目を一括作成する 5データから動的にシートを作成する補足シートをドラッグ & ドロップで入れ替える

8 Q1. PageControl 応用テクニック 1 シートをクリア ( 全て削除 ) するシートを削除

9 Q1. PageControl 応用テクニッククリアボタンの処理 ( ソース ) procedure TfrmQ1.btnClearClick(Sender: TObject); //Page コントロールのシート数が 0 になるまでループ while PageControl1.PageCount <> 0 do // シートを削除 PageControl1.ActivePage.Destroy; end; end; ポイント : シート数が 0 になるまで削除をする

10 Q1. PageControl 応用テクニック 2 シートを作成する固定レイアウトではなく自在にシートを作成シートを作成

11 Q1. PageControl 応用テクニックシート作成ボタンの処理 ( ソース ) procedure TfrmQ1.btnManualClick(Sender: TObject); var TabSheet:TTabSheet; // シート追加用 // シートを生成 TabSheet := TTabSheet.Create(PageControl1); //PageControlに追加 TabSheet.PageControl := PageControl1; // シート名を設定 TabSheet.Caption // シート切り替え PageControl1.ActivePageIndex := PageControl1.PageCount -1; end; := ' シート ' + IntToStr(PageControl1.PageCount); ポイント : シートタイトルは見分けがつくようにシート番号で設定応用すればデータの数にあわせてシートを作成できる ( 後半 )

12 Q1. PageControl 応用テクニック 3 シートに項目 ( 部品 ) を作成するシートの中身を作成する入力項目とボタンを作成

13 Q1. PageControl 応用テクニック部品作成ボタンの処理 ( ソース ) procedure TfrmQ1.btnCmpClick(Sender: TObject); var Edit : TEdit; // 入力項目追加用部品の生成やサイズ位置をひとつひとつプログラムするのはかなり面倒! Button : TButton; // ボタン追加用 // 入力項目の追加 Edit := TEdit.Create(PageControl1.ActivePage); // 生成 Edit.Parent := PageControl1.ActivePage; // シートにセット Edit.Top := 20; // 位置設定 Edit.Left := 192; // 位置設定 Edit.Width := 200; // サイズ設定 Edit.Height := 35; // サイズ設定 Edit.Text := ' 入力項目作成 '; // 表示内容設定 // ボタンの追加 Button := TButton.Create(PageControl1.ActivePage); // 生成 Button.Parent := PageControl1.ActivePage; // シートにセット Button.Top := 120; // 位置設定 Button.Left := 192; // 位置設定 Button.Width := 150; // サイズ設定 Button.Height := 40; // サイズ設定 Button.Caption := ' ボタン作成 '; // 表示内容設定 end;

14 Q1. PageControl 応用テクニック 4 フレームを利用してシート項目を一括作成するフレームでシート内容を作成

15 Q1. PageControl 応用テクニックフレーム作成ボタンの処理 ( ソース ) procedure TfrmQ1.btnFraClick(Sender: TObject); var Frame:TFrame1; // フレーム追加用 // フレームを生成 Frame := TFrame1.Create(PageControl1.ActivePage); // シートにフレームをセット Frame.Parent := PageControl1.ActivePage; end; ポイント : PageControl にあらかじめ用意しているフレームをセットするだけ部品をひとつひとつ作るより簡単だけどフレームとは何か?

16 Q1. PageControl 応用テクニックフレームとは? 画面 ( フォーム ) をコンポーネントのように部品化できる機能ファイル > 新規作成 > その他フレーム

17 Q1. PageControl 応用テクニックフレームとは? 画面 ( フレーム ) にコンポーネントを貼りつけて開発通常の画面と同じ作り方

18 Q1. PageControl 応用テクニックフレームとは? 作ったフレームというコンポーネントとして貼り付けられる共通化した部品として貼り付け継承と同じような再利用ができる共通化した部品として貼り付け

19 Q1. PageControl 応用テクニック 4 フレームを利用してシート項目を一括作成するあらかじめ作成しているフレーム ( 画面 ) を作成したシートに貼りつけるだけ! フレームでシート内容を作成

20 Q1. PageControl 応用テクニック 5 データから動的にシートを作成するたとえば取引先情報取引先 A 取引先 B 取引先 C 取引先 D データの数だけシートを自動作成取引先 A 取引先 B 取引先 C いろいろな用途支店情報支店 1 支店 2 支店 3 支店 4 社員情報社員 A 社員 B 社員 C 社員 D 部品構成情報部品 1 部品 2 部品 3 部品 4

21 Q1. PageControl 応用テクニック 5 データから動的にシートを作成するここまでのプログラムを応用データの数だけシートを自動作成

22 Q1. PageControl 応用テクニック自動作成ボタンの処理 ( ソース ) procedure TfrmQ1.btnAutoClick(Sender: TObject); var TabSheet:TTabSheet; // シート追加用 Frame:TFrame1; // フレーム追加用 with SQLQuery1 do // データの最初のレコードへ移動 First; // データがなくなるまでシートを追加 while not(eof) do // シートの生成 TabSheet //PageControlに追加 := TTabSheet.Create(PageControl1); TabSheet.PageControl := PageControl1; // シート名に会社名を設定 TabSheet.Caption := FieldByName('Company').AsString; データの数だけループして 1 シートの作成 2 フレームの作成 3 データのセットを行う 1 シートの作成

23 Q1. PageControl 応用テクニック自動作成ボタンの処理 ( ソース ) // フレームの生成 Frame := TFrame1.Create(TabSheet); // フレームをシートにセット Frame.Parent := TabSheet; // データをフレームにセット Frame.edtCUSTNO.Text := FieldByName('CustNo').AsString; // 顧客番号 Frame.edtCOMPANY.Text := FieldByName('Company').AsString; // 会社名 Frame.edtZIP.Text := FieldByName('Zip').AsString; // 郵便番号 Frame.edtSTATE.Text := FieldByName('State').AsString; // 都道府県 Frame.edtADDR1.Text := FieldByName('Addr1').AsString; // 住所 1 Frame.edtADDR2.Text := FieldByName('Addr2').AsString; // 住所 2 Frame.edtPHONE.Text := FieldByName('Phone').AsString; // 電話番号 Frame.edtFAX.Text := FieldByName('FAX').AsString; //FAX // 次のデータへ Next; end; end; end; フレームを複数用意しておけばデータ毎のシート画面を作り分けることも可能 2 フレームの作成ポイント : フレームの部品はフレーム. 部品で処理する 3 データのセット

24 Q1. PageControl 応用テクニック補足シートをドラッグ & ドロップで入れ替えるシートのタイトルをドラッグ & ドロップ

25 Q1. PageControl 応用テクニック補足 MouseDown イベント処理 ( ソース ) procedure TfrmQ1.PageControl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); // ドラッグ処理を開始する PageControl1.BeginDrag(false); end; DragOver イベント処理 ( ソース ) procedure TfrmQ1.PageControl1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); // ドラッグ元が PageControl の時だけ処理する if Sender is TPageControl then Accept := true; end;

26 Q1. PageControl 応用テクニック DragDrop イベント処理 ( ソース ) procedure TfrmQ1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer); var i: Integer; r: TRect; if not (Sender is TPageControl) then Exit; // ドラッグ元がPageControlの時だけ処理する with PageControl1 do for i := 0 to PageCount - 1 do // ドロップ先のシート番号を特定して移動する Perform(TCM_GETITEMRECT, i, LPARAM(@r)); if PtInRect(r, Point(X, Y)) then if i <> ActivePage.PageIndex then ActivePage.PageIndex := i; end; Exit; end; end; end; end; 補足

27 Q2.DLL モジュールの開発手法質問 Delphi/400 では EXE アプリケーション以外に DLL も開発できると聞きますどんな点で便利なのですか? 回答 DLL は他から呼び出される ( 利用される ) ことを前提とした汎用的な共通モジュールになります EXE と違い呼出されたら起動するだけでなく結果も呼び出し元に自由に返せる点他言語からも利用できる点で非常に便利な使い方できますただし EXE と違い DLL 単体では実行できません

28 Q2.DLL モジュールの開発手法 DLL とは? Dynamic Link Library( ダイナミックリンクライブラリ ) DLL とは動的なリンクによって利用されるライブラリのことである Windows では DLL ファイルの拡張子として.dll が付く様々なプログラムから呼び出されるための汎用的な機能がモジュール化されており EXE などの実行ファイルがリンクを読み込むことによって共通して利用できるようになっている IT 用語辞典抜粋

29 Q2.DLL モジュールの開発手法 DLL とは? つまりいろいろなプログラム言語アプリケーションで利用できる便利な共通プログラム DLL Delphi C++ VB 様々なプログラム言語から Delphi/400 で作成した機能を利用できる ex.) ログオン認証機能名称取得機能 DLL 見積システム在庫管理システム様々なアプリケーションから共通機能として利用できる機能変更時も DLL を入替えるだけなので運用も ex.) 社員検索画面取引先検索画面 java 複数システムの共通化発注システム重複開発が不要 EXE のスリム化

30 Q2.DLLモジュールの開発手法 DLLモジュールの開発手法 1DLLの基本開発手順 2Delphi/400コンポーネントを組み込んだDLLの開発 3 画面を含むDLLの開発

31 Q2.DLL モジュールの開発手法 1 DLL の基本開発手順ファイル > 新規作成 > その他

32 Q2.DLL モジュールの開発手法 1 DLL の基本開発手順 DLL 用のプロジェクトが作成される DLL として作成される

33 Q2.DLL モジュールの開発手法 1 DLL の基本開発手順 DLL プログラム例 ( ソース ) library Project1; uses SysUtils, Classes; // 計算関数 ( パラメータを足し算して結果を返却 ) function Keisan(a, b: Integer): Integer; stdcall; Result := a + b; end; {$R *.res} exports Keisan; end. 宣言ポイント : 外部から呼び出したい関数手続きはexportsの下に全て宣言する関数手続き ( プログラム ) ポイント : 1stdcall をつける 2String などの Delphi 独自の型を使用しない他言語でも使われる一般的な PChar や Integer などの汎用的な型を使用する

34 Q2.DLL モジュールの開発手法 1 DLL の基本開発手順コンパイル完成

Q2.DLL モジュールの開発手法作成した DLL の呼出 (Delphi/400) EXE 側呼び出しプログラム例 ( ソース ) function Keisan(a, b: Integer): Integer; stdcall; external 'project1.dll'; procedure TForm1.

35 Q2.DLL モジュールの開発手法作成した DLL の呼出 (Delphi/400) EXE 側呼び出しプログラム例 ( ソース ) function Keisan(a, b: Integer): Integer; stdcall; external 'project1.dll'; procedure TForm1.Button1Click(Sender: TObject); SpinEdit3.Value := Keisan(SpinEdit1.Value, SpinEdit2.Value); end; 宣言ポイント : external DLL 名 ( パス含む ) を宣言する実行 ( 呼び出し ) ポイント : 通常の関数と同じように使えます

36 Q2.DLL モジュールの開発手法作成した DLL の呼出 (VBA) EXE 側呼び出しプログラム例 ( ソース ) Declare Function Keisan Lib "Project1.dll" (ByVal a As Long, ByVal b As Long) As Long Sub ボタン 1_Click() Range("H7") = Keisan(Range("D7"), Range("F7")) End Sub

37 Q2.DLL モジュールの開発手法 2 Delphi/400 コンポーネントを組み込んだ DLL の開発作成する DLL: IBMi(AS/400) ログオン認証モジュール Delphi Delphi/400 ログオン認証 DLL C++ VB ユーザー / パスワードのログオン認証のモジュールを DLL 作成しておけば他言語でも利用できるので Delphi/400 で統一した認証ルールを社内アプリケーションに提供できる IBM i (AS/400) java DLL による機能共通化

38 Q2.DLL モジュールの開発手法ログオン認証 DLL プログラム例 ( ソース ) library Project2; uses SysUtils, Classes, Scdconn; {$R *.res} // ログオン認証 ( パラメータの認証結果を返却 ) function Login(usrid, password: Pchar): Boolean; stdcall; var AS400: TAS400; AS400 := TAS400.Create(nil); try AS400.Userid := usrid; // パラメータをセット AS400.PWD := password; // パラメータをセット宣言ポイント : AS400 コンポーネントを使う場合は Uses に Scdconn を追加する CALL400 を使う場合は Scdcall も追加 // 画面はないのでコンポーネントは生成するポイント : 画面がない場合はコンポーネントはプログラムで生成する

39 Q2.DLL モジュールの開発手法ログオン認証 DLL プログラム例 ( ソース ) try AS400.Connect; except Result := False; Exit; end; AS400.Disconnect; Result := True; finally FreeAndNil(AS400); end; end; exports Login; end. // 接続 // 失敗 ( 例外 ) の場合はFalseを返却 // 成功したら接続を切ってTrueを返却 // 生成したコンポーネントは破棄認証ポイント : ここではログオン認証を接続だけで行っているが接続した上で社員マスタなどで独自に認証する仕組みを構築するのも

Q2.DLL モジュールの開発手法作成した DLL の呼出 (Delphi/400) EXE 側呼び出しプログラム例 ( ソース ) function Login(usrid, password: Pchar): Boolean; stdcall; external 'project2.dll'; procedure TfrmQ2_2.

40 Q2.DLL モジュールの開発手法作成した DLL の呼出 (Delphi/400) EXE 側呼び出しプログラム例 ( ソース ) function Login(usrid, password: Pchar): Boolean; stdcall; external 'project2.dll'; procedure TfrmQ2_2.BitBtn1Click(Sender: TObject); if (Login(PChar(Edit1.Text), PChar(Edit2.Text))) then ShowMessage(' ログオン成功 '); end else ShowMessage(' ログオン失敗 '); end; end; 実行 ( 呼び出し ) ポイント : DLL の型に合わせてパラメータを渡す

41 Q2.DLL モジュールの開発手法作成した DLL の呼出 (VBA) EXE 側呼び出しプログラム例 ( ソース ) Declare Function Login Lib "Project2.dll" (ByVal UID As String, ByVal PWD As String) As Boolean Sub ボタン 2_Click() If Login(Range("D12"), Range("F12")) Then Range("H12") = " ログオン成功 " Else Range("H12") = " ログオン失敗 " End If End Sub

42 Q2.DLL モジュールの開発手法 3 画面を含む DLL の開発作成する DLL: 取引先選択画面を起動して選択データを返す画面 DLL 見積システム在庫管理システム発注システム取引先検索画面や社員検索画面など複数のアプリケーションで同じ機能を必要する場合は多いそれぞれのアプリケーションに同じ画面 ( 機能 ) を組み込むよりも共通モジュールとして DLL を作成しておけば社内アプリケーションを共通化およびスリム化することができるまた共通機能変更時に DLL の置換えだけで済むので運用も楽になる同じ画面を各 EXE に含まないで済む機能変更時に DLL 置換えだけで済む EXE の分割より PGM 連携が簡単

43 Q2.DLL モジュールの開発手法 3 画面を含む DLL の開発作成する DLL: 取引先選択画面を起動して選択データを返す DLL モジュール

44 Q2.DLL モジュールの開発手法 3 画面を含む DLL の開発 DLL で画面を作成する手順 DLL 用プロジェクトを作成

45 Q2.DLL モジュールの開発手法 3 画面を含む DLL の開発 DLL で画面を作成する手順ファイル > 新規作成 > フォーム - Delphi

Q2.DLL モジュールの開発手法 3 画面を含む DLL の開発 DLL で画面を作成する手順画面設計とプログラム ( 通常フォームと同様 ) 取引先選択画面 DLL プログラム例 ( ソース ) 詳細部分は割愛 public { Public 宣言 } pcustno : Integer; // 顧客番号 ( 受渡用 ) pcompany : String; // 会社名 ( 受渡用 )

46 Q2.DLL モジュールの開発手法 3 画面を含む DLL の開発 DLL で画面を作成する手順画面設計とプログラム ( 通常フォームと同様 ) 取引先選択画面 DLL プログラム例 ( ソース ) 詳細部分は割愛 public { Public 宣言 } pcustno : Integer; // 顧客番号 ( 受渡用 ) pcompany : String; // 会社名 ( 受渡用 ) end; //OK ボタンクリック procedure TfrmTRCD.btnOKClick(Sender: TObject); //DBGrid で選択された値を with SQLQuery1 do pcustno := FieldByName('CUSTNO').AsInteger; pcompany := FieldByName('COMPANY').AsString; end; end;

47 Q2.DLL モジュールの開発手法 DLL で画面を作成する手順画面設計とプログラム ( 通常フォームと同様 ) DLL 本体で画面を呼び出すプログラム例 ( ソース ) library Project3; uses SysUtils, Classes, TRCDfrm in 'TRCDfrm.pas' {frmtrcd}; function ShowForm(var CustNo:Integer; var Company:PChar): Integer; stdcall; export; var Form : TfrmTRCD; // 取引先選択画面用 Form := TfrmTRCD.Create(nil); // 取引先選択画面生成 Result := Form.ShowModal; // 画面起動 ( 処理待ち ) CustNo := Form.pCUSTNO; // 顧客番号返却 Company := PChar(Form.pCOMPANY);// 会社名返却 Form.Release; // 破棄 end; 宣言ポイント : 画面と値をやりとりする場合はパラメータを用意しておく画面の起動ポイント : DLLのExports 関数の中で対象の画面 ( フォーム ) を生成起動する

48 Q2.DLL モジュールの開発手法 DLL で画面を作成する手順画面設計とプログラム ( 通常フォームと同様 ) 取引先選択画面 DLL プログラム例 ( ソース ) DLL 本体 {$R *.res} exports ShowForm; end. DLL の関数 (ShowForm) を呼出すと起動する!

Q2.DLL モジュールの開発手法作成した DLL の呼出 (Delphi/400) EXE 側呼び出しプログラム例 ( ソース ) function ShowForm(var CustNo:Integer; var Company:PChar): Integer; stdcall; external 'project3.

49 Q2.DLL モジュールの開発手法作成した DLL の呼出 (Delphi/400) EXE 側呼び出しプログラム例 ( ソース ) function ShowForm(var CustNo:Integer; var Company:PChar): Integer; stdcall; external 'project3.dll'; // 顧客番号の補助ボタンクリック procedure TfrmQ2_3.btnDLLClick(Sender: TObject); var icustno : Integer; // 顧客番号 (DLL 呼び出し用 ) pccompany: PChar; // 会社名 (DLL 呼び出し用 ) //DLLで取引先選択画面を起動値の連携 ShowForm(iCustNo, pccompany); //DLL 返却の顧客番号をセット Frame1.edtCUSTNO.Text := IntToStr(iCustNo); //DLL 返却の会社名をセット Frame1.edtCOMPANY.Text := pccompany; end; DLL モジュール ( 画面 ) ポイント : EXE 連携と違って簡単に選択値を受け取れる

50 Q2.DLL モジュールの開発手法作成した DLL の呼出 (VBA) EXE 側呼び出しプログラム例 ( ソース ) Declare Function ShowForm Lib "Project3.dll" (ByRef CustNo As Long, ByRef Company As String) As Long Sub ボタン 3_Click() Dim CustNo As Long Dim Company As String DLL モジュール ( 画面 ) If ShowForm(CustNo, Company) = 1 Then Range("D17") = CustNo Range("F17") = Company End If End Sub 値の連携

51 Q2.DLL モジュールの開発手法作成した DLL の呼出 (VBA) Delphi/400 以外のアプリケーションにも Delphi/400 が活用できる!

52 ご清聴ありがとうございました

知って得する！現役ヘルプデスクが答えるDelphiテクニカルエッセンス 8.0

知って得する！現役ヘルプデスクが答えるDelphiテクニカルエッセンス 8.0 セッション No.3 知って得する! 現役ヘルプデスクが答える Delphi テクニカルエッセンス 8.0 株式会社ミガロ. RAD 事業部技術支援課吉原泰介アジェンダ - サポートからの問合せフィードバック - Q1. Excel ファイルを PDF に変換するには? Q2. EXE のサイズを小さくするには? Q3. C/S アプリで 3 階層接続を行うには? Q1. Excel ファイルを