スレッド一覧 Page7 - DOBON.NETお気楽掲示板

お願いします。

復号化したバイト型に代入されているbsを文字列に変換し出力すると２回目以降、止まってしまいます。
追加した部分でおかしいような感じはしないのですが。
よろしくお願いいたします。

Public Function DecryptFile(ByVal sourceFile As String, _
ByVal destFile As String, _
ByVal key As Byte(), _
ByVal iv As Byte()) As String
'RijndaelManagedオブジェクトの作成
Dim rijndael As New System.Security.Cryptography.RijndaelManaged()

'共有キーと初期化ベクタを設定
rijndael.Key = key
rijndael.IV = iv

'暗号化されたファイルを読み込むためのFileStream
Dim inFs As New System.IO.FileStream( _
sourceFile, System.IO.FileMode.Open, System.IO.FileAccess.Read)
'対称復号化オブジェクトの作成
Dim decryptor As System.Security.Cryptography.ICryptoTransform = _
rijndael.CreateDecryptor()
'暗号化されたデータを読み込むためのCryptoStreamの作成
Dim cryptStrm As New System.Security.Cryptography.CryptoStream( _
inFs, decryptor, System.Security.Cryptography.CryptoStreamMode.Read)

'復号化されたデータを書き出す
Dim outFs As New System.IO.FileStream( _
destFile, System.IO.FileMode.Create, System.IO.FileAccess.Write)
Dim bs As Byte() = New Byte(1023) {}
Dim readLen As Integer
While True
'復号化に失敗すると例外CryptographicExceptionが発生
readLen = cryptStrm.Read(bs, 0, bs.Length)
If readLen = 0 Then
Exit While
End If
outFs.Write(bs, 0, readLen)
End While

---追加した部分--------------------------
Dim DecryptStr As String
'Shift JISとして文字列に変換
DecryptStr = System.Text.Encoding.GetEncoding(932).GetString(bs)
Console.WriteLine(DecryptStr)　
-----------------------------------------

'閉じる
outFs.Close() ←ココで止まる
cryptStrm.Close()
decryptor.Dispose()
inFs.Close()

■記事リスト / ▼下のスレッド / ▲上のスレッド

■1557 / 親記事)

　TCP通信で受信処理の再帰的な呼び出し自に排他処理が必要か？

□投稿者/ みけんにしわ -(2014/12/16(Tue) 21:20:36)

こんにちは。
TCP通信で受信時の非同期呼び出しについて教えてください。

以下の記事を参考にしています。（書き込みマナーに反しますか？）
「TCPを利用した複数クライアント接続可能なチャットアプリケーションを作る」

受信処理を非同期で再帰的に呼び出しており、次の受信処理（BeginReceive）時に
自信ソケットをSyncLockで排他制御しています。
ごく稀に同期でよばれてしまい、ほかの通信や処理とデッドロックを起こしてしまう事があります。

質問としては
１．同期でよばれる条件
　　同期呼ばれる事自体は同期、非同期の判断する方法があるので仕様？と思っています。

２．受信時にBeginReceiveを排他で呼ぶ必要性

よろしければご教授お願いします。

以上、よろしくお願いします。

■記事リスト / ▼下のスレッド / ▲上のスレッド

■1556 / 親記事)

　.net ＡＬＴキー押下時の処理について

□投稿者/ 1105 -(2014/11/25(Tue) 14:40:28)

こんにちわ。

VB2008でSPREAD for Windows Forms 5.0Jを利用して開発しています。

以下のような場合どのように対応すればよいか解る方はいらっしゃいますか。
--------------------------------------------------------------------------
スプレッドで1行目を選択し↓へスクロールしたとします。

選択している1行目が画面から表示されなくなった箇所でＡＬＴ＋ＴＡＢを押して
他に立ちあがっているエクセル等を選択します。

再度ＡＬＴ＋ＴＡＢを押してエクセルからスプレッドにフォーカスが移った場合に
60行目ではなく選択されていた1行目までスクロールが戻ってしまいます。

60行目が表示されたままになるよい方法はないでしょうか。

調べますとＡＬＴ＋ＴＡＢではなくＡＬＴを長押しした場合でも同じようになります。

(こちらではなくグレープシティの掲示板へ記入するべきだとは思いますが
5.0Jはサポートが切れているようで掲示板への記入ができませんでした。。。)
--------------------------------------------------------------------------

■記事リスト / ▼下のスレッド / ▲上のスレッド

■1551 / 親記事)

　チェックボックスのKeyDownについて

□投稿者/ 鹿児島のHIRO -(2014/08/25(Mon) 16:03:17)

VB2010で開発をしています鹿児島のHIROと言います。

キーボード操作だけでカーソルの移動を行いたいのですが
チェックボックスコントロールの時にKeys.Down、Keys.Upが押されても
KeyDownイベントを発生させたいのですが、手法が判りません。

ちなみに、Keys.Enterの時にはイベントが発生するのですが。

以下にサンプルを

Private Sub TextBox1_Enter(sender As Object, e As System.EventArgs) Handles TextBox1.Enter
CheckBox1.BackColor = Color.Blue
End Sub

Private Sub TextBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
Select Case e.KeyCode
Case Keys.Enter, Keys.Down
Call CheckBox1.Select()
Case Keys.Up
Call TextBox1.Select()
End Select
End Sub

Private Sub CheckBox1_Enter(sender As Object, e As System.EventArgs) Handles CheckBox1.Enter
CheckBox1.BackColor = Color.Red
End Sub

Private Sub CheckBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles CheckBox1.KeyDown
'---- Keys.Enter時はイベント発生。Keys.Down、Keys.Up時にイベントが発生しない。
Select Case e.KeyCode
Case Keys.Enter, Keys.Down
Call TextBox2.Select()
Case Keys.Up
Call TextBox1.Select()
End Select

End Sub

Private Sub TextBox2_Enter(sender As Object, e As System.EventArgs) Handles TextBox2.Enter
CheckBox1.BackColor = Color.Blue
End Sub

Private Sub TextBox2_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
Select Case e.KeyCode
Case Keys.Enter, Keys.Down
Call TextBox1.Select()
Case Keys.Up
Call CheckBox1.Select()
End Select
End Sub

ちなみに、掲示板のルールに触れるような投稿でしたら教えてください

▽[全レス2件(ResNo.1-2 表示)]

■1552 / ResNo.1)

　Re[1]: チェックボックスのKeyDownについて

□投稿者/ 管理人 -(2014/08/28(Thu) 00:57:14)

■No1551に返信(鹿児島のHIROさんの記事)

こんにちは。

コントロールで矢印、Tab、Enter、Escキーが押されたことを知る
http://dobon.net/vb/dotnet/control/btndetectarraykey.html

はお試しになられましたか？

■1553 / ResNo.2)

　Re[2]: チェックボックスのKeyDownについて

□投稿者/ 鹿児島のHIRO -(2014/08/28(Thu) 09:23:54)

管理人様、無事に解決出来ました。

PreviewKeyDownイベントは、他のプログラムでも役に立ちそうです。

解決済み!

■記事リスト / レス記事表示 → [親記事-2]

■記事リスト / ▲上のスレッド

■1548 / 親記事)

　プログラムでExcel操作したときにExcelが起動する

□投稿者/ みけんにしわ -(2014/08/05(Tue) 12:21:11)

こんにちは。

プログラムでエクセルの帳票からデータを取得する処理を作成したのですが、
対象のExcelファイルを読み込むときにExcelが立ち上がります。

立ち上がらずに取得する方法はあるのでしょうか？

ファイルを読み込むときは以下のようにしてExcelを開いています。

Microsoft.Office.Interopをインポートして
xlApp = New Excel.Application
xlBook = xlBooks.Open(FilePath)

＜環境＞
Windows7
VS2010 Framework 4.0

▽[全レス2件(ResNo.1-2 表示)]

■1549 / ResNo.1)

　Re[1]: プログラムでExcel操作したときにExcelが起動する

□投稿者/ satodai -(2014/08/06(Wed) 16:33:40)

> 立ち上がらずに取得する方法はあるのでしょうか？

必ず立ち上がると思います。

画面にエクセルブックを表示させたくないということであれば

xlApp = New Excel.Application
の直後に
xlApp.Visible = false;

としてあげれば、外見上は立ち上がっていないように見えます。

おそらく、これが一般的な対処法だと思います。

■1550 / ResNo.2)

　Re[2]: プログラムでExcel操作したときにExcelが起動する

□投稿者/ みけんにしわ -(2014/08/12(Tue) 11:21:12)

返信が遅くなり申し訳ありません。

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

＞xlApp.Visible = false
表示されませんでした。
Visibleをfalse見落としておりました。。。

■No1549に返信(satodaiさんの記事)
>>立ち上がらずに取得する方法はあるのでしょうか？
>
> 必ず立ち上がると思います。
>
> 画面にエクセルブックを表示させたくないということであれば
>
> xlApp = New Excel.Application
> の直後に
> xlApp.Visible = false;
>
> としてあげれば、外見上は立ち上がっていないように見えます。
>
> おそらく、これが一般的な対処法だと思います。

解決済み!

■記事リスト / レス記事表示 → [親記事-2]

＜前のスレッド5件 | 次のスレッド5件＞
- ( ページ移動 / << 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 >> )

2024/04/19(Fri) 01:17:30 に作成されたキャッシュを表示しています。
生のデータを表示する | キャッシュを最新にする