انا اجتهدت من نفسي وعملت الكود هذا ولكن الصورة بتطلع فارغة في الشات
كود :
Dim Stream As MemoryStream
Dim Buffer As Byte()
Dim ImageString As String
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)
Stream = New MemoryStream()
Me.PictureBox1.Image.Save(Stream, System.Drawing.Imaging.ImageFormat.Jpeg)
Buffer = Stream.GetBuffer()
Stream.Close()
ImageString = System.Convert.ToBase64String(Buffer)
End If
End If
End Subاريد استخدام الصورة المحملة في هذا الكود
كود :
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>" + ImageString + "</url></c></message>"}))ولكن ترسل صورة فارغة الي شات
وليس الصورة المحملة من الكمبيوتر الخاص بي
مالحل؟