Вот код
Код Клиента ----------------------->
| Код |
Option Explicit
Dim a As Long, i As Long
Private Sub Cmd1_Click()
Image1.Picture = "C:\a.jpg"
End Sub
Private Sub Form_Load()
ws2.Bind 100
i = 1
Open "C:\a.jpg" For Binary As #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
ws2.Close
End Sub
Private Sub ws2_DataArrival(ByVal bytesTotal As Long)
ws2.GetData a
If a <> "00000001" Then 'для того что бы узнать конец файла
Put #1, i, a 'Сохраняю в файл
i = i + 1
Else
Close #1
End If
End Sub
|
Код Сервера ------------------------>
| Код |
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT = &H2C
Dim a As Clipboard, i As Long, b As Long
Private Sub cmd1_Click()
Call savepic
End Sub
Sub savepic()
Open "C:\678.jpg" For Binary As #1
For i = 1 To FileLen("C:\678.jpg")
Get #1, i, b
ws1.SendData b
Next
ws1.SendData "00000001"
End Sub
Private Sub Cmd2_Click()
keybd_event VK_SNAPSHOT, 0, 0, 0
Set a = Clipboard
Image1.Picture = a.GetData
SavePicture Image1.Picture, "C:\678.jpg"
End Sub
Private Sub Form_Load()
ws1.RemoteHost = "Server"
ws1.RemotePort = 100
ws1.Bind 90
End Sub
Private Sub Form_Unload(Cancel As Integer)
ws1.Close
End Sub
|
|