Как передать скриншот (принтскрин) по TCP ?

@Bati4eli · Регистрация: 05.05.2012

Студворк — интернет-сервис помощи студентам

Всем привет!
Интересует 2 вещи:

Как сделать снимок экрана НЕ используя буфер обмена.
И результат передать по протоколу TCP ?

Сам процесс передачи не очень важен, главное это как сделанный снимок перевести в строку и потом при получении строки получить из неё картинку обратно!

@The trick · 02.07.2013, 15:50

Вот накидал небольшой примерчик, сохранение без буфера обмена в байтовый массив с жатием Jpeg. Этот массив можно передавать. Если откомпилировать со всеми 6-ю оптимизациями, довольно быстро будет обрабатываться.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
Option Explicit
 
Private Type RGBQUAD
    rgbBlue As Byte
    rgbGreen As Byte
    rgbRed As Byte
    rgbReserved As Byte
End Type
Private Type BITMAPINFOHEADER
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Long
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
End Type
Private Type BITMAPINFO
    bmiHeader As BITMAPINFOHEADER
    bmiColors As RGBQUAD
End Type
Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type
Private Type GdiplusStartupInput
    GdiplusVersion As Long
    DebugEventCallback As Long
    SuppressBackgroundThread As Long
    SuppressExternalCodecs As Long
End Type
Private Type EncoderParameter
    GUID As GUID
    NumberOfValues As Long
    type As Long
    Value As Long
End Type
Private Type EncoderParameters
    Count As Long
    Parameter As EncoderParameter
End Type
 
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
Private Declare Function GetCurrentObject Lib "gdi32" (ByVal hdc As Long, ByVal uObjectType As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SetDIBits Lib "gdi32" (ByVal hdc As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
 
Private Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As Long, ByVal fDeleteOnRelease As Long, ppstm As Any) As Long
Private Declare Function GetHGlobalFromStream Lib "ole32" (ByVal ppstm As Long, hGlobal As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
Private Declare Function GdipSaveImageToStream Lib "GDIPlus" (ByVal Image As Long, ByVal Stream As IUnknown, clsidEncoder As Any, encoderParams As Any) As Long
Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long
Private Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hpal As Long, Bitmap As Long) As Long
Private Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long
Private Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal Filename As Long, clsidEncoder As GUID, encoderParams As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal str As Long, id As GUID) As Long
 
Private Const OBJ_BITMAP = 7
 
Private Sub Form_Load()
    Dim dDc As Long, dhWnd As Long
    Dim tBmp As Long
    Dim iBmp As BITMAPINFO
    Dim Pix() As Long
    Dim IStream As IUnknown
    Dim hMem As Long
    Dim lSize As Long
    Dim lPt As Long
    Dim Dat() As Byte
    Dim fNum As Integer
    
    Dim X As Long, Y As Long
    
    dhWnd = GetDesktopWindow()
    dDc = GetDC(dDc)
    tBmp = GetCurrentObject(dDc, OBJ_BITMAP)
    
    iBmp.bmiHeader.biSize = Len(iBmp.bmiHeader)
    GetDIBits dDc, tBmp, 0, 0, 0&, iBmp, 0
    
    iBmp.bmiHeader.biBitCount = 32
    ReDim Pix(iBmp.bmiHeader.biWidth - 1, iBmp.bmiHeader.biHeight - 1)
    
    iBmp.bmiHeader.biHeight = -iBmp.bmiHeader.biHeight          ' Для нисходящих рисунков
    iBmp.bmiHeader.biCompression = 0                            ' Убираем компрессию если она есть
    
    GetDIBits dDc, tBmp, 0, -iBmp.bmiHeader.biHeight, Pix(0, 0), iBmp, 0
    ' В массиве Pix содержатся пиксели рисунка делай с ними что захочешь
    ' в моем примере инвертируем их
    
    For X = 0 To iBmp.bmiHeader.biWidth - 1: For Y = 0 To -iBmp.bmiHeader.biHeight - 1
        Pix(X, Y) = Pix(X, Y) Xor &HFFFFFF
    Next: Next
    
    ' Записываем в промежуточный Bitmap изменения
    tBmp = CreateCompatibleBitmap(dDc, iBmp.bmiHeader.biWidth, -iBmp.bmiHeader.biHeight)
    SetDIBits dDc, tBmp, 0, -iBmp.bmiHeader.biHeight, Pix(0, 0), iBmp, 0
       
    Erase Pix
    
    ReleaseDC dhWnd, dDc
     
    If CreateStreamOnHGlobal(0&, 1&, IStream) Then MsgBox "Ошибка создание потока": Exit Sub
    If Not SaveJPG(tBmp, IStream) Then MsgBox "Ошибка сохранение файла в поток": DeleteObject (tBmp): Exit Sub
    
    DeleteObject tBmp
    
    If GetHGlobalFromStream(ObjPtr(IStream), hMem) Then MsgBox "Ошибка получения хендла памяти": Exit Sub
    lSize = GlobalSize(hMem)
    If lSize Then
        lPt = GlobalLock(hMem)
        ReDim Dat(0 To lSize - 1)
        CopyMemory Dat(0), ByVal lPt, lSize
        GlobalUnlock hMem
    End If
    
'    ' Проверка
'    fNum = FreeFile
'    Open "D:\Temp.jpg" For Binary As fNum
'    Put fNum, , Dat
'    Close fNum
    
End Sub
Private Function SaveJPG(hBitmap As Long, Stream As IUnknown, Optional Quality As Byte = 50) As Boolean
    Dim SI As GdiplusStartupInput
    Dim token As Long, lBmp As Long
    Dim JpgEnc As GUID, Res As Long
    Dim Par As EncoderParameters
    
    SI.GdiplusVersion = 1
    If GdiplusStartup(token, SI) Then Exit Function
    If GdipCreateBitmapFromHBITMAP(hBitmap, 0, lBmp) Then GdiplusShutdown (token): Exit Function
    CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), JpgEnc
    Par.Count = 1
    Par.Parameter.NumberOfValues = 1
    Par.Parameter.type = 4
    Par.Parameter.Value = VarPtr(Quality)
    CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"), Par.Parameter.GUID
    Res = GdipSaveImageToStream(lBmp, Stream, JpgEnc, Par)
    GdipDisposeImage lBmp
    GdiplusShutdown token
    If Res Then Exit Function
    SaveJPG = True
End Function

@уни · 02.07.2013, 17:28

Это работает, только у меня изображение инверсным получается... а оно и должно быть инверсным, не прочитал комментария в коде. Тогда всё ОК.

@Pro_grammer · 02.07.2013, 17:41

Сообщение от PAnT0P

бинарник можно сконвертировать в строку при помощи Base64 что и требуется ТС

Согласен, закодировать можно, но это ли требуется?. К сожалению по мимо затрат времени на кодирование это ведет к увеличению результирующего размера. Мы же стремимся эти параметры уменьшить.

@Bati4eli · 02.07.2013, 18:09 **[ТС]**

The trick,
реально шустро работает и самое главное делает готовый байтовый массив. Половины я не понимаю из того что там происходит (пока работа с хендалами и прочими вещами для меня остаётся загадкой).. но у меня к сожалению данный код выцепляет из буфера картинку и сохраняет её, а не скрин =(
Причем в буфер её помещает даже не он (код).

@The trick · 02.07.2013, 21:17

Сообщение от Bati4eli

но у меня к сожалению данный код выцепляет из буфера картинку и сохраняет её

@Bati4eli, Посмотрел твой код, во-первых он работает нормально, просто сохраняет в "d:\program files\microsoft visual studio\vb98\vb6.jpg". Так что я не пойму в чем проблема-то?

@Bati4eli · 03.07.2013, 15:47 **[ТС]**

Сообщение от The trick

в "d:\program files\microsoft visual studio\vb98\vb6.jpg". Так что я не пойму в чем проблема-то?

Долго пытался понять к чему вы это.. потом глянул код униса и понял. Ни его и не ваш вариант не работает у меня вне бэйсика, компилирую прогу, запускаю и получается только картинка с черным изображением.
Запуская это дело из бэйсика получается скриншот, но только тот который когда-то попал в буфер обмена, т.е. нажми в любое время кнопку PrintScrn и запусти этот код из бэйсика и получишь скрин.

@The trick · 03.07.2013, 15:55

Сообщение от Bati4eli

Запуская это дело из бэйсика получается скриншот, но только тот который когда-то попал в буфер обмена, т.е. нажми в любое время кнопку PrintScrn и запусти этот код из бэйсика и получишь скрин.

Что-то ты путаешь, по крайней мере у меня и еще на нескольких компах код отлично работает. Буфер никак не может влиять в моем коде, т.к. я попросту вообще никаким местом не прикасаюсь к нему, нет ни одной инструкции где используется буфер. Так что проверяй код.

@The trick · 03.07.2013, 19:20

Посмотри

@Bati4eli · 04.07.2013, 11:20 **[ТС]**

The trick,
никак

Всё равно сохраняет скрин сделанный абы когда, а при работе из exe- получается полностью черный экран.

@The trick · 04.07.2013, 11:30

Bati4eli,Странно... Попробуй создай DC и в него отрисуй с GetDC(0), а уже из картинки выбранной в созданный DC делай GetDIBits.

Добавлено через 6 минут

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Private Sub Form_Load()
    Dim dDc As Long, dhWnd As Long
    Dim tBmp As Long
    Dim iBmp As BITMAPINFO
    Dim Pix() As Long
    Dim IStream As IUnknown
    Dim hMem As Long
    Dim lSize As Long
    Dim lPt As Long
    Dim Dat() As Byte
    Dim fNum As Integer
    Dim tDc As Long
    Dim oBmp As Long
    
    Dim x As Long, y As Long
    
    dhWnd = GetDesktopWindow()
    dDc = GetDC(dDc)
    tDc = CreateCompatibleDC(dDc)
    tBmp = CreateCompatibleBitmap(dDc, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY)
    oBmp = SelectObject(tDc, tBmp)
    BitBlt tDc, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, dDc, 0, 0, vbSrcCopy
    SelectObject tDc, oBmp
    DeleteDC tDc
    
    iBmp.bmiHeader.biSize = Len(iBmp.bmiHeader)
    GetDIBits dDc, tBmp, 0, 0, 0&, iBmp, 0
    
    iBmp.bmiHeader.biBitCount = 32
    ReDim Pix(iBmp.bmiHeader.biWidth - 1, iBmp.bmiHeader.biHeight - 1)
    
    iBmp.bmiHeader.biHeight = -iBmp.bmiHeader.biHeight          ' Для нисходящих рисунков
    iBmp.bmiHeader.biCompression = 0                            ' Убираем компрессию если она есть
    
    GetDIBits dDc, tBmp, 0, -iBmp.bmiHeader.biHeight, Pix(0, 0), iBmp, 0
    ' В массиве Pix содержатся пиксели рисунка делай с ними что захочешь
    ' в моем примере инвертируем их
    
    For x = 0 To iBmp.bmiHeader.biWidth - 1: For y = 0 To -iBmp.bmiHeader.biHeight - 1
        Pix(x, y) = Pix(x, y) Xor &HFFFFFF
    Next: Next
    
    ' Записываем в промежуточный Bitmap изменения
    SetDIBits dDc, tBmp, 0, -iBmp.bmiHeader.biHeight, Pix(0, 0), iBmp, 0
       
    Erase Pix
    
    ReleaseDC dhWnd, dDc
     
    If CreateStreamOnHGlobal(0&, 1&, IStream) Then MsgBox "Ошибка создание потока": Exit Sub
    If Not SaveJPG(tBmp, IStream) Then MsgBox "Ошибка сохранение файла в поток": DeleteObject (tBmp): Exit Sub
    
    DeleteObject tBmp
    
    If GetHGlobalFromStream(ObjPtr(IStream), hMem) Then MsgBox "Ошибка получения хендла памяти": Exit Sub
    lSize = GlobalSize(hMem)
    If lSize Then
        lPt = GlobalLock(hMem)
        ReDim Dat(0 To lSize - 1)
        CopyMemory Dat(0), ByVal lPt, lSize
        GlobalUnlock hMem
    End If
    
    ' Проверка
    fNum = FreeFile
    Open "D:\Temp.jpg" For Binary As fNum
    Put fNum, , Dat
    Close fNum
    
End Sub

@Bati4eli · 04.07.2013, 14:00 **[ТС]**

The trick,
вооо заработало!
И последний вопросик:
Вот я передал массив Dat .. как его "открыть" на другой машине в PictureBox напрямую из памяти?

@The trick · 04.07.2013, 14:27

Сообщение от Bati4eli

как его "открыть" на другой машине в PictureBox напрямую из памяти?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Option Explicit
 
Private Type GdiplusStartupInput
    GdiplusVersion As Long
    DebugEventCallback As Long
    SuppressBackgroundThread As Long
    SuppressExternalCodecs As Long
End Type
 
Private Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As Long, ByVal fDeleteOnRelease As Long, ppstm As Any) As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
Private Declare Function GdiplusStartup Lib "gdiplus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long
Private Declare Function GdiplusShutdown Lib "gdiplus" (ByVal token As Long) As Long
Private Declare Function GdipDisposeImage Lib "gdiplus" (ByVal image As Long) As Long
Private Declare Function GdipLoadImageFromStream Lib "gdiplus" (ByVal Stream As IUnknown, image As Long) As Long
Private Declare Function GdipCreateFromHDC Lib "gdiplus" (ByVal hdc As Long, Graphics As Long) As Long
Private Declare Function GdipDrawImage Lib "gdiplus" (ByVal Graphics As Long, ByVal image As Long, ByVal X As Single, ByVal Y As Single) As Long
 
Private Const GMEM_MOVEABLE = &H2
 
Private Sub Form_Load()
    Dim IStream As IUnknown
    Dim hMem As Long
    Dim lPt As Long
    Dim Dat() As Byte
    Dim fNum As Integer
    Dim SI As GdiplusStartupInput
    Dim token As Long, lBmp As Long, Gr As Long
    
    Me.AutoRedraw = True
    
    ' Открытие
    fNum = FreeFile
    Open "D:\Temp.jpg" For Binary As fNum
    ReDim Dat(LOF(fNum) - 1)
    Get fNum, , Dat
    Close fNum
    
    hMem = GlobalAlloc(GMEM_MOVEABLE, UBound(Dat) + 1)
    If hMem = 0 Then MsgBox "Ошибка выделения памяти": Exit Sub
    lPt = GlobalLock(hMem)
    If lPt = 0 Then MsgBox "Ошибка блокировки памяти": GlobalFree hMem: Exit Sub
    CopyMemory ByVal lPt, Dat(0), UBound(Dat) - 1
    Call GlobalUnlock(hMem)
    If CreateStreamOnHGlobal(hMem, 1&, IStream) Then MsgBox "Ошибка создание потока": GlobalFree hMem: Exit Sub
    
    SI.GdiplusVersion = 1
    If GdiplusStartup(token, SI) = 0 Then
        If GdipLoadImageFromStream(IStream, lBmp) = 0 Then
            Call GdipCreateFromHDC(Me.hdc, Gr)
            Call GdipDrawImage(Gr, lBmp, 0, 0)
            Call GdipDisposeImage(lBmp)
        Else
            MsgBox "Ошибка загрузки файла"
        End If
        GdiplusShutdown token
    Else
        MsgBox "Ошибка инициализации GDI+"
    End If
    Set IStream = Nothing
End Sub

@Bati4eli · 04.07.2013, 14:58 **[ТС]**

The trick,
Потрясающе! Только еще один маааленький вопросик, где нужно "подкрутить" что бы изменить качество скрина?

@The trick · 04.07.2013, 15:04

Сообщение от Bati4eli

"подкрутить" что бы изменить качество скрина?

Ну вы бы хоть код посмотрели
Private Function SaveJPG(hBitmap As Long, Stream As IUnknown, Optional Quality As Byte = 50) As Boolean

@Bati4eli · 04.07.2013, 15:07 **[ТС]**

Спасибо огромное!
Простите, что не внимательно отнесся к некоторым частям кода.. просто для меня WinApi - всё равно что магия =) Неведома и непостижима!

@уни · 04.07.2013, 17:02

Это не просто Win32API, это ещё в довесок библиотека GDI+, работа с которой требует отдельного описания. Если по использованию Win32API в VB6 книжка целая есть, то вот по использованию GDI+ при помощи Win32API похоже такой уже никогда не будет, а возможности там по рисованию достаточно широкие.

@kreotodr · 28.01.2018, 20:54

Всем привет!
можно финальную версию?
Задача таже, но просто сброс скрина в Jpg файл...

@The trick · 28.01.2018, 21:40

Как передать скриншот (принтскрин) по TCP ?

@kreotodr · 29.01.2018, 07:22

Ругается на:

Visual Basic
1
 tDc = CreateCompatibleDC(dDc)

@Pro_grammer · 29.01.2018, 08:19

Сообщение от kreotodr

Ругается на

Visual Basic
1
Private Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hdc As Long) As Long

Новые блоги и статьи Все статьи Все блоги /
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .

Как передать скриншот (принтскрин) по TCP ?

Решение

Решение

Решение

@Bati4eli 617 / 17 / 8 Регистрация: 05.05.2012 Сообщений: 221 Записей в блоге: 11

	Как передать скриншот (принтскрин) по TCP ? 25.06.2013, 16:38. Показов 8025. Ответов 45 Метки нет (Все метки) Всем привет! Интересует 2 вещи: Как сделать снимок экрана НЕ используя буфер обмена. И результат передать по протоколу TCP ? Сам процесс передачи не очень важен, главное это как сделанный снимок перевести в строку и потом при получении строки получить из неё картинку обратно! 0

@Bati4eli 617 / 17 / 8 Регистрация: 05.05.2012 Сообщений: 221 Записей в блоге: 11
	02.07.2013, 18:09 [ТС]
	The trick, реально шустро работает и самое главное делает готовый байтовый массив. Половины я не понимаю из того что там происходит (пока работа с хендалами и прочими вещами для меня остаётся загадкой).. но у меня к сожалению данный код выцепляет из буфера картинку и сохраняет её, а не скрин =( Причем в буфер её помещает даже не он (код). 0

@Bati4eli 617 / 17 / 8 Регистрация: 05.05.2012 Сообщений: 221 Записей в блоге: 11
	04.07.2013, 11:20 [ТС]
	The trick, никак Всё равно сохраняет скрин сделанный абы когда, а при работе из exe- получается полностью черный экран. Миниатюры 0

@Bati4eli 617 / 17 / 8 Регистрация: 05.05.2012 Сообщений: 221 Записей в блоге: 11
	04.07.2013, 14:00 [ТС]
	The trick, вооо заработало! И последний вопросик: Вот я передал массив Dat .. как его "открыть" на другой машине в PictureBox напрямую из памяти? 0

@Bati4eli 617 / 17 / 8 Регистрация: 05.05.2012 Сообщений: 221 Записей в блоге: 11
	04.07.2013, 14:58 [ТС]
	The trick, Потрясающе! Только еще один маааленький вопросик, где нужно "подкрутить" что бы изменить качество скрина? 0

@Bati4eli 617 / 17 / 8 Регистрация: 05.05.2012 Сообщений: 221 Записей в блоге: 11
	04.07.2013, 15:07 [ТС]
	Спасибо огромное! Простите, что не внимательно отнесся к некоторым частям кода.. просто для меня WinApi - всё равно что магия =) Неведома и непостижима! 0

@уни 368 / 146 / 17 Регистрация: 06.03.2010 Сообщений: 327 Записей в блоге: 1
	04.07.2013, 17:02
	Это не просто Win32API, это ещё в довесок библиотека GDI+, работа с которой требует отдельного описания. Если по использованию Win32API в VB6 книжка целая есть, то вот по использованию GDI+ при помощи Win32API похоже такой уже никогда не будет, а возможности там по рисованию достаточно широкие. 1

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	28.01.2018, 20:54
	Всем привет! можно финальную версию? Задача таже, но просто сброс скрина в Jpg файл... 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	28.01.2018, 21:40
	Как передать скриншот (принтскрин) по TCP ? 1