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

Size: px

Start display at page:

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

なつきゆきしげ
5 years ago
Views:

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

2 アジェンダ問合せ分析よくある問合せ Q&A Q1 Excel 出力パフォーマンスを改善したい! Q2 DBGrid でこんなことがしたい! Q3 クライアント端末の情報を取得したい! Q4 多言語環境に対応するには? これからのサポート 3

3 問合せ分析サポートには月 100 件弱の問合せ対応問合せ分類比率 Delphi/400 26% その他 5% Delphi Delphi 問合せ内容比率コンホーネント 2% サートハーティ 69% 12% 環境他連携 21% フロクラム方法 65% フィードバックホームページ顧客専用サイト皆様へフィードバック 4

4 Q1 Q1 Excel 出力パフォーマンスを改善したい! い! 質問 OLE を利用した Excel の出力処理で件数が多い場合処理時間が長くて困っています回答 Delphi Excel 間の通信回数を減らすことで格段にパフォーマンス向上を行うことができます 5

5 Q1 Q1 Excel 出力パフォーマンスを改善したい! い出力! Excel 出力 Excel Delphi プログラム Cell 単位の通信 Delphi プログラムまとまった単位での通信 while not(eof) do //Cellごとに値を書き込みを行う WorkSheet.Cells[iRow, 1].Value :=FieldByName('TEST01').AsString; WorkSheet.Cells[iRow, 2].Value :=FieldByName('TEST02').AsString; WorkSheet.Cells[iRow, 3].Value :=FieldByName('TEST03').AsString; WorkSheet.Cells[iRow, 4].Value :=FieldByName('TEST04').AsFloat; // クリップボードに書き込み内容を編集して格納 Clipboard.Clear; Clipboard.AsText := strtext; // クリップボードから貼り付け WorkSheet.Cells[1, 1].Select; WorkSheet.Paste; 6

6 Q2 DBGridでこんなことがしたい!1 質問 DBGrid で行毎にチェックを付けさせることは可能ですか? 回答 DBGrid の OnDrawCell イベントで描画制御を行うことで DBGrid 上でのチェックボックスを扱うことができます 7

7 Q2 DBGrid でこんなことがしたい!1 クリック処理 CellClick イベントフィールト値が 0 フィールト値が 1 1 に更新 0 に更新 Check 受注 No 取引先 A 社 B 社 C 社 D 社受注 No 取引先 A 社 B 社 C 社 D 社描画処理 DrawColumnCell イベントフィールト値が 0 フィールト値が 1 8

8 Q2 DBGrid でこんなことがしたい!1 CellClick イベントの作成 procedure TForm1.DBGrid1CellClick(Column: TColumn); var SaveOptions:TDBGridOptions; AFieldName: String; with DBGrid1 do if(assigned(column.field)) then SaveOptions := Options; try if (not Column.ReadOnly) and (Column.Field.Tag = 9) and (DataSource.DataSet.Active) then Options := Options - [dgediting]; AFieldName := Column.FieldName; if (DataSource.DataSet.State = dsbrowse) then DataSource.DataSet.Edit; end else except if (Column.Field.DataType = ftinteger) then if DataSource.DataSet.FieldByName(AFieldName).AsInteger = 1 then else DataSource.DataSet.FieldByName(AFieldName).AsInteger := 0 DataSource.DataSet.FieldByName(AFieldName).AsInteger := 1; DataSource.DataSet.Post; Options := SaveOptions; Options := SaveOptions; raise; inherited; この方式はイベントの動作上 DBGrid の Options>dgEditing が False であることが前提となります 9

9 Q2 DBGrid でこんなことがしたい!1 DrawColumnCell イベントの作成 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var AFieldName: string; AField: TField; MyRect: TRect; const CBHeight=14; MyRect := Rect; MyRect.Top := Trunc((MyRect.Bottom - MyRect.Top - CBHeight) / 2) + MyRect.Top; MyRect.Bottom := MyRect.Top + CBHeight; with DBGrid1 do if(assigned(fields[datacol])) then if (Fields[DataCol].Tag = 9) then AFieldName := Columns[DataCol].FieldName; AField := DataSource.DataSet.FieldByName(AFieldName); Canvas.FillRect(Rect); if AField.Value <> Null then if (Fields[DataCol].DataType = ftinteger) then if (AField.AsInteger =1) then Windows.DrawFrameControl(Canvas.Handle, Myrect, DFC_BUTTON, DFCS_BUTTONCHECK + DFCS_CHECKED); end else Windows.DrawFrameControl(Canvas.Handle, Myrect, DFC_BUTTON, DFCS_BUTTONCHECK); end else Windows.DrawFrameControl(Canvas.Handle, Myrect, DFC_BUTTON, DFCS_BUTTONCHECK + DFCS_INACTIVE); inherited; 10

10 Q2 DBGrid でこんなことがしたい!2 質問 DBGrid の表示状態をユーザーごとに持たせることはできますか? 回答 DBGrid.Columns オブジェクトの SaveToFile/LoadFromFile メソッドを利用することでユーザーが変更した表の実行状態を保存読み込みすることができます 11

11 Q2 DBGrid でこんなことがしたい!2 Delphi プログラム受注 No 取引先担当者 A 社田中 B 社中村 C 社佐藤 D 社木村並び替え画面終了時 DBGrid.Columns.SaveToFile( 設定ファイル ) 設定ファイル担当者受注 No 取引先田中 A 社中村 B 社佐藤 C 社木村 D 社画面起動時 DBGrid.Columns.LoadFromFile( 設定ファイル ) 次回起動時初期化されない 12

12 Q3 クライアント端末の情報を取得したい! 質問実行プログラムが動作しているクライアント端末の IP アドレスを取得することはできますか? 回答環境にもよりますが取得することが可能です他にもコンピュータ名等の情報も取得することができます 13

13 Q3 クライアント端末の情報を取得したい! IP 取得関数 GetIPAddress の作成 uses に WinSock を追記 function GetIPAddress: String; var wverreq: Word; WSData: TWSAData; Buff: array[0..255] of Char; Host: PHostEnt; IP: PChar; wverreq := MakeWord(1, 1); if WSAStartup(wVerReq, WSData) = 0 then try if GetHostName(Buff, Length(Buff)) = 0 then Host := GetHostByName(@Buff); if Host <> nil then IP := Host^.h_addr_list^; Result := IntToStr(Integer(IP[0])) + '.' + IntToStr(Integer(IP[1])) + '.' + IntToStr(Integer(IP[2])) + '.' + IntToStr(Integer(IP[3])); finally WSACleanup; ドメイン名の取得には WinSock API の GetHostName 及び GetHostByName を主に利用しますこの関数はネットワークデバイスが複数存在するケースを想定していませんのでご注意下さい {Edit1 に IP アドレスを表示 } Edit1.Text := GetIPAddress; 14

14 Q4 多言語環境に対応するには? 質問複数の言語環境で稼動するシステムを作成する効率の良い手法はありますか? 回答 Delphi に搭載されている言語変換機能を利用することで 1 プロジェクトで言語変換してリソースを生成することができます 15

15 Q4 多言語環境に対応するには? 1 日本語で画面作成ウィザードに従って言語等を指定する 2 プロジェクトメニューより [ 言語 ]-[ 追加 ] を選択 16

16 Q4 多言語環境に対応するには? 3 ウィザードが完了するとトランスレーションマネージャーが起動しますこの画面で日本語に対応する英語を登録していきます 4 新しい日本語が出てくるたび上図のようにトランスレーションリポジトリ ( 辞書のようなもの ) に登録していきますリポジトリに登録することにより次から同じ単語が出てくるとウィザードで自動翻訳してくれます画面の日本語をなるべく統一しておく必要があります 17

17 Q4 多言語環境に対応するには? 4 プログラムをコンパイルすると拡張子 ENU( 米英語選択時 ) のファイルが完成します一度英語の画面を作成するとプロジェクトメニューより [ 言語 ]-[ ローカライズ済プロジェクトの更新 ] を選択することで英語画面の再作成を行うことができます 18

18 これからのサポート良いシステムはわかりやすい! 良いシステムはレスポンスが早い! サポートもそうありたいと考えます! ミガロサポートに対する評価良くな普通い 19% 3% 良い 78% 良い普通良くない満足 Top5 ミガロのテクニカルサポートにはいつも早急に答えてもらっているサポート担当者は非常に親切購入するときに丁寧なデモや紹介をやってもらったミガロ HP のパフォーマンス情報等は非常に役立っているミガロのアプリケーション受託開発力に大変満足している要望 Top5 具体的な導入事例やサンプルプログラムをもっと公開して欲しい画面の設計の仕方など 5250 の発想で考えてしまうので画面の構築例が見たい教育コースで Web システムの作り方を教えて欲しい信頼のおける開発会社を紹介して欲しい今後も Delphi/400 をサポートし続けて欲しい 19

CodeGear Developer Camp

CodeGear Developer Camp T2 Delphi テクニカルセッション知って得する! 現役ヘルプデスクが答える Delphi テクニカルエッセンス株式会社ミガロ RAD 事業部技術支援課顧客サポート吉原泰介 1 アジェンダミガロについて問合せ分析よくある問合せQ&A Q1 Excel 出力パフォーマンスを改善したい Q2 DBGrid でこんなことがしたい! Q3 Edit で右寄せ表示できますか? Q4 クライアント端末の情報を取得したい!