Hejsan!
Jag har 2 burkar som pratar över TCP. Jag har en BMP fil som jag vill skall skickas över, jag antar att jag skall öppna den binärt, skicka över och sen skall mottagaren återskapa filen, men jag vet inte riktigt hur jag skall göra.

är detta rätt?

<code>
Open "filnamn.bin" For Binary Access Write As #1
Put #1,, buffer
Close

Open "filnamn.txt" For Output As #1
Print #1, buffer
Close
</code>

<code>
Option Explicit
Private Sub Command1_Click()
'Läs in .bmpfilen bmpBuffer
Dim FileNum As Long, bmpBuffer As String
FileNum = FreeFile
Open "C:\Test.bmp" For Binary As #FileNum
bmpBuffer = Input$(LOF(FileNum), #FileNum)
Close #FileNum
FileNum = FreeFile
'Läs ut den som något annat
Open "C:\TestBmp.txt" For Output As #FileNum
Print #FileNum, bmpBuffer
Close #FileNum
End Sub
</code>

"Margaritas ante porkas" Vadå löst har du inte vett och tacka eller annan feedback ?