06-04-14, 08:21 PM
حاولت في الكوك ولا فائدة اريد ارسال ملف صورة عبر tcp/ip
ارجو ان اجد الحل على يديكم
كود :
Imports System.Text
Imports System.IO
Imports System.Net.Sockets
Imports System.Net
Imports System.Management
Public Class Form1
Dim b() As Byte
Dim ofd As New OpenFileDialog
Dim listener As TcpListener
Dim client As TcpClient
Dim message As String
Dim m() As Byte
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'Text files (*.txt)|*.txt
ofd.Filter = "Jpg(*.jpg)|*.jpg|png (*.png)|*.png|gif (*.gif)|*.gif"
If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
b = My.Computer.FileSystem.ReadAllBytes(ofd.FileName)
End If
If BackgroundWorker1.IsBusy = False Then
BackgroundWorker1.RunWorkerAsync()
End If
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
listener = New TcpListener("9999")
listener.Start()
End Sub
Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
client = New TcpClient("192.168.1.2", "9999")
Dim streamw As New BinaryWriter(client.GetStream)
streamw.Write(b)
streamw.Flush()
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If listener.Pending = True Then
client = listener.AcceptTcpClient
Dim streamr As New BinaryReader(client.GetStream)
m = streamr.ReadByte
My.Computer.FileSystem.WriteAllBytes("a.png", m, False)
Process.Start("a.png")
End If
End Sub
End Class
ارجو ان اجد الحل على يديكم