MS Windows Clipboard Woes

GetCopyWinClipboard LotusScript Library:

%REM
	Library GetCopyWinClipboard
	Created Jun 3, 2024 by MW Admin/Mindwatering
	Description: Used w/32-bit or w/64-bit copy to clipboard
%END REM
Option Public
Option Declare


'dataformat ID for ANSI text with ending null (\0). CR(13)/ LF(10) are for end of line.
Const CF_UNICODETEXT = 13
Const OS_TRANSLATE_UNICODE_TO_LMBCS = 23
Private Const CF_TEXT = 1
Private Const GMEM_MOVABLE = &H2&
Private Const GMEM_DDESHARE = &H2000&

'** 32-bit API calls
Declare Function OpenClipboard Lib "user32.dll" (ByVal hwnd As Long) As Long
Declare Function CloseClipboard Lib "user32.dll" () As Long
Declare Function GetClipboardData Lib "user32.dll" (ByVal wFormat As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function OSTranslateFromPtr Lib "nnotes.dll" Alias "OSTranslate" (ByVal mode As Integer,ByVal strIn As Long,ByVal lenIn As Integer,ByVal strOut As LMBCS String, ByVal lenOut As Integer ) As Integer

Declare Private Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Declare Private Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Declare Private Function EmptyClipboard Lib "user32" () As Long
Declare Private Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal strDest As Any, _
ByVal lpSource As Any, ByVal Length As Any)
Declare Private Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hData As Long) As Long

'** 64-bit API calls
Declare Function OpenClipboard_64 Lib "user32.dll" Alias "OpenClipboard" (ByVal hwnd As Double) As Long '** hwnd is a window handle
Declare Function GetClipboardData_64 Lib "user32.dll" Alias "GetClipboardData" (ByVal wFormat As Long) As Double '** returns a memory handle
Declare Function CloseClipboard_64 Lib "user32.dll" Alias "CloseClipboard" () As Long
Declare Function GlobalLock_64 Lib "kernel32.dll" Alias "GlobalLock" (ByVal hMem As Double) As Double '** hMem is a memory handle, returns a pointer
Declare Function GlobalUnlock_64 Lib "kernel32.dll" Alias "GlobalUnlock" (ByVal hMem As Double) As Long '** hMem is a memory handle, returns a BOOL
Declare Function GlobalSize_64 Lib "kernel32.dll" Alias "GlobalSize" (ByVal hMem As Double) As Long '** hMem is a memory handle, returns a size
Declare Function OSTranslateFromPtr_64 Lib "nnotes.dll" Alias "OSTranslate" ( ByVal mode As Integer, ByVal strIn As Double, _ '** strIn is a string pointer
ByVal lenIn As Integer, _
ByVal strOut As LMBCS String, _
ByVal lenOut As Integer ) As Integer

Declare Private Function GlobalAlloc_64 Lib "kernel32" Alias "GlobalAlloc" (ByVal wFlags As Long, ByVal dwBytes As Long) As Double ' returns a memory handle
Declare Private Function GlobalFree_64 Lib "kernel32" Alias "GlobalFree" (ByVal hMem As Double) As Double 'hmem is a memory handle, returns a pointer
Declare Private Function EmptyClipboard_64 Lib "user32" Alias "EmptyClipboard" () As Long
Declare Private Sub MoveMemory_64 Lib "kernel32" Alias "RtlMoveMemory" (ByVal strDest As Double, _
ByVal lpSource As String, ByVal Length As Long)'lpSource is a pointers
Declare Private Function SetClipboardData_64 Lib "user32" Alias "SetClipboardData" (ByVal wFormat As Long, ByVal hData As Double) As Double 'hData is a handle and it returns a handle

Sub Initialize
	' WARNING - Make sure you set the pointer in order for MoveMemory to not crash Notes
End Sub



%REM
	Function GetClipboard
	Description: Retrieves the current clipboard contents for use by the calling code
%END REM
Function GetClipboard() As String
	Dim session As New NotesSession
	If (session.Platform = "Windows/64") Then
		GetClipboard = GetClipboard64()
		Exit Function
	End If
	Dim glbHandle As Long
	Dim cbPointer As Long
	Dim cbPointerLen As Long
	Dim cbString As String
	If OpenClipboard(0) Then
		glbHandle = GetClipboardData(CF_UNICODETEXT)
		cbPointer = GlobalLock(glbHandle)
		cbPointerLen = GlobalSize(glbHandle)
		cbString = Space(cbPointerLen)
		Call OSTranslateFromPtr( OS_TRANSLATE_UNICODE_TO_LMBCS, _
		cbPointer, cbPointerLen, cbString, cbPointerLen )
		cbString = StrLeft(cbString, Chr(0))
		Call GlobalUnlock(glbHandle)
		Call CloseClipboard()
	End If
	GetClipboard = cbString
End Function


Function GetClipboard64() As String
	Dim session As New NotesSession
	session.UseDoubleAsPointer = True
	Dim glbHandle_64 As Double
	Dim cbPointer_64 As Double
	Dim cbPointerLen As Long
	Dim cbString As String
	If OpenClipboard_64(0) Then
		glbHandle_64 = GetClipboardData_64(CF_UNICODETEXT)
		cbPointer_64 = GlobalLock_64(glbHandle_64)
		cbPointerLen = GlobalSize_64(glbHandle_64)
		cbString = Space(cbPointerLen)
		Call OSTranslateFromPtr_64( OS_TRANSLATE_UNICODE_TO_LMBCS, _
		cbPointer_64, cbPointerLen, cbString, cbPointerLen )
		cbString = StrLeft(cbString, Chr(0))
		Call GlobalUnlock_64(glbHandle_64)
		Call CloseClipboard_64()
	End If
	GetClipboard64 = cbString
	session.UseDoubleAsPointer = False
End Function
%REM
	Sub SetClibboard
	Description: Set the clipboard contents for transfer to another program
%END REM
Sub SetClipboard(cbstr As String)
	Dim lSize As Long
	Dim hMem As Long
	Dim pMemory As Long
	Dim temp As Variant
	Dim session As New NotesSession
	If (session.Platform = "Windows/64") Then
		Call SetClipboard64(cbstr)
		Exit Sub
	End If
	
	lSize = Len(cbstr)+1
	hMem = GlobalAlloc(GMEM_MOVABLE Or GMEM_DDESHARE, lSize)
	If hMem = 0 Or IsNull(hMem) Then Exit Sub
	pMemory = GlobalLock(hMem)
	If pMemory = 0 Or IsNull(pMemory) Then 
		GlobalFree(hMem)
		Exit Sub
	End If
	Call MoveMemory(pMemory, cbstr, lSize)
	Call GlobalUnlock(hMem)
	If (OpenClipboard(0&) <> 0) Then
		If (EmptyClipboard() <> 0) Then
			temp = SetClipboardData(CF_TEXT, hMem)
		End If
		temp = CloseClipboard()
	End If
	GlobalFree(hMem)
End Sub
Sub SetClipboard64(cbstr As String)
	Dim session As New NotesSession
	session.UseDoubleAsPointer = True
	
	' Dim lSize As Double 	' changed to and from per HCL
	Dim lSize As Long
	Dim hMem As Double
	Dim pMemory As Double
	Dim temp As Double
	
	lSize = Len(cbstr)+1
	hMem = GlobalAlloc_64(GMEM_MOVABLE Or GMEM_DDESHARE, lSize)
	If hMem = 0 Or IsNull(hMem) Then Exit Sub
	pMemory = GlobalLock_64(hMem)
	If pMemory = 0 Or IsNull(pMemory) Then 
		GlobalFree_64(hMem)
		Exit Sub
	End If
	Call MoveMemory_64(pMemory, cbstr, lSize)
	Call GlobalUnlock_64(hMem)
	If (OpenClipboard_64(0&) <> 0) Then
		If (EmptyClipboard_64() <> 0) Then
			temp = SetClipboardData_64(CF_TEXT, hMem)
		End If
		temp = CloseClipboard_64()
	End If
	GlobalFree_64(hMem)
	session.UseDoubleAsPointer = False
End Sub