• 締切済み

ファイル保存先指定のダイアログの出力について

ファイル保存先指定のダイアログをappletで表示させています。 ダイアログは表示されるのですが、アクティブになっておらず、 保存先の指定等の操作が出来ません。 アクティブになった事もあるのですが、何度か操作を繰り返していると、アクティブにならなくなりました。 お手数ですが、ご教示をお願いします。 public class FileDialogApplet extends Applet { public void init() { System.out.println("FileDialogApplet初期化"); } public String showDlg(String strFileName) { String strFileFullPath = ""; FileDialog fd = new FileDialog(new Frame(),"保存先を指定してください。 ",FileDialog.SAVE); fd.setFile(strFileName); fd.toFront(); fd.setVisible(true); strFileFullPath = fd.getDirectory(); return strFileFullPath; } } 【JSP】 function chkResult() { var cn = <%= strCheckFlag %>; var oForm = document.wait_message; oForm.FLAGFileName.value = "<%= strFileName %>"; if (cn == 1) { x = window.document.FileDialogApplet.showDlg("<%= strFileName %>"); if (x == "nullnull") { return; } else { var pos = x.lastIndexOf("\\"); if ( x.substring(pos+1,x.length) != "<%= strFileName %>" ) { mpShowMsg("E0003"); return; } } alert( "保存先:" + x + "\n保存ファイル:<%= strFileName %>\nダウンロード 開始します。" );

  • kiyoto
  • お礼率79% (163/205)
  • Java
  • 回答数2
  • ありがとう数2

みんなの回答

  • Bonjin
  • ベストアンサー率43% (418/971)
回答No.2

>アプレットではファイルダイアログは使えないのでしょうか? というよりか、署名の無いアプレットではファイルは取り扱えないはずです。

kiyoto
質問者

お礼

回答ありがとうございましたた。 再度補足させてください。 証明書確認は要求されますが、それとはまた別だということですか? ダイアログがアクティブになった場合は、ファイルをクライアントのフォルダーにダウンロードする事が可可能なのですが。

kiyoto
質問者

補足

署名付のアップレットを作成する必要があるという事でしょうか? 具体的にはどのような作成方法になりますでしょうか?

  • UKY
  • ベストアンサー率50% (604/1207)
回答No.1

そもそもアプレットではファイルダイアログは使えないかと……。

kiyoto
質問者

お礼

回答ありがとうございました。

kiyoto
質問者

補足

ご回答ありがとうございます。 常に非アクティブではなく、アクティブ状態の時もあります。 非アクティブでもコントロールとタブキーで操作するとアクティブになる事もあります。 動作が安定していないということで、アプレットではファイルダイアログは使えないのでしょうか?

関連するQ&A

  • ファイル保存先のダイアログが背面に表示されてしまう

    FileDialogにてファイル保存先のダイアログを表示させるのですが、 表示している画面の後ろに表示されてしまいます。 どのような対応で前面に表示できますでしょうか? お手数ですが、ご教示ください。

    • ベストアンサー
    • Java
  • ファイルの保存ダイアログの表示座標を指定したい

    アプリケーションのファイルメニューにある「ファイルの保存」などで 呼び出された保存先を指定するダイアログの表示場所がいつも そのアプリケーションの真ん中だったりで使いづらいのです。 ダイアログの表示場所をこちらがあらかじめ指定した場所に表示 するように変更するユーティリティがありませんでしょうか? (保存先フォルダを選べるようにする、とかではなくダイアログその ものの表示場所を指定・記憶し再現するものです) ご存じの方おられましたら教えてください。

  • ファイル保存ダイアログ

    こんにちわ。VB6の質問をさせてください。 Text1.Textに入っている文字列をtxtファイルとして保存したいのですが、分からなくて困ってます。 単純にダイアログを出して保存先とファイル名の指定が出来るようにしたいと思ってます。 サンプルコードのページを見たのですが、長すぎて理解できなかったので簡単な説明やHPなどあれば紹介してくれると助かります。 よろしくお願いします。

  • Windows7のファイルを保存ダイアログが小さすぎる

    Windows7でファイルを保存するときに開かれる、 保存先やファイル名を指定するダイアログが小さくて不便です。 右下のリサイズ領域をドラッグすれば適宜変えられますが、 デフォルトの大きさを変えることはできないのでしょうか。

  • 名前を付けて保存時のファイル名の指定

    ボタンを押すとテーブルのデータが出力できるようにしたいと思います。 標準Module1とFormのボタンには下記のような記述をしていますが 添付ファイルのように保存のダイアログまではうまく動いているようです。 ただ、ファイル名がブランクですので、"表示材料_" & Format(Now(), "yyyymmdd")と自動的に表示させたいです。 ご教授お願いいたします。 【PC環境】 Access:2010 WIndows 7 【標準Module1】 Function GetFileName(OpenOrSaveFlg As Boolean, strFilter As String, _ strTitle As String) As String Dim returnValue As Integer Dim strFilePath As String If strFilter = "" Then strFilter = "全てのファイル (*.*)|*.*" End If WizHook.Key = 51488399 'WIZHOOK有効 returnValue = WizHook.GetFileName( _ 0, "", strTitle, "", strFilePath, "", _ strFilter, _ 0, 0, 0, OpenOrSaveFlg _ ) WizHook.Key = 0 ' WizHook 無効 GetFileName = strFilePath End Function 【Fromのボタン】 Private Sub コマンド28_Click() Dim strFileName As String Dim ExpFileName As String ExpFileName = "表示材料_" & Format(Now(), "yyyymmdd") strFileName = GetFileName(False, "MicrosoftExcel ブック (*.xls)|*.xls", "") If Len(strFileName) = 0 Then 'キャンセルボタンが押されたときの処理を記述 MsgBox "キャンセルが押されました。" Else DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "T_WO_MAT", "", True, "" End If End Sub

  • ファイルの保存ダイアログの表示場所を固定したい

    アプリケーションのファイルメニューにある「ファイルの保存」などで 呼び出された保存先を指定するダイアログの表示場所がいつも そのアプリケーションの真ん中だったりで使いづらいのです。 ダイアログの表示場所をこちらがあらかじめ指定した場所に表示 するように変更するユーティリティがありませんでしょうか? ご存じの方おられましたら教えてください。

  • ファイルをダウンロード出来るのに保存先にファイルが無い

    ここ1週間いきなり以前出来ていた圧縮ファイルやら普通のファイルやらがダウロード画面に行き100%になって”♪ピロン”と鳴った次の瞬間ダイアログが消え保存指定先にもファイルが無い… ”ダイアログでダウンロード完了後このダイアログボックスを閉じる”にもチェックは入ってません。 ログインも管理者です。保存先を色々変えても現象変わらず… 色々なサイトで検索してもこの現象と合致しているのが無いような気がしたので、ここで誰か助けて下さい。。。 ちなみにvista・IE7・キングソフトです。

  • ExcelのChDirで二つのフォルダを指定しても一つめしか認識しない

    ExcelのChDirで二つのフォルダを指定しても一つめしか認識しない いつもながらExcelのマクロについての質問です。 ChDir "C:\A" Dim 開く As FileDialog Set 開く = Application.FileDialog(msoFileDialogOpen) If 開く.Show = -1 Then   開く.Execute End If Set 開く = Nothing ChDir "C:\B" Dim 保存 As FileDialog Set 保存 = Application.FileDialog(msoFileDialogSaveAs) If 保存.Show = -1 Then   保存.Execute End If Set 保存 = Nothing これで"C:\A"のフォルダにあるファイルを一つ選び そのファイルをそのまま "C:\B"フォルダにコピーしようとしても コピー先としては 同じ"C:\A"フォルダが表示されてしまいます。 コピー先に "C:\B"フォルダが表示されるようにするためには どうしたらよいのでしょう。 Excel2002およびExcel2003でやってみたのですが 同じ結果でした。 以上、よろしくお願いいたします。

  • Access Excel出力する保存先を指定したいのですが?

    Access初心者です。2003です。 7000ほどのデータを70ほどの抽出条件ごとにエクセルにしています。 抽出条件毎にクエリを複数作成し、各クエリが抽出したデータをマクロでエクセルに出力させています。このマクロをクエリ分作成し、別のマクロでその複数マクロをいっせいに実行させています。マクロには「コマンドの実行」で「Excelに出力」を使用しています。このアクションを使用するとマイドキュメントにエクセルが保存されてしまいます。(たまにディスクトップになります。) この保存先を指定したいのです。ダイアログではなく、設定した任意のフォルダにいっせいに収まるようにです。 「出力」アクションだと保存先のダイアログが出てくれますが、クエリの数が多いので手作業が増えてしまいます。「コマンドの実行」のExcel出力ですと手作業が無いのですが、マイドキュメントに保存されてしまいます。 私がツールを作成し、Accessを知らない人間がフォーム画面で使用するのでなるべく自動化したいと考えています。 へたくそな文ですが、どなたか助けてください。

  • VBAの初心者でやりたいことがあるのですが、どうやっていいのか分かりま

    VBAの初心者でやりたいことがあるのですが、どうやっていいのか分かりません。 やりたいことは 1.フォルダを指定してCSVファイルを読み込む。 2.読み込んだCSVファイルを一行あたり1ファイルのエクセルファイルに書き込む。 3.完成したエクセルファイルを印刷する。 4.フォルダの中のファイルが無くなれば終了 としたいのですが、途中で頓挫しています。 宜しくお願いします。 Option Explicit sub READ_TextFile() Const cnsTITLE = "フォルダ内のファイル名一覧取得" Const cnsDIR = "\*.*" Dim xlAPP As Application Dim strPATHNAME As String Dim strFILENAME As String Dim GYO As Long Const cnsFILTER = "全てのファイル (*.*),*.*" Dim xlAPP2 As Application' Applicationオブジェクト Dim intFF As Integer' FreeFile値 Dim X() As Variant' 読み込んだレコード内容 Dim IX1 As Long' CSV項目カラムINDEX Dim lngREC As Long' レコード件数カウンタ Dim strREC As String' レコード領域 Dim POS1 As Long' レコード文字位置 Dim POS2 As Long' レコード文字位置 Set xlAPP = Application strPATHNAME = xlAPP.InputBox("フォルダ名を入力して下さい。", _ cnsTITLE, "C:\Documents and Settings\hidekazu_miyawaki\デスクトップ\") If StrConv(strPATHNAME, vbUpperCase) = "FALSE" Then Exit Sub If Dir(strPATHNAME, vbDirectory) = "" Then MsgBox "指定のフォルダは存在しません。", vbExclamation, cnsTITLE Exit Sub End If strFILENAME = Dir(strPATHNAME & cnsDIR, vbNormal) Set xlAPP2 = Application Do While strFILENAME <> "" GYO = GYO + 1 Cells(GYO, 1).Value = strFILENAME strFILENAME = Dir() Open strFILENAME For Input As #intFF GYO = 1 Do Until EOF(intFF) lngREC = lngREC + 1 xlAPP2.StatusBar = "読み込み中です(" & lngREC & "レコード目)" Line Input #intFF, strREC POS1 = 1 IX1 = 0 ReDim X(IX1) Do While POS1 <= Len(strREC) POS2 = InStr(POS1, strREC, ",", vbTextCompare) If POS2 < POS1 Then POS2 = Len(strREC) + 1 End If ReDim Preserve X(IX1) X(IX1) = Trim$(Mid$(strREC, POS1, POS2 - POS1)) If (((Left$(X(IX1), 1) = """") And (Right$(X(IX1), 1) = """")) Or _ ((Left$(X(IX1), 1) = "'") And (Right$(X(IX1), 1) = "'"))) Then X(IX1) = Trim$(Mid$(X(IX1), 2, Len(X(IX1)) - 2)) End If POS1 = POS2 + 1 IX1 = IX1 + 1 Loop GYO = GYO + 1 If IX1 >= 1 Then Range(Cells(GYO, 1), Cells(GYO, IX1)).Value = X End If Loop Loop Close #intFF xlAPP.StatusBar = False MsgBox "ファイル読み込みが完了しました。" & vbCr & _ "レコード件数=" & lngREC & "件", vbInformation, cnsTITLE End Sub

専門家に質問してみよう