我的文字未显示 [英] My Text not shown

问题描述

我有用于从端口发送和接收消息的代码，
它可以正确发送和接收消息，但不会在网页中显示消息.
请更正我的代码
thx

Hi,
I have code for sending and receiving message from port,
It send and receive message correctly but it not show message in web page.
please correct my code
thx

Imports System
Imports System.Text
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Partial Public Class WebForm1
    Inherits System.Web.UI.Page
    Dim Client As New TcpClient
    Dim BufferSize(Client.ReceiveBufferSize - 1) As Byte
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Client.Connect("127.0.0.1", 80)
            SendMessage("aaaaa")
            Client.GetStream().BeginRead(BufferSize, 0, BufferSize.Length, AddressOf ReceiveMessage, Nothing)
        Catch ex As Exception
            Console.WriteLine("error")
        End Try
    End Sub
    Public Sub SendMessage(ByVal message As String)
        Try
            Dim netStr As NetworkStream = Client.GetStream()
            Dim Data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(message)
            netStr.Write(Data, 0, Data.Length)
            netStr.Flush()
        Catch ex As Exception
            Console.WriteLine(ex.ToString())
        End Try
    End Sub
    Public Sub ReceiveMessage(ByVal ar As IAsyncResult)
        Dim bufferLength As Integer
        Dim message As String
        Try
            SyncLock Client.GetStream
                bufferLength = Client.GetStream().EndRead(ar)
            End SyncLock
            If bufferLength < 1 Then
                Client.Close()
            End If
            message = System.Text.Encoding.ASCII.GetString(BufferSize, 0, bufferLength).ToString
            Label1.Text = message
            Console.WriteLine(Client.Client.RemoteEndPoint.ToString() + "-> " + message)
            Client.GetStream().BeginRead(BufferSize, 0, BufferSize.Length, AddressOf ReceiveMessage, Nothing)
        Catch ex As Exception
            Console.WriteLine(ex)
            Client.Close()
        End Try
    End Sub
End Class

[edit]整理显示，更改标记以包括VB [/edit]

[edit]Tidied up display, changed tags to include VB[/edit]

推荐答案

首先，我要确保下面的行实际上是在将信息放入消息变量

First thing i would is make sure that the line below is actually putting information into the message variable

message = system.Text.Encoding.ASCII.GetString(BufferSize, 0, bufferLength).ToString
Label1.Text = message

在该行之前放置一个断点并逐步执行代码，看看会发生什么情况

put a break point before that line and step through the code and see what happens

这篇关于我的文字未显示的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！