VPF::как послать изображение по сети...

Farkhod

Дата 21.4.2003, 14:56 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Я делаю так...
Программно беру изображение экрана и сохраняю его в файл... бинарно его открываю и посылаю через сеть другой программе client у. А там при бинарном сохранении в файл прога зависает...
Как можно это сделать... чтобы увидеть хотябы один раз изображение удаленной машины ?

man2002ua

Дата 21.4.2003, 15:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 943
Регистрация: 12.11.2002
Где: Киев

Репутация: нет
Всего: 2

Чем посылаешь, как принимаешь и сохраняешь? На какой операции зависает? Скажи хоть что-нибудь.

--------------------

"Нет ничего более постоянного, чем временное"

Step

Дата 22.4.2003, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: нет
Всего: 25

в разделе с++ ктото целый код довал ищи по словам сохранить изображение рабочего стола в файле

--------------------

- Дурак учится на своих ошибках, умный на чужих.
- умные учатся у дураков

Guest_Farkhod

Дата 25.4.2003, 18:11 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Вот код
Код Клиента ----------------------->

Код


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

<---------------------------

Это сообщение отредактировал(а) Akina - 28.9.2007, 11:02

Khaemn

Дата 28.9.2007, 09:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 27.9.2007

Репутация: нет
Всего: нет

А там в цикле точно до ...001 а не до ..000 надо считать?

Akina

Дата 28.9.2007, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Что такое ws2 на клиенте и ws1 на сервере?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Black_Star

Дата 28.9.2007, 11:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4

Пример

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »