- ベストアンサー
VB2005でNetworkStreamで取得したデータのバイト数の取得方法について
chie65536の回答
追記。 ＞以下のように「自分で実装する必要」があります。 もちろん、自分で実装などせずに「ReadTimeoutプロパティに適切な値をセットし、DataAvailableプロパティがTrueだろうがFalseだろうが構わずにReadメソッドを呼び出し、Readメソッドが０以外を返した場合は処理を継続し、Readメソッドが０を返した場合はセッションが切れたかタイムアウトした時だからそこで強制終了する」と言う実装をした方が、遥かに簡単です。
関連するQ&A
- バイト配列のバイト数の設定方法を教えてください
下のようなコードでＷｅｂページのソースを取得して、 そのページのコードを解析して、文字化けのない正常な状態で 変数にソースコードを代入するプログラムなのですが、 バイト配列に代入するためのバイト配列の配列数ですが、 5000などとするとページの途中まで正常に取得できるのですが、 多めにと思って50000とかとすると文字化けしてしまいます。 多すぎるとだめなようなのですが、これをぴったりの数値で設定するには ページのバイト数はどのように取得したら良いでしょうか？ 下のコードのGetCode(bs)というのは http://dobon.net/vb/dotnet/string/detectcode.html のページにあるコード解析関数の呼び出しの部分です。 Dim txt As String = "http://www.yahoo.co.jp" Dim wc As New System.Net.WebClient Dim fs As System.IO.Stream = wc.OpenRead(txt) Dim bs(5000) As Byte 'byte配列に読み込む fs.Read(bs, 0, bs.Length) fs.Close() '文字コードを取得する Dim enc As System.Text.Encoding = GetCode(bs) 'デコードしてtxtに代入する txt = enc.GetString(bs) よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- vb.netのプロパティの使い方について
こんにちわ！ vb.netのプロパティの使い方がわからず困っています。 具体的にはTCPクライアント接続を行い、データ送信前に現在接続を行っているかチェックを行いたいです。 作ったのは↓ Public Class Form1 'ボタンを押したら Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim tcp_conect As New System.Net.Sockets.TcpClient 'ソケット作成 Dim net_stream As System.Net.Sockets.NetworkStream = Nothing 'ストリーム取得 Dim send_bytes As Byte() = {&HFF, &H0} '送信データ tcp_conect.Connect("192.168.1.1", "2000") 'ソケット接続 net_stream = tcp_conect.GetStream() 'ソケットストリーム取得 If tcp_conect.conected = True Then 'エラーが出てしまう。 net_stream.Write(send_bytes, 0, send_bytes.Length) 'データ送信 End If tcp_conect.Close() 'ソケット閉じる End Sub End Class 'プロパティ Public Class TcpClient Dim _conect_test As Boolean Public ReadOnly Property Connected As Boolean Get Stop Return _conect_test End Get End Property End Class これでテストをしたいのですが、プロパティが実行されません。 もしかしてプロパティの使い方がそもそも違うのかもしれないのですが、、、 アドバイスのほどよろしくお願いいたします。 ちなみに使用しているのは windows7 Visual Studio Express 2012です。
- 締切済み
- その他（インターネット・Webサービス）
- VB2005 で encoding="Shift_JIS"や"EUC-JP"のXMLファイルを保存する方法
VB2005, XML の初心者です。 VB2005で encoding="Shift_JIS" や "EUC-JP" のXMLデータをファイルに保存するにはどうすれば良いのでしょうか。 encoding="UTF-8"であれば、下記で保存できますが、="Shift_JIS" や "EUC-JP" になると保存でエラーになってしまいます。 下記ソースでは、strXMLには正しくXMLが入っていますが、saveするとエラーになり、ファイルの中身を確認すると、日本語の箇所で切れていました。 Public Client As TcpClient Dim stream As NetworkStream stream = Client.GetStream() Dim Data(10000) As Byte Dim len As Int16 = stream.Read(Data, 0, Data.Length) strXML = System.Text.Encoding.UTF8.GetString(Data, 0, len) MsxmlDoc = New MSXML2.DOMDocument Msxmldoc.Loadxml(strXML) MsxmlDoc.save ( "C:\XML.xml") 文字コードについても初心者ですので、ヒントになるようなことでも教えていただければ幸いです。 よろしくお願い致します。
- ベストアンサー
- XML
- .NET Stringからバイト数を取得する。
初歩的な質問で申し訳ありません。 Stringから桁数ではなくバイト数を 取得する方法を教えてください。 Dim a As String a = "00あ" とあった場合、 aから4という結果がほしいです。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Sockets.TcpClient プログラミング
初めて質問するので、作法等に誤りがあるかもしれませんがどうぞよろしくお願いします。 【環境等】 OS：Windows2007 64bit 言語：Visual Stadio 2008 (Framework2.0用で開発)のVB.net 【やりたいこと】 Sockets.TcpClientを使用して自PC上で自PC宛てに通信を行いたい 【解決したい内容】 実行時にファイアウォールのブロック警告をでないようにしたい。 ・初回実行でアクセス許可を行ったあと、アプリを別フォルダに移して実行すると再度警告がでる ・下記自作PGの抜粋 Dim objSck As Sockets.TcpClient Dim objStm As Sockets.NetworkStream Dim myTcpClient As Sockets.TcpClient = myListener.AcceptTcpClient() objSck = myTcpClient objStm = myTcpClient.GetStream() 以上 解決方法をご存じの方はご教示いただければ幸いです。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- vb2008で文字列から文字列コードを取得する方法
サイトHTMLをWebBrowserを使用せずに取得するために、 Dim stream As System.IO.Stream = client.OpenRead(tbItemURL.Text) Dim reader As New System.IO.StreamReader(stream) Dim strHtml = reader.ReadToEnd() reader.Close() stream.Close() のような形で文字列を取得しています。 しかし、この場合Sift-jis等の場合、後の作業（一部データ取得）で文字化けに悩まされます。 http://dobon.net/vb/dotnet/string/detectcode.html 上記サイトで「バイト配列」に格納して判別する方法があります。 そこで、文字列をバイト配列に格納しようとしますが…。 文字列→バイト配列には文字コードが必要となります。 Dim data() As Byte = Encoding.UTF8.GetBytes(text) なんだか鶏と卵のような感じになってしまいます。 文字列から文字コードを判別する方法はないでしょうか？ よろしくお願いします。
- ベストアンサー
- Visual Basic
- VB.NETで、20バイト程度のデータを5000件ぐらい一時データとして・・
VB.NETで、10バイト程度のデータを5000件下手すればもっと？ぐらい一時データとして・・プログラムで使いたいんですが、今はファイルに保存して読み込みながらやってるんですが、処理速度が遅いので、配列にしようかなーと考えているのですが、データベースから読み込んでいるのでデータ数が不明なのです。 dim abc as(10000) as string とかやれば簡単なのですが、これだとメモリ使いすぎ？な気がして。 何かよい方法ないでしょうかー？
- ベストアンサー
- Visual Basic
- クラス内に自作のイベントを定義したい VB2005
VB2005を使っています。 クラス内に自作のイベントを定義したいのですがどうすればよいのでしょうか？ 非同期のソケットから帰ってきた場合に発生させるイベントです。 System.Net.Sockets.TcpClient System.Net.Sockets.NetworkStream 以下のようにループでなくイベントで処理させたいです。 Do If .DataAvailable Then ... End If My.Application.DoEvents() Loop
- ベストアンサー
- Visual Basic
- ＶＢ６で、指定バイト数を超えた場合はその直前に。
VB6で、最高文字数を指定するとともに、そのバイト数を超えた場合、超える直前の状態を出力する文字列とする、という処理を考えています。 最大のバイト数を１１６とすると、全角なら５８文字までですが、 ５７文字まで全角で入力し、次の一文字を半角にする。 そして最後に全角を１文字打つと、116バイトを超えてしまうので、 出力文字は半角のところまでとする。 という形です。 Public Function GetStrForLimitByte(cs As String, size As Long) Dim i As Long Dim p As Long Dim limitStr As String Dim temp As String Dim parts() As String limitStr = "" ' 文字列のバイト数が指定バイト数以下は文字列をそのまま返す If (LenB(cs) <= size) Then cs = cs Else p = Len(cs) For i = 1 To p parts(i) = Mid(cs, i, 1) '1文字ずつ連結 temp = limitStr + parts(i) If (LenB(temp) > size) Then limitStr = limitStr Else limitStr = limitStr + parts(i) End If Next End If End Function すると、parts(i) = Mid(cs, i, 1)のところで「インデックスが有効範囲でありません。」 というメッセが出てしまいます。 なぜでしょうか？ ご回答お待ちします、お願いします。
- ベストアンサー
- Visual Basic
- データ数の定まらないデータをもれなく配列変数に格納する方法
あるときは10個またあるときは100個のデータがあるとします。 しかし、データの数は1000個になるかもしれませんし、1個になるかもしれません。 ただし、データ数が0個以下になることはありません。 このような、データ数の定まらないデータを確実にもれなく配列変数に代入したいのですが、方法がわかりません。 変数で dim hairetu(kazu) as integer として配列の数を設定できれば良いのですが、どうも無理のようです。 データの最大数（仮に1000個）を決めて dim hairetu(1000) as integer とするしかないのでしょうか。 何か良い方法はありませんでしょうか。
- ベストアンサー
- Visual Basic
お礼
お礼が遅くなり、申し訳ございません。 自分で実装せずに、Readメソッドが０以外を返した場合は処理を継続し、Readメソッドが０を返した場合はセッションが切れたかタイムアウトした時だからそこで強制終了する、という処理にしました。 途中で途切れたデータを送信する送信側のテストプログラムを作成し、動作確認もしました。 説明いただいた内容がとても分かり易く、よく理解できました。 本当にありがとうございました。