Снимок экрана и последующая отправка на сайт

[maxyc]

Привет всем. Уже лет 7 не был на этом сайте и не программил на VB6. Захлестнула меня волна php, mysql, javascript.
Так вот обращаюсь за помощью к вам, уважаемые программисты.

Не будет ли у кого исходников программы для снятия скриншотов экрана с последующей отправкой изображения на сервер (не ftp - [b]POST'ом[/b]!)
в идеале хотелось бы сделать программку, которая при нажатии на принтскрин кнопку, сабмитила картинку на сервер и получала от него ссылку на файл на сервере. очень удобно.

в ответ могу помочь вам со своей области знаний если таковые потребуются

upd: наковырял
скриншоты:
http://www.pscode.com/vb/scripts/ShowCo ... 1&lngWId=1
пост без осх:
http://www.pscode.com/vb/scripts/ShowCo ... 4&lngWId=1
конвертация bmp в jpg
http://www.pscode.com/vb/scripts/ShowCo ... 0&lngWId=1

теперь надо выделить время все это собрать =)

[Денис]

исходников программы для снятия скриншотов экрана с последующей отправкой изображения на сервер (не ftp - POST'ом!)

1. Скриншот: GetDesktopWindow, затем GetDC.
2. Post-запрос: Я не занимался, может поиск? Или кто еще подскажет.

UPD:
Вообще говоря, GetDC даст вам bitmap. А это не айс при пересылке по сети. Поэтому рекомендую вам озаботиться конвертацией его в jpeg или в png. Этого я тоже навскидку не вспомню — поиск по форуму к Вашим услугам.

[maxyc]

а нативным приложение получится сделать? чтоб без танцев с бубнами вокруг mvcvb60 или как там dllка называется?

[alibek]

Вообще говоря, GetDC даст вам bitmap.

Может хватит уже бред нести?
Почитай, что дает GetDC.
Или ты думаешь, что hDC и hBitmap это одно и то же?

[alibek]

а нативным приложение получится сделать? чтоб без танцев с бубнами вокруг mvcvb60 или как там dllка называется?

Что значит "нативным"?

[maxyc]

ну помнницца раньше приложения на vb60 не запускались без определенного набора dll и осх.
тоесть приходилось таскать с собой с компа на комп. как в настоящее время с этим обстоит? просто хочется сделать приложение для глупого офисного планктона

[Денис]

ну помнницца раньше приложения на vb60 не запускались без определенного набора dll и осх.
тоесть приходилось таскать с собой с компа на комп. как в настоящее время с этим обстоит? просто хочется сделать приложение для глупого офисного планктона

ну дык по примерам, что нарыл смотри. Вообще, msvbvm на всех современных виндах есть. так что таскать с собой ее де-факто не нужно.

Может хватит уже бред нести?

Не знаю, как там по строгой терминологии, но я скриншоты так сохранял. И всё работало.

Код: Выделить всё

Option Explicit

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Const SRCCOPY = &HCC0020

Private Sub Form_Load()

   Dim A1 As Long
   Dim A2 As Long
   
   A2 = GetDesktopWindow
   A1 = GetDC(A2)
   
   Me.AutoRedraw = True
   
   BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, A1, 0, 0, SRCCOPY
   
   SavePicture Me.Image, "C:\Temp\Image.bmp"

   Me.AutoRedraw = False

End Sub

[Хакер]

ну помнницца раньше приложения на vb60 не запускались без определенного набора dll и осх.
тоесть приходилось таскать с собой с компа на комп. как в настоящее время с этим обстоит? просто хочется сделать приложение для глупого офисного планктона

Единственной DLL, необходимой для VB6-написанных программ, является msvbvm60.dll, которая предустановлена в Windows начиная с XP.

Все остальные зависимости: от собственной дури, то есть не имеет значения, VB6 или не VB6, если они появились, они появились бы и при использовании любого другого языка/инструмента.

Плюс, нормальное приложение должно идти не как набор файлов, а как stand-alone setup.exe, если оно распространяется через интернет или по принципу из-рук-в-руки, или же как setup.exe и куча доп. файлов, если распространяется на диске.

[maxyc]

вот как раз и не охото сетапы всякие. если кто знаком, или хотит познакомиьться, то я бы хотел сделать аналог http://gyazo.com
для нашего проекта http://photo.reborn.ru

[Хакер]

вот как раз и не охото сетапы всякие.

Во даёт. По-моему, так это самое приятное в цикле производства продукта: после бессонных недель его тестирования, убедившись, что никаких косяков в нём ну точно нет, создавать дистрибутив и потом записывать его на мастер-диск.

[maxyc]

бугага у гиазо выложены исходники на vc++

http://github.com/gyazo/Gyazowin/archives/master

[alibek]

И всё работало.

"Работало" BitBlt и SavePicture, а не GetDC.