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

Transcription

1 セッション No.3 知って得する! 現役ヘルプデスクが答える Delphi テクニカルエッセンス 3.5 株式会社ミガロ RAD 事業部技術支援課顧客サポート吉原泰介 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 1

2 アジェンダ よくある問合せ Q&A Q1 オブジェクトのリストを取得するには? Q2 SQL でメンバを扱うには? Q3 デバッグモードを判断するには? Q4 他プログラムから Exe を起動するには? Q5 OS/400 V6R1 上で Delphi/400 は使えますか? お持ち帰り資料 VCL for the Web(IntraWeb) Q&A QA Cookie を利用した制御 QB IWText の右寄せ表示 QC 開発モードの変更方法 QD IIS 上での動作の違い 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 2

3 Q1 オブジェクトのリストを取得するには? 質問 ライブラリやファイルのリストを取得することはできますか? 回答 ライブラリやファイルのリストを取得するコンポーネントはありませんが Delphi/400 が提供する SCDTools ユニットを利用すれば可能です 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 3

4 Q1 オブジェクトのリストを取得するには? 例えば Delphi/400 の File400 コンポーネントの LibraryName プロパティでライブラリのリストを検索するダイアログが表示されて選択できたりします これは設計画面上の動作ですが このライブラリのリスト取得が Delphi/400 の機能でできる ということです この機能を提供するのが ScdTools ユニット になります 例えばライブラリのリストを取得するための TcGetListLib という関数が用意されています 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 4

5 Q1 オブジェクトのリストを取得するには? SCDTools ユニットで提供される関数例 関数 機能 TcGetListLib Libraryのリストを取得 TcGetListFile Fileのリストを取得 TcGetListMbr Memberのリストを取得 TcGetListDataArea DataAreaのリストを取得 TcGetListDataQueue DataQのリストを取得 TcGetListOutqueue OUTQのリストを取得 TcGetListProg Programのリストを取得 パラメータなど詳しい使い方は HELP の SCDTools にも記載されています 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 5

6 Q1 オブジェクトのリストを取得するには? ライブラリのリストを取得してみよう 1Uses 節に scdtools を追記 2TAS400 TComboBox を画面に配置 3FormCreate のイベントにプログラムを記述 ( 次ページ ) 利用する関数 :TcGetListLib 宣言 :(hnd:shortint; SearchString:string; listlib:tstrings; listdesc:tstrings; taille:word): shortint; 説明 : ライブラリリストを取得します 第 1 パラメータは接続 ハンドル です (TAS400 クラスの GetHandle メソッドはこの値を返します ) 第 2 パラメータは検索ストリングです ('D*': D で始まるライブラリ ) 第 3 パラメータはライブラリ名リストの戻りパラメータです ( たとえば TListBox クラスの Items プロパティ ) 第 4 パラメータはライブラリ記述リストの戻りパラメータです 第 5 パラメータは上に説明したリストを回復するために使用するバッファサイズです (32000 など ) 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 6

7 Q1 オブジェクトのリストを取得するには? TcGetListLib 利用例 procedure TForm1.FormCreate(Sender: TObject); var List1:TStringList; //Description 用 begin AS4001.Active := true; //ASへ接続 List1 := TStringList.Create; //Description 用リストを作成 ComboBox1.Items.Clear; // コンボボックスクリア // 関数を利用してライブラリのリストをコンボボックスへ設定 TcGetListLib(AS4001.GetHandle, '*ALL', ComboBox1.Items, List1, 32000); List1.Free; //StringListの破棄 end; 実行 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 7

8 Q1 オブジェクトのリストを取得するには? 応用例 1 ライブラリ名 / ファイル名 / メンバ名をそれぞれリストから選択して DBGrid に表示 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 8

9 Q1 オブジェクトのリストを取得するには? 1TcGetListLib で取得 2TcGetListFile で取得 4TTable で取得 3TcGetListMbr で取得 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 9

10 Q1 オブジェクトのリストを取得するには? 1TcGetListLib でライブラリのリストを取得 procedure TfrmQ1_1.btnLIBClick(Sender: TObject); var List1 : TStringList; //Discription 格納用 StringList Filter: String; // 絞込み文字列 begin //Discription 格納用 StringListの生成 List1 := TStringList.Create; // ライブラリ用コンボボックスの初期化 cblib.items.clear; // 絞込み文字列の取得 Filter := DMMain.FilterStr(edLIBFilter.Text); // ライブラリリストの取得 TcGetListLib(DMMain.As400.GetHandle, // 接続ハンドル Filter, // 絞込み文字列 cblib.items, // ライブラリリスト ( 戻り ) List1, // ライブラ記述リリスト ( 戻り ) 32000); // バッファサイズ List1.Free; //StringListの破棄 end; 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 10

11 Q1 オブジェクトのリストを取得するには? 2TcGetListFile でファイルのリストを取得 procedure TfrmQ1_1.btnFileClick(Sender: TObject); var List1 : TStringList; //Discription 格納用 StringList Filter: String; // 絞込み文字列 begin //Discription 格納用 StringListの生成 List1 := TStringList.Create; // ファイル用コンボボックスの初期化 cbfile.items.clear; // 絞込み文字列の取得 Filter := DMMain.FilterStr(edFileFilter.Text); // ファイルリストの取得 TcGetListFile(DMMain.As400.GetHandle, // 接続ハンドル Filter, // 絞込み文字列 Trim(cbLIB.Text), // ライブラ名 cbfile.items, // ファイルリスト ( 戻り ) List1, // ファイル記述リスト ( 戻り ) 32000); // バッファサイズ List1.Free; //StringListの破棄 end; 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 11

12 Q1 オブジェクトのリストを取得するには? 3TcGetListMbr でメンバーのリストを取得 procedure TfrmQ1_1.btnMemberClick(Sender: TObject); var List1 : TStringList; //Discription 格納用 StringList Filter: String; // 絞込み文字列 begin //Discription 格納用 StringListの生成 List1 := TStringList.Create; cbmember.items.clear; // メンバー用コンボボックスの初期化 // 絞込み文字列の取得 Filter := DMMain.FilterStr(edMemberFilter.Text); // メンバーリストの取得 TcGetListMbr(DMMain.As400.GetHandle, // 接続ハンドル Filter, // 絞込み文字列 Trim(cbFile.Text), // ファイル名 Trim(cbLib.Text), // ライブラリ名 cbmember.items, // メンバーリスト ( 戻り ) List1, // メンバー記述リスト ( 戻り ) 32000); // バッファサイズ List1.Free; //StringListの破棄 end; 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 12

13 Q1 オブジェクトのリストを取得するには? 4TTable で指定したファイルデータを取得 procedure TfrmQ1_1.btnDataClick(Sender: TObject); var FileName : String; // 編集用ファイル名 MembName : String; // 編集用メンバー名 begin // メンバー名の編集 : 指定がなければファイル名 if (Trim(cbMember.Text) = '') then MembName := cbfile.text else MembName := cbmember.text; // ファイル指定の編集 : ライブラリ名 / ファイル名 ( メンバ名 ) FileName := Trim(cbLib.Text) + '/' + Trim(cbFile.Text) + '(' + Trim(MembName) + ')'; // データの取得 Table1.Close; Table1.TableName := FileName; Table1.Open; end; 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 13

14 Q1 オブジェクトのリストを取得するには? 応用例 2 ListSpool400/Spool400 を利用してスプールデータを DBGrid に表示 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 14

15 Q1 オブジェクトのリストを取得するには? 1TcGetListLib で取得 ( 応用 1 と同じ ) 2TcGetListOutqueue で取得 3TListSpool400 で取得 4TSpool400 で取得 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 15

16 Q1 オブジェクトのリストを取得するには? 2TcGetListOutqueue でアウトキューのリストを取得 procedure TfrmQ1_2.btnOUTQClick(Sender: TObject); var List1 : TStringList; //Discription 格納用 StringList Filter: String; // 絞込み文字列 begin //Discription 格納用 StringListの生成 List1 := TStringList.Create; // アウトキュー用コンボボックスの初期化 cboutq.items.clear; // 絞込み文字列の取得 Filter := DMMain.FilterStr(edOUTQFilter.Text); // アウトキューリストの取得 TcGetListOutqueue(DMMain.As400.GetHandle, // 接続ハンドル Filter, // 絞込み文字列 Trim(cbLIB.Text), // ライブラリ名 cboutq.items, // アウトキューリスト ( 戻り ) List1, // アウトキュー記述リスト ( 戻り ) 32000); // バッファサイズ List1.Free; //StringListの破棄 end; 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 16

17 Q1 オブジェクトのリストを取得するには? 3TListSpool400でスプールリストを取得 procedure TfrmQ1_2.btnListSpoolClick(Sender: TObject); begin //TListSpool400のプロパティを設定してリストを取得 with ListSpool4001 do begin Active := false; // 切断 LibraryName := Trim(cbLIB.Text); // ライブラリ名 OutQName := Trim(cbOUTQ.Text); // アウトキュー名 Active := true; // 接続 end; end; 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 17

18 Q1 オブジェクトのリストを取得するには? 4TSpool400 でスプールデータを取得 procedure TfrmQ1_2.btnSpoolClick(Sender: TObject); begin with Spool4001 do begin Active := false; // 切断 // ワーク名をクリアしておかないと2 回目同じワークとなります WorkFile := ; // スプール名 SpoolName := ListSpool4001.FieldByName('Name').AsString; // スプールナンバー SpoolNumber := ListSpool4001.FieldByName('SpoolFileNumber').AsString; // ジョブ名 JobName := ListSpool4001.FieldByName('JobName').AsString; // ジョブナンバー JobNumber := ListSpool4001.FieldByName('JobNumber').AsString; // ユーザー名 User := ListSpool4001.FieldByName('UserName').AsString; Active := true; // 接続 end; end; 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 18

19 Q2 SQL でメンバを扱うには? 質問 SQL でメンバを指定して ファイルのデータを取得することはできますか? 回答 SQL 構文上でメンバを指定してデータを取得することはできませんが OVRDBF を利用することでメンバに対して SQL を発行することができます 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 19

20 Q2 SQL でメンバを扱うには? ファイルの指定ルール ファイルの直接指定 TTbale.Tablename 等ライブラリ名 / ファイル名 ( メンバ名 ) SQL でのファイル指定 TQuery.SQL 等ライブラリ名 / ファイル名 ( メンバ名 ) 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 20

21 Q2 SQL でメンバを扱うには? OVRDBF コマンド OVRDBF FILE( ファイル名 ) TOFILE( ライブラリ名 / ファイル名 ) MBR( メンバ名 ) OVRSCOPE(*JOB) OVRSCOPE( 有効範囲 ) はセッション内で使えるよう *JOB を指定 OVRDBF コマンドの発行 ファイル A( メンバ 2) をファイル A として扱う SQL の発行 ファイル A( メンバ 2) を取得 SELECT * FROM ファイル A ファイル A ( メンバ 1) ( メンバ 2) 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 21

22 Q2 SQL でメンバを扱うには? OVRDVFを利用したメンバに対するSELECT 実行 procedure TfrmQ2.btnDataClick(Sender: TObject); var SelStr : String; // 編集用 Select 文 OvrStr : String; // 編集用 OVRDBF 文 LibName : String; // 編集用ライブラリ名 FileName : String; // 編集用ファイル名 MembName : String; // 編集用メンバー名 begin // ライブラリ名設定 LibName := Trim(cbLib.Text); // ファイル名設定 FileName := Trim(cbFile.Text); // メンバー名の編集設定 : 指定がなければファイル名 if (Trim(cbMember.Text) = '') then MembName := FileName else MembName := cbmember.text; 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 22

23 Q2 SQL でメンバを扱うには? //OVRDBF 文の編集 : OvrStr := 'OVRDBF FILE(' + FileName + ')' + ' TOFILE(' + LibName + '/' + FileName + ')' + ' MBR(' + MembName + ') OVRSCOPE(*JOB)'; //OVRDBF 実行 DMMain.As400.RemoteCmd(OvrStr); //SELECT 文の編集 : ライブラリ名 / ファイル名 SelStr := ' SELECT * FROM ' + FileName; // データの取得 Query1.Close; Query1.SQL.Clear; Query1.SQL.Add(SelStr); Query1.Open; end; OVRDBF FILE( ファイル名 ) TOFILE( ライブラリ名 / ファイル名 ) MBR( メンバ名 ) OVRSCOPE(*JOB) 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 23

24 Q3 デバッグモードを判断するには? 質問 開発環境でのデバッグする度に接続のユーザー / パスワードを入力するのが面倒なので省略できませんか? 回答 プログラム上でユーザー / パスワードを指定することは可能ですので デバッグモードかどうかを判断して設定すればデバッグ実行時のみ ログインを省略することも可能です 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 24

25 Q3 デバッグモードを判断するには? with DataBase1 do begin // デバッグ実行であればユーザー / パスワードを自動設定 if DebugHook <> 0 then begin LoginPrompt := False; Params.Values['USER NAME'] := ' ユーザー名 '; Params.Values['PASSWORD'] := ' パスワード '; end; // 本番 (EXE) 実行ではここで入力ダイアログ end; Connected := True; DebugHook デバッグ実行時 :1 EXE 実行時 :0 開発環境デバッグ実行時だけ暗黙のログインを行うことで 開発上での手間を省きます その他デバッグ実行時のみ扱うデータ参照先を切り替えるなどの工夫もできます 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 25

26 Q4 他プログラムから Exe を起動するには? 質問 既存の 5250 システムから Delphi/400 のプログラムを呼び出すことはできますか? 回答 IBM i から PC 上のプログラム (EXE) を起動する場合 STRPCCMD コマンドを利用することができます これにより 5250 画面のシステムから ローカル PC 上にあるプログラムを起動することができます 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 26

27 Q4 他プログラムから Exe を起動するには? 5250 からの EXE 起動 STRPCCMD PCCMD( プログラム名 ') STRPCO( オーガナイザー ) が開始している必要があります 起動 Delphi/400 で帳票出力の EXE を作成しておき 5250 システムから Windows プリンタへの出力機能として組み込むことも可能です 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 27

28 Q4 他プログラムから Exe を起動するには? html からの EXE 起動例 )javascript を利用して EXE を起動 <html> <script language="javascript"><!-- function cmd(){ var obj = new ActiveXObject("WScript.Shell"); obj.run("c: PGM.exe"); } --></script> 起動 <input type=button value= EXE 起動 ' onclick="javascript:cmd()"> </html> 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 28

29 Q4 他プログラムから Exe を起動するには? EXE からの別 EXE 起動 CreateProcess を利用した EXE 起動 procedure TfrmQ4_CALL.btnQ4CALLClick(Sender: TObject); var StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation; begin // プログラムの起動 CreateProcess( // 実行ファイル名 nil, // コマンドライン PCHAR( プログラム名 ), // プロセスのセキュリティ属性 nil, // スレッドのセキュリティ属性 nil, // 親プロセスからハンドルを継承するか False, // 優先順位とプロセスの制作制御 CREATE_DEFAULT_ERROR_MODE, // 環境変数ブロックへのポインタ nil, // カレントディレクトリ nil, // ウィンドウの属性 StartupInfo, // 新しいプロセスの情報を受け取る構造体 ProcessInfo); end; 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 29

30 Q4 他プログラムから Exe を起動するには? EXE 起動時のパラメータの使い方 ( 呼び出される側 ) Delphiプログラムは外部パラメータを簡単に受け取ることができます Exeを起動する際に後ろに半角ブランク区切りでパラメータを指定できます C: PGM.EXE ABC DEF GHI と起動すると procedure TForm1.FormCreate(Sender: TObject); begin end; Edit1.Text := ParamStr(1); Edit2.Text := ParamStr(2); Edit3.Text := ParamStr(3); ParamStr( 番号 ) で取得できます 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 30

31 Q4 他プログラムから Exe を起動するには? デバッグ実行で外部パラメータを指定する場合上部メニューの [ 実行 ] -> [ 実行時引数 ] から設定 Delphi のバージョンによって設定の名前が若干異なります ( 上 Ver2007 下 Ver7) 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 31

32 Q5 OS/400 V6R1でDelphi/400は使用できますか? 質問 OS/400 V6R1 上で Delphi/400 を稼動させることはできますか? 回答 OS/400 V6R1 上でも Delphi/400 は稼動できます 開発元では各バージョン最新版での稼動を保障しています また弊社でも各バージョンの動作検証を進めております Delphi/400 V5,V6,V7,V2006,V2007 は検証済です 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 32

33 Q5 OS/400 V6R1 上で Delphi/400 は使えますか? Delphi/400 の OS/400 V6R1 検証済バージョン Delphi/400 V5 Delphi/400 V6 Delphi/400 V7 Delphi/400 V2005 Delphi/400 V2006 Delphi/400 V2007 V 以降 V 以降 V 以降 V9.0.18を検証中 V 以降 V 以降 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 33

34 Q5 OS/400 V6R1 上で Delphi/400 は使えますか? OS/400 V5R4 V6R1 PTF 情報 (Delphi/400 関連 ) Delphi/400 より BDE 経由で SQL を実行した場合 複数ファイルを結合した SQL を発行した場合に SQL0305 のエラーが発生する場合があります これは 2008 年以降の PTF を適用している場合にのみ発生しますので 上記エラーが発生する場合は 以下の PTF を適用することで対応することができます OS/400 V5R4:SI32106 OS/400 V6R1:SI32632 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 34

35 Q5 OS/400 V6R1 上で Delphi/400 は使えますか? OS/400 V5R4 旧 OS/400 より VersionUP 時の注意点 Delphi/400 より BDE 経由で SQL を実行した場合 UDF( ユーザー定義関数 ) を JOIN や GROUP BY 節で使用すると SQL0583 のエラーとなることがあります UDF が NOT DETERMINISTIC で宣言しているとこの制約でエラーになる可能性があるので UDF 内で明示的に DETERMINISTIC を宣言しておくとエラーは発生しません 宣言がないと NOT DETERMINISTIC になります UDF 例 )CREATE FUNCTION TEST(VALUE INT) RETURNS INT LANGUAGE SQL DETERMINISTIC // 明示的に宣言 CONTAINS SQL RETURN(VALUE * 2) 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 35

36 お持ち帰り資料 VCL for the Web(IntraWeb) Q&A 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 36

37 QA Cookie を利用した制御 質問 Cookie を利用して当日限りで 1 回目以降のログイン入力に初期値を設定することはできますか? 回答 Cookie は TWebReques の CookieFields プロパティや TWebResponse の SetCookieField メソッドで扱うことができます 扱えることとは別にセキュリティ的な配慮は必要です 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 37

38 QA Cookie を利用した制御 初回ログイン時 2 回目以降ログイン時 ログインで Cookie 書込み Cookie から初期値取得 Cookie 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 38

39 QA Cookie を利用した制御 ログイン時に Cookie の作成 procedure TIWForm1.IWButton1Click(Sender: TObject); var slstcookie: TStringList; begin slstcookie := TStringList.Create; try with slstcookie do begin Clear; Append('USER=' + IWEdit1.Text); Append('PASS=' + IWEdit2.Text); end; webapplication.response.setcookiefield(slstcookie, '', '', (Now + 1), False); finally slstcookie.free; end; end; ログインで Cookie 書込み SetCookieField メソッドについては次ページ参照 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 39

40 QA Cookie を利用した制御 SetCookieField メソッドと Cookie の扱い procedure SetCookieField(Values: TStrings; const ADomain: string; const APath: string; AExpires: TDateTime; ASecure: Boolean); パラメータ Values:Cookie の格納内容複数の Cookie をまとめて書き込むことができます ADomain:Cookie 送信先のドメイン名省略時は使用している場合 Cookie 応答を生成したサーバのホスト名です APath: Cookie 送信先のパス URL のドメイン以降のパス 取得時にはこのパスが前方一致で一致する Cookie を扱います 実際にアクセスを行う URL の考慮が必要です Aexpires: Cookie 有効期限削除する場合は過去の日付を設定したりもします Asecure: セキュリティの確保セキュリティが確保された接続の使用時に Cookie をクライアントによってのみ渡すかどうかを設定します 例えばこの URL であれば動的生成部分を含めないように配置先を指定する /DelphiISAPI と指定しておくと前方一致する URL 上で格納した Cookie を扱うことができます 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 40

41 QA Cookie を利用した制御 Cookie に格納された値 画面起動時に Cookie の取得 procedure TIWForm1. IWAppFormCreate(Sender: TObject); begin with webapplication.request.cookiefields do begin IWEdit1.Text := HttpDecode(Values['USER']); IWEdit2.Text := HttpDecode(Values['PASS']); end; end; デコードして値を取得 USER%82%E6%82%B5%82%ED%82%E7 PASSMIGARO Cookie から初期値取得 空白や特殊記号 日本語等の全角文字は HTTPApp ユニットの HTTPDecode でデコードして取得する必要があります 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 41

42 QB IWText の右寄せ表示 質問 IWText での表示内容を右寄せで表示したいのですが 可能でしょうか? 回答 IWText IWMemo IWButton 等には残念ながら Alignment プロパティは存在しません 右寄せに表示を行いたい場合は style タグを利用する方法が考えられます 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 42

43 QB IWText の右寄せ表示 ExtraTagParams プロパティに Style タグを記述 Delphi7 で附属していた IWEdit も Alignment プロパティがないので同じような対処ができます 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 43

44 QC 開発モードの変更方法 質問 スタンドアロンで開発して ISAPI アプリケーションに変更することはできますか? 回答 ISAPI アプリケーションで新規作成したプロジェクトにスタンドアロンで作成モジュールを取り込みを行うことで簡単に作り変えることができます テスト / 本番用にプロジェクトファイルを用意すると便利です 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 44

45 QC 開発モードの変更方法 ISAPI への変更手順 1 メニューの [ ファイル 新規作成 その他 ] を選び 表示されたツリーの中から Delphi プロジェクト -VCL for the Web を選択します 次に表示されたアイコンの中から VCL for the Web Application Wizard を選択します Application Type で ISAPI Extension を選択します 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 45

46 QC 開発モードの変更方法 2 IWForm1 UserSessionUnit の ServerController のファイルが作成されます デフォルトで作成されたこれらのファイルが不要ならば メニューの プロジェクト プロジェクトから削除 で削除します 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 46

47 QC 開発モードの変更方法 3 メニューの プロジェクト プロジェクトに追加 を選択し スタンドアロンモードのユニットのあるフォルダを指定し 必要なユニットを追加します 4 メニューの ファイル すべて保存 を選びます 5 メニューの プロジェクト XXXXX( プロジェクト名 ) をコンパイル を行うと ISAPI の dll ファイルが作成されます 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 47

48 QD IIS 上での動作の違い 質問 スタンドアロンモードで動作した処理やタイムアウトの動作が IIS 上ではうまくいきません 回答 IIS 上で動作を行う場合 スタンドアロンモードと違い IIS のユーザーでプログラムが実行されることになります 環境上の権限や IIS の制御の設定などの実行環境との違いを確認する必要があります 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 48

49 QD IIS 上での動作の違い 実行ユーザーの権限 IIS が稼動している OS はディフォルトでは IUSR_ サーバー名 アカウントのユーザーとして 匿名アクセスを認識しています ISAPI アプリケーションもこのユーザーで実行されることになります この IUSR_ サーバー名 アカウントはディフォルトではローカルログオン権限とゲスト権限しか割り当てられていないません スタンドアロンモードとの動作の違いを ISAPI の実行ユーザーの権限によるものかを確認する必要があります ブラウザ Webサーバ IIS 例えばプリンタに対する権限 アクセス ISAPI アプリケーション 処理 アプリケーションの実行ユーザーは IUSR_ サーバー名 プリンタ 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 49

50 QD IIS 上での動作の違い セッションのタイムアウトについて アプリケーション側 IWServerController の SessionTimeOut プロパティで設定することができます また SessionTimeOutURL プロパティでの URL やファイルを設定しておくことで セッションアウト時の遷移先とすることもできます (URL とファイルは片方しか設定できません ) 見落とし易い IIS 側 バージョンによって設定も異なりますが 通常の 接続のタイムアウト の設定の他 アプリケーションプール上のアイドルタイムアウトなどの設定も管理する必要があります IIS 側でセッションが切断されてしまうと アプリケーション側もセッションを保つことはできません 本文書の一部または全部の転載を禁止します 本文書の著作権は 著作者に帰属します 50