VB.NET Tcp数据发送问题 [英] VB.NET Tcp data send Problem

问题描述

嗨..



使用小型客户端程序将数据发送到侦听8001端口的服务器，我正在尝试。但是我在服务器上发送数据中文字符出现在收到的信息中，只有当服务器出现问题时才会出现在其他服务器上测试时，所有数据都顺利进行。服务器的客户端程序正在全部数据消失。我可以在一个我做错的地方。



注意：听众服务器是韩国制造的。





我的代码：



Dim Baglanti作为新的TcpClient

昏暗的数据作为NetworkStream





connect



Baglanti.Connect（IPBox.Text，PortBox.Text）

数据= Baglanti.GetStream（）





数据发送



Dim GidenVeri（）As Byte = Encoding.UTF8.GetBytes（TextBox5.Text）

Data.Write（GidenVeri，0，GidenVeri.Length）

数据.Flush（）





关闭



Baglanti.Close（）







听众输出（我的问题）





RecvData：[幞偞偞ㄵㄴ帱帱乐䕍⁔⁔䕃乁偞䵓偞幁䉐ぐ㈱⸷㠰ㄮ㠹帲幞卞卞卞幓㔳㔳㔳㔳㔳㔳㔳㔵〹〷㌰呞ぃ㌰呞卄剁⁉匨剅⥏呞ㅐ呞䭎乁呞㄰䅄ⵈ'匨䵅⁁䅂䅓⩔⤪呞卓⁋䅃䥌䅓幎ご䐳䡁㈭⠠䕓䅍䈠十呁⨪帩ご临䅈䥎幋ご〵彞卓卞幓协㔳㔵〹〷㠰呞ぃ㠰呞䵄剏⠠䕈䅍占佌䥊帩偔帱乔䅋幎ご䐱䡁㈭⠠䕓䅍䈠十呁⨪帩ご匲䭓䌠䱁卉乁呞㌰䅄ⵈ'匨䵅⁁䅂䅓⩔⤪呞㐰䡎乁䭉呞㔰帰卟幓卓呞㍓㔵㤵㜰〰帱䍔〰帱䑔䅓䥒⠠䥂余帩偔帱乔䅋幎ご䐱䡁㈭⠠䕓䅍䈠十呁⨪帩ご匲䭓䌠䱁卉乁呞㌰䅄ⵈ'匨䵅⁁䅂䅓⩔⤪呞㐰䡎乁䭉呞㔰帰卟幓卓呞㍓㔵㤵㜰〰帲䍔〰帲䑔䅓䥒⠠䵉⥍呞ㅐ呞䭎乁呞㄰䅄ⵈ'匨䵅⁁䅂䅓⩔⤪呞㈰卓⁋䅃䥌䅓幎ご䐳䡁㈭⠠䕓䅍䈠十呁⨪帩ご临䅈䥎幋ご〵彞卓卞幓协㔳㔵〹〷〱呞ぃ〱呞卄奉䡁⠠䕓䥄⥍呞ㅐ呞䭎乁呞㄰䅄ⵈ'匨䵅⁁䅂䅓⩔⤪呞㈰卓⁋䅃䥌幎ご䡁ご䈠䈠䈠呁ごごごごご<<<彞彞彞彞<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

好的，我的问题解决了。我解决了以下问题：



我改变了这一行并成功运作。



Dim GidenVeri（ ）Byte = Encoding.Unicode.GetBytes（Textbox5.text）





感谢大家。

Hi..

With a small client program to send data to a server that listen on 8001 port I'm trying. But I send data on a server chinese characters appear in the information received and only then going on a server problem does not appear when tested on other servers, all data goes smoothly. Server's client program is going full data gone. Can I be in a place I doing wrong.

Note: Listener server is korean made.


my code:

Dim Baglanti As New TcpClient
Dim Data As NetworkStream


connect

Baglanti.Connect(IPBox.Text, PortBox.Text)
Data = Baglanti.GetStream()


Data send

Dim GidenVeri() As Byte = Encoding.UTF8.GetBytes(TextBox5.Text)
Data.Write(GidenVeri, 0, GidenVeri.Length)
Data.Flush()


close

Baglanti.Close()



listener output ( my problems)


RecvData:[幞偞偞㉉〰ㄵㄴ㤱帱乐䕍啓⁔䕃䱙乁偞䵓偞幁䉐幁ぐ㈱⸷㠰ㄮ㠹帲幞偟幞卞卞幓協㔳㔵〹〷㌰呞ぃ㌰呞卄剁⁉匨剅⥏呞ㅐ呞䭎乁呞㄰䅄ⵈ′匨䵅⁁䅂䅓⩔⤪呞㈰卓⁋䅃䥌䅓幎ご䐳䡁㈭⠠䕓䅍䈠十呁⨪帩ご临䅈䥎幋ご〵彞卓卞幓協㔳㔵〹〷㠰呞ぃ㠰呞䵄剏⠠䕈䅍佔佌䥊帩偔帱乔䅋幎ご䐱䡁㈭⠠䕓䅍䈠十呁⨪帩ご匲䭓䌠䱁卉乁呞㌰䅄ⵈ′匨䵅⁁䅂䅓⩔⤪呞㐰䡎乁䭉呞㔰帰卟幓卓呞㍓㔵㤵㜰〰帱䍔〰帱䑔䅓䥒⠠䥂余帩偔帱乔䅋幎ご䐱䡁㈭⠠䕓䅍䈠十呁⨪帩ご匲䭓䌠䱁卉乁呞㌰䅄ⵈ′匨䵅⁁䅂䅓⩔⤪呞㐰䡎乁䭉呞㔰帰卟幓卓呞㍓㔵㤵㜰〰帲䍔〰帲䑔䅓䥒⠠䵉⥍呞ㅐ呞䭎乁呞㄰䅄ⵈ′匨䵅⁁䅂䅓⩔⤪呞㈰卓⁋䅃䥌䅓幎ご䐳䡁㈭⠠䕓䅍䈠十呁⨪帩ご临䅈䥎幋ご〵彞卓卞幓協㔳㔵〹〷〱呞ぃ〱呞卄奉䡁⠠䕓䥄⥍呞ㅐ呞䭎乁呞㄰䅄ⵈ′匨䵅⁁䅂䅓⩔⤪呞㈰卓⁋䅃䥌䅓幎ご䐳䡁㈭⠠䕓䅍䈠十呁⨪帩ご临䅈䥎幋ご〵彞卓幞彞�]

解决方案

Ok my problem was solved. I solved the problem as follows:

I changed this line and worked successfully.

Dim GidenVeri() As Byte = Encoding.Unicode.GetBytes(Textbox5.text)


Thanks to everyone.

这篇关于VB.NET Tcp数据发送问题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！