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
__________________