Devcafe: 새 문서: == 클립보드 이미지 뷰어 == #include #include #include #include #include Global $hGUI, $hPic, $hImage = 0, $hBitmap = 0 ; GDI+ 초기화 _GDIPlus_Startup() ; GUI 생성 $hGUI = GUICreate("클립보드 이미지 뷰어", 800, 600, -1, -1, $WS_OVERLAPPEDWINDOW) ; 버튼 생성 $btnLoad = GUICtrlCreateButton("클립보드에서 가져오기", 10, 1...

2025-10-17T01:45:37Z

새 문서: == 클립보드 이미지 뷰어 == <source lang=autoit> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <ButtonConstants.au3> #include <GDIPlus.au3> Global $hGUI, $hPic, $hImage = 0, $hBitmap = 0 ; GDI+ 초기화 _GDIPlus_Startup() ; GUI 생성 $hGUI = GUICreate("클립보드 이미지 뷰어", 800, 600, -1, -1, $WS_OVERLAPPEDWINDOW) ; 버튼 생성 $btnLoad = GUICtrlCreateButton("클립보드에서 가져오기", 10, 1...

새 문서

== 클립보드 이미지 뷰어 ==
<source lang=autoit>

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GDIPlus.au3>

Global $hGUI, $hPic, $hImage = 0, $hBitmap = 0

; GDI+ 초기화
_GDIPlus_Startup()

; GUI 생성
$hGUI = GUICreate("클립보드 이미지 뷰어", 800, 600, -1, -1, $WS_OVERLAPPEDWINDOW)

; 버튼 생성
$btnLoad = GUICtrlCreateButton("클립보드에서 가져오기", 10, 10, 150, 30)
$btnSave = GUICtrlCreateButton("이미지 저장", 170, 10, 100, 30)
$btnClear = GUICtrlCreateButton("지우기", 280, 10, 80, 30)
$lblInfo = GUICtrlCreateLabel("클립보드에 이미지가 없습니다", 400, 15, 350, 20)

; 이미지 표시 영역 (Pic 컨트롤)
$hPic = GUICtrlCreatePic("", 10, 50, 780, 540, $SS_NOTIFY)

GUISetState(@SW_SHOW, $hGUI)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop

Case $btnLoad
LoadImageFromClipboard()

Case $btnSave
SaveImage()

Case $btnClear
ClearImage()
EndSwitch
WEnd

; 종료 처리
Cleanup()
GUIDelete($hGUI)
_GDIPlus_Shutdown()

; ===== 함수 정의 =====

Func LoadImageFromClipboard()
; 기존 이미지 해제
If $hBitmap <> 0 Then
_GDIPlus_BitmapDispose($hBitmap)
$hBitmap = 0
EndIf

; 클립보드에서 비트맵 가져오기
$hBitmap = _ClipBoard_GetDataEx($CF_BITMAP)

If $hBitmap = 0 Then
GUICtrlSetData($lblInfo, "클립보드에 이미지가 없습니다")
MsgBox(48, "알림", "클립보드에 이미지가 없습니다.")
Return
EndIf

; GDI+ 비트맵으로 변환
$hImage = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap)

If $hImage = 0 Then
GUICtrlSetData($lblInfo, "이미지 로드 실패")
MsgBox(16, "오류", "이미지를 로드할 수 없습니다.")
Return
EndIf

; 이미지 크기 가져오기
$iWidth = _GDIPlus_ImageGetWidth($hImage)
$iHeight = _GDIPlus_ImageGetHeight($hImage)

; 임시 파일로 저장 후 Pic 컨트롤에 표시
$sTempFile = @TempDir & "\clipboard_temp.bmp"
_GDIPlus_ImageSaveToFile($hImage, $sTempFile)

; Pic 컨트롤 크기 조정 및 이미지 설정
Local $picWidth = 780
Local $picHeight = 540
Local $ratio = 1

If $iWidth > $picWidth Or $iHeight > $picHeight Then
$ratio = ($iWidth / $picWidth > $iHeight / $picHeight) ? $picWidth / $iWidth : $picHeight / $iHeight
$iWidth = Int($iWidth * $ratio)
$iHeight = Int($iHeight * $ratio)
EndIf

GUICtrlSetPos($hPic, 10 + Int(($picWidth - $iWidth) / 2), 50 + Int(($picHeight - $iHeight) / 2), $iWidth, $iHeight)
GUICtrlSetImage($hPic, $sTempFile)

GUICtrlSetData($lblInfo, "이미지 로드됨: " & _GDIPlus_ImageGetWidth($hImage) & " x " & _GDIPlus_ImageGetHeight($hImage))
EndFunc

Func SaveImage()
If $hImage = 0 Then
MsgBox(48, "알림", "저장할 이미지가 없습니다.")
Return
EndIf

$sFile = FileSaveDialog("이미지 저장", @MyDocumentsDir, "이미지 파일 (*.png;*.jpg;*.bmp)|모든 파일 (*.*)", 16, "screenshot.png")

If @error Then Return

; 파일 확장자 확인
If StringRight($sFile, 4) <> ".png" And StringRight($sFile, 4) <> ".jpg" And StringRight($sFile, 4) <> ".bmp" Then
$sFile &= ".png"
EndIf

_GDIPlus_ImageSaveToFile($hImage, $sFile)

If FileExists($sFile) Then
MsgBox(64, "완료", "이미지가 저장되었습니다:" & @CRLF & $sFile)
Else
MsgBox(16, "오류", "이미지 저장에 실패했습니다.")
EndIf
EndFunc

Func ClearImage()
GUICtrlSetImage($hPic, "")
GUICtrlSetData($lblInfo, "클립보드에 이미지가 없습니다")

If $hImage <> 0 Then
_GDIPlus_ImageDispose($hImage)
$hImage = 0
EndIf

If $hBitmap <> 0 Then
_WinAPI_DeleteObject($hBitmap)
$hBitmap = 0
EndIf

; 임시 파일 삭제
FileDelete(@TempDir & "\clipboard_temp.bmp")
EndFunc

Func Cleanup()
ClearImage()

; 임시 파일 정리
FileDelete(@TempDir & "\clipboard_temp.bmp")
EndFunc

; 클립보드에서 데이터 가져오기 함수
Func _ClipBoard_GetDataEx($iFormat)
If Not _ClipBoard_Open(0) Then Return SetError(1, 0, 0)

Local $hData = _ClipBoard_GetData($iFormat)
_ClipBoard_Close()

Return $hData
EndFunc

</source>

Autoit 클립보드 이미지 뷰어 - 편집 역사