永久监听端口。 如果文件在我的流中，请获取文件。 如何？

Question

我写了2个客户端和服务器程序。 客户端发送文件也服务器监听端口，而不是获取文件。但是我需要我的服务器应用程序必须永久监听51124端口。 如果我的信息流中有文件，请显示一个消息框“您的信息流中有文件”，然后显示“保存文件”对话框。 但是我的服务器应用程序处于“无限循环”状态。

1）每次监听51124端口
2）我的流中是否有文件，请向我显示一个消息框。

   private void Form1_Load(object sender, EventArgs e)
        {

            TcpListener Dinle = new TcpListener(51124);
            try
            {

                Dinle.Start();

                Socket Baglanti = Dinle.AcceptSocket();
                if (!Baglanti.Connected)
                {
                    MessageBox.Show("No Connection!");
                }

                else
                {
                    while (true)
                    {
                        byte[] Dizi = new byte[250000];
                        Baglanti.Receive(Dizi, Dizi.Length, 0);

                        string Yol;

                        saveFileDialog1.Title = "Save File";
                        saveFileDialog1.ShowDialog();
                        Yol = saveFileDialog1.FileName;
                        FileStream Dosya = new FileStream(Yol, FileMode.Create);
                        Dosya.Write(Dizi, 0, Dizi.Length - 20);
                        Dosya.Close();
                        listBox1.Items.Add("dosya indirildi");
                        listBox1.Items.Add("Dosya Boyutu=" + Dizi.Length.ToString());
                        listBox1.Items.Add("İndirilme Tarihi=" + DateTime.Now);
                        listBox1.Items.Add("--------------------------------");
                    }
                }
            }
            catch (Exception)
            {

                throw;
            }

        }

我的算法：

if(AnyFileonStream()==true) { GetFile()

//Also continue to listening 51124 port... }

我怎样才能做到这一点？

Answer 1

在本教程中，他们打开端口，然后等待接受连接，而不是在没有连接时弹出消息框：

http://www.eggheadcafe.com/articles/20020323.asp

这是他们代码的精简版-考虑改用这种布局：

Imports System.Net.Sockets
Imports System.Text
Class TCPSrv
    Shared Sub Main()
        ' Must listen on correct port- must be same as port client wants to connect on.
        Const portNumber As Integer = 51124
        Dim tcpListener As New TcpListener(portNumber)
        tcpListener.Start()
        Console.WriteLine("Waiting for connection...")
        Try
            'Accept the pending client connection and return 
            'a TcpClient initialized for communication. 
            Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient()
            Console.WriteLine("Connection accepted.")
            ' Get the stream
            Dim networkStream As NetworkStream = tcpClient.GetStream()
            ' Read the stream into a byte array
            Dim bytes(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
            tcpClient.Close()
            tcpListener.Stop()
            Console.WriteLine("exit")
            Console.ReadLine()
        Catch e As Exception
            Console.WriteLine(e.ToString())
            Console.ReadLine()
        End Try
    End Sub
   End Class

Answer 2

这似乎有点低水平。 为什么不公开一个接受文件流对象的net.tcp WCF端点？