case "resimal"
Dim bos As String
Open "C:\1.jpg" For Binary Access Read As #1
Get #1, , bos
Form1.Winsock1.SendData "resim," & bos
end select
______________
case "resim"
Open "d:\deneme.jpg" For Binary Access Write As #2
Put #2, , veri(1) 'split fonksiyonu tanımladım yani bu bos a eşit oralarda sorun olduğunu sanmıyorum..
end select
Sorun nerde arkadaşlar ? resmi bir turlu karşıya gonderemedim ? yardımcı olursanız cok sevinirim
__________________
winsock resim transferi ?
Programlama0 Mesaj
●31 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- winsock resim transferi ?