Wie kan mij code in orde krijgen......

[Richardddd]

wie kan mij vertellen hoe ik een picture over internet moet verzenden...
want dit werk niet

zender
--------

Dim apppath As String = Application.StartupPath()

Dim reader As New BinaryReader(File.Open(apppath & "\afbeelding.png", FileMode.Open))

reader.read(data)

Do While Not EOF(data)
Winsock1.Send(data)
Loop
------------------------------------------------------------------
ontvanger
-----------
Dim apppath As String = Application.StartupPath()

Using writer As BinaryWriter = New BinaryWriter(File.Open(apppath & "\afbeelding1.png", FileMode.Create))

winsock1.getdata(data)
Do While Not EOF(Data)
writer.Write(Data)
Loop
End Using

PictureBox1.Load(apppath & "\afbeelding1.png")

 

[puppie]

Ik heb de code tags er maar even omheen gezet.
dat leest iets makkelijker.
succes berder met je vraag.

 

[Richardddd]

ja thanks... ziet er inderdaad stuk beter uit

 

[edmoor]

Je kan beter beter aangeven op welke regel en in welke routine het fout gaat. Niemand gaat die lap code bekijken of er ergens iets niet goed zit.

 

[Richardddd]

heb mij code ingekort