[lindachan]

#post-id: 3085-20-14
#original-date: 5.01.2009 Mon
#original-time: 8:14 PM
#original-day:  3085
#original-host: WinXP Prof SP2 (Build 2600)

Очередная макаронина с GoTo ^^ Ну и заметка для DDD как можно проверить уникальность рисунка в буфере обмена.

' Создать собственный!!!
Global Const AppGUID = "{XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}"
Global ClipFormat As Long

Private Sub Form_Load()
  ClipFormat = RegisterClipboardFormat(AppGUID)
End Sub

Private Sub tmrCapture_Timer()
  If IsClipboardFormatAvailable(CF_BITMAP) <> 0 Then
    If IsClipboardFormatAvailable(ClipFormat) = 0 Then
      Dim hData As API_HANDLE
      
      hData = GlobalAlloc(GMEM_MOVEABLE And GMEM_DDESHARE Or _
                          GMEM_ZEROINIT, Len(AppGUID))
      If hData = 0 Then Exit Sub
      
      lstrcpyByAnyStringA ByVal hData, AppGUID
      
      If OpenClipboard(0) = 0 Then GoTo hError
      If SetClipboardData(ClipFormat, hData) = 0 Then GoTo hErrorData
      CloseClipboard
      
      Me.picCaptured.Picture = Clipboard.GetData(CF_BITMAP)
    End If
  End If
  
  Exit Sub
hErrorData:
  CloseClipboard
hError:
  GlobalFree hData
End Sub

Суть кода в том, что раз в минуту (или сколько там поставите) таймером проверяется буфер обмена. Если там находится растр, то проверяется, есть ли там ещё и данные нашего формата, который мы зарегистрировали при загрузке формы. Ежели такие есть, картинка уже была нами прочитана - мы её игнорим. А вот если таких нет, то мы сначала пихаем в буфер данные (наш GUID, или что угодно), а потом читаем картинку.

На чём основано? Это вообще алгоритм для снятия скриншотов. При нажатии Print Screen Windows сначала отчистит буфер обмена, а потом вставит туда картинку. На это мы и рассчитываем, добавляя туда специальный "маркер", если считали картинку.

В качестве домашнего задания я не привела объявления ^^ Потом при регистрации формата может возникнуть ошибка, поэтому нужно там это контролировать.

Обратите внимание, что AppGUID - у меня GUID, и его значение для своей программы вы должны получить GUIDGEN'ом или подобной утилитой. Не стоит рисковать ^^

#music: The Prodigy and Enya\Smack up the orinoco flow