Keskustelu: Koodit: VB6: Tiedoston siirto winsockilla

Sub SendFile(file as string)
Dim data() As Byte 'määritellään muuttuja
Open file For Binary As #1 ' avataan hassu tiedoston binäärisesti
ReDim data(LOF(1) - 1) As Byte 'redimmataan
Get #1, , data ' tallennetaan tavara taulukkoon data
Close #1 ' suljetaan filu
w1.SendData data ' senditään taulukko
End Sub
Private Sub Form_Load()
w2.LocalPort=99 'lokaali portti kuunneltava
w2.Listen 'annetaan soketin kuunnella
w1.RemoteHost="localhost" 'oma kone
w1.RemotePort=99 ' etäportti
w1.Connect ' soketti yhdistää
End Sub

Private Sub w1_Connect()
sendfile "c:\jee.exe" 'kutsutaan functiota sendfile kun soketti on yhteydessä
End Sub


Private Sub w2_ConnectionRequest(ByVal requestID As Long)
w2.Close
w2.Accept requestID
'hyväksytään yhdistäminen
End Sub

Private Sub w2_DataArrival(ByVal bytesTotal As Long)
Dim f() As Byte ' määritellään muuttuja
w2.GetData f ' tallennetaan tuleva data taulukkoon f
Open "d:\jee.exe For Binary As #1 'avataan tiedoston binääriesti
Put #1, LOF(1) + 1, f ' tungetaan filuun taulukko
Close #1 ' suljetaan filu
End Sub