04-02-18, 12:34 AM
اعملته عام
في اول كلاس
والمشكلة كما هي
في اول كلاس
PHP كود :
Public ms As New MemoryStream
PHP كود :
Private Sub ButtonX7_Click(sender As Object, e As EventArgs) Handles ButtonX7.Click
Dim ofd As New OpenFileDialog
ofd.Filter = "Image Formats (*.PNG; *.JPG; *.BMP) | *.PNG; *.JPG; *.BMP | All Files (*.*) | *.*"
If ofd.ShowDialog = DialogResult.OK Then
If ofd.FileName <> String.Empty Then
Me.PictureBox1.Image = Bitmap.FromFile(ofd.FileName)
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
Dim bytimage() As Byte = ms.ToArray
chaptemad1.Send(String.Concat(New String() {"<message xmlns='jabber:client' type='groupchat' to='", room1.Text, "@conference.s.chatp.net'><body /><c xmlns='u:x:room_image'><url>", Image.FromStream(ms), "</url></c></message>"}))
End If
End If
End Sub
والمشكلة كما هي