Clipboard API Functions by Alyce Watson
These three demos show you how to handle text, bitmaps and wavs with the clipboard.
OpenClipboard
To access the Windows Clipboard via API, you must first make a call to OpenClipboard. The argument required is your windows's handle and the return is nonzero if the function successds.
CallDll #user32, "OpenClipboard", hWnd as long, r as boolean
CloseClipboard
When you have finished, you must call CloseClipboard. It will return nonzero if successful.
CallDll #user32, "CloseClipboard", r as boolean
SetClipboardData
To place something on the clipboard once it is open, use SetClipboardData. You must specify the format of the data, so the clipboard knows if it is receiving text or an image, for instance. Some possible formats we can use:
_CF_TEXT
_CF_BITMAP
_CF_WAVE
You must supply the memory handle to the data. If you are sending text to the clipboard, you will use memory allocation functions to create a handle to the text in memory. See the demo by Dennis below for a step-by-step example. You will use the functions "GlobalAlloc", "GlobalLock", "GlobalUnlock", and "GlobalFree".
If you are sending a bitmap to the clipboard, you will need the handle to the bitmap, retrieved with Liberty BASIC's HBMP() function. If the function succeeds, the return value is the handle of the data.
calldll #user32, "SetClipboardData", format as long,_ handle as long,_ rethandle as long
GetClipboardData
To retrieve data from the clipboard, use GetClipboardData. It requires the type of format you seek as the first argument. You must specify whether you are looking for text, a bitmap or a wave. If data in the specified format is on the clipboard, the function returns a handle to the data. If the return is null, that means that data in the format you specified is not available on the clipboard.
calldll #user32, "GetClipboardData",_ format as long,_ rethandle as long calldll #user32, "GetClipboardData",_ _CF_TEXT as long,_ txtHandle as long calldll #user32, "GetClipboardData", _CF_BITMAP as long,_ hBmp as long calldll #user32, "GetClipboardData",_ _CF_WAVE as long,_ hWav as long
You will need to manage the data differently, depending upon the format. If you retrieve text from the clipboard, the return is a memory pointer to the text. Use the winstring() function to retrieve the actual text.
If you retrieve a bitmap from the clipboard, use the LOADBMP function to load it from the handle returned by the function. Once you have given it an LB name with LOADBMP, you can use DRAWBMP or BMPSAVE just as you would on a bitmap loaded from disk.
If you retrieve the handle of a wav from the clipboard, you cannot play it with PLAYWAVE. Since it is a wav in memory, you must play it with the API function sndPlaySound. See the third program below for examples of retrieving and using data in text, bitmap and wav format.
PLACE TEXT ON CLIPBOARD
by Dennis McKinney
'Send text to clipboard with api calls 'by Dennis McKinney 'Note: You can use your window handle here instead of 0 r = ClipboardSetText(0, "Hello World") 'If r is > 0 then the text has been placed on the clipboard end Function ClipboardSetText(hOwner, strText$) 'Puts some text on the Windows clipboard 'In: The text to place on the clipboard 'Out: 0 if fail, > 0 if text placed on clipboard strText$ = strText$ + chr$(0) lngSize = Len(strText$) hMemory = GlobalAlloc(_GMEM_MOVEABLE, lngSize) 'Lock the object into memory lpMemory = GlobalLock(hMemory) 'Move the string into the memory we locked CallDll #kernel32,"RtlMoveMemory", lpMemory as ulong, strText$ as ptr, lngSize as long, ret as void 'Don't send clipboard locked memory. r = GlobalUnlock(hMemory) 'Open the clipboard CallDll #user32, "OpenClipboard", hOwner as long, r as boolean 'Remove the current contents of the clipboard CallDll #user32, "EmptyClipboard", r as boolean 'Add our string to the clipboard as text 'If hSuccess > 0 then we have set the clipboard data CallDll #user32, "SetClipboardData", _CF_TEXT as long, hMemory as long, hSuccess as long 'Close the clipboard CallDll #user32, "CloseClipboard", r as boolean 'If we have set the clipboard data, we no longer own 'the memory--Windows does, so don't free it unless we failed. If hSuccess = 0 Then r = GlobalFree(hMemory) End If ClipboardSetText = hSuccess End Function '--- Supporting functions --- Function GlobalAlloc(type, dwBytes) CallDll #kernel32, "GlobalAlloc", type as long, dwBytes as ulong, GlobalAlloc as long End Function Function GlobalLock(hMem) CallDll #kernel32, "GlobalLock", hMem as long, GlobalLock as long End Function Function GlobalUnlock(hMem) CallDll #kernel32, "GlobalUnlock", hMem as long, GlobalUnlock as long End Function Function GlobalFree(hMem) CallDll #kernel32, "GlobalFree", hMem as ulong, GlobalFree as long End Function
Editor's note: an example that retrieves text from the clipboard is included in the third demo, below.
PLACE BITMAP ON CLIPBOARD AND RETRIEVE BITMAP FROM CLIPBOARD
by Alyce Watson
'This little demo shows how to send a bitmap to the clipboard. 'It also shows how to grab a bitmap from the clipboard and 'display it in our Liberty BASIC program. nomainwin WindowWidth=340:WindowHeight=480 graphicbox #1.g, 10,10,300,300 statictext #1.s, "",10,320,600,50 open "Clipboard Demo" for window as #1 print #1, "trapclose [quit]" h=hwnd(#1) filedialog "Open","*.bmp",bmpfile$ if bmpfile$="" then [quit] loadbmp "forclip",bmpfile$ hBitmap=hbmp("forclip")'get bmp handle 'open clipboard: calldll #user32, "OpenClipboard",h as long, result as long 'put bmp data on clipboard: calldll #user32, "SetClipboardData",_CF_BITMAP as long,_ hBitmap as long, rethandle as long 'see if bmp data is on clipboard calldll #user32, "GetClipboardData",_CF_BITMAP as long,_ hBmp as long 'if bmpdata is on clipboard, load the bmp and draw it if hBmp<>0 then loadbmp "demo",hBmp print #1.g, "down;fill lightgray;drawbmp demo 0 0;flush" end if calldll #user32, "CloseClipboard", result as void msg$="Return for CF_BITMAP ";hBmp print #1.s, msg$ wait [quit] if hBmp<>0 then unloadbmp "demo" close #1:end
RETRIEVE TEXT, BITMAP AND WAV DATA FROM THE CLIPBOARD
by Alyce Watson
'to use this demo, do one of the following: ' 'open notepad, type some text, and choose COPY ' OR 'open MS Paint, open a picture, then select all 'or part of it and choose COPY ' OR 'open a wav in sound recorder, then choose COPY ' ' 'if you have copied text to the clipboard, it will 'appear in the texteditor. ' 'if you have copied an image to the clipboard, 'it will be drawn in the graphicbox ' 'if you have copied a wav, it will play ' nomainwin WindowWidth=640:WindowHeight=480 texteditor #1.t, 10,10,300,300 graphicbox #1.g, 320,10,300,300 statictext #1.s, "",10,320,600,50 button #1.b, "Do another!",[again],UL,10,380 open "Clipboard Demo" for window as #1 print #1, "trapclose [quit]" h=hwnd(#1) [again] calldll #user32, "OpenClipboard",h as long, result as long calldll #user32, "GetClipboardData",_CF_TEXT as long,_ txt as long if txt<>0 then print #1.t, "!cls" print #1.t, "Text content of clipboard:" print #1.t, "" print #1.t, winstring(txt) print #1.t, "!origin 1 1" end if calldll #user32, "GetClipboardData",_CF_BITMAP as long,_ hBmp as long if hBmp<>0 then loadbmp "demo",hBmp print #1.g, "cls;down;drawbmp demo 0 0;flush" end if calldll #user32, "GetClipboardData",_CF_WAVE as long,_ hWav as long if hWav<>0 then SND.SYNC = 0 SND.ASYNC = 1 SND.NODEFAULT = 2 SND.MEMORY = 4 mode=SND.MEMORY or SND.ASYNC OR SND.NODEFAULT calldll #winmm, "sndPlaySoundA",_ hWav as long,mode as long,result as long end if calldll #user32, "CloseClipboard", result as void msg$="Return for CF_TEXT ";txt msg$=msg$+ chr$(13)+"Return for CF_BITMAP ";hBmp msg$=msg$+chr$(13)+"Return for CF_WAVE ";hWav print #1.s, msg$ wait [quit] if hBmp<>0 then unloadbmp "demo" close #1:end