Keskustelu: Ohjelmointikysymykset: VB6: Tiedonsiirtoa winsockilla (taas)

tesmu [26.05.2005 20:30:17]

Dim data() As Byte
Open "c:\screen.jpg" For Binary As #1
ReDim data(LOF(1) - 1) As Byte
Get #1, , data
Close #1
w1.SendData data
End Sub
Private Sub Form_Load()
w2.Listen
w1.Connect
End Sub

Private Sub w1_Connect()
Command1_Click
End Sub


Private Sub w2_ConnectionRequest(ByVal requestID As Long)
w2.Close
w2.Accept requestID
End Sub

Private Sub w2_DataArrival(ByVal bytesTotal As Long)
Dim f() As Byte
w1.GetData f
Open "d:\jjj.jpg" For Append As #1
Print #1, f
Close #1
End Sub

Eli tässä nyt "yritän" värkätä tiedonsiirto ohjelmaa joten testi tarkoituksessa tein tuon koodin.

Mikä mättää ? Miksi tiedosto tärveltyy ?

Gaxx [27.05.2005 11:50:36]

Käsittääkseni tiedosto tärveltyy koska, kirjoitat "binarya" appendina(tekstimuotoinen) avattuun tiedostoon. Kokeileppa korjata:

Open "d:\jjj.jpg" For Binary As #1
'Valitse seuraavista se oikea...
Put #1, LOF(1) - 1, data
Put #1, LOF(1), data
Put #1, LOF(1) + 1, data

En mene takuuseen toimivuudesta.

tesmu [27.05.2005 12:01:14]

Suuret kiitokset gaxxille sain toimimaan tälläsellä koodilla

Private Sub command1_click()
Dim data() As Byte
Open "c:\screen.jpg" For Binary As #1
ReDim data(LOF(1) - 1) As Byte
Get #1, , data
Close #1
w1.SendData data
End Sub
Private Sub Form_Load()
w2.Listen
w1.Connect
End Sub

Private Sub w1_Connect()
command1_click
End Sub


Private Sub w2_ConnectionRequest(ByVal requestID As Long)
w2.Close
w2.Accept requestID
End Sub

Private Sub w2_DataArrival(ByVal bytesTotal As Long)
Dim f() As Byte
w2.GetData f
Open "d:\jjj.jpg" For Binary As #1
Put #1, LOF(1) + 1, f
Close #1
End Sub

testasin kyllä tuotakin binary juttua mutta pistin vain
put #1,,f
joka ei toiminut mutta tuo viimeinen vaihtoehto toimi kiitokset vielä kerran

Nitros [27.05.2005 13:40:27]

Joo noinhan se asian kanta on.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen