ab.com コミュニティ

Function ClipTextOpen(ByVal pBuffer As BytePtr) As Long
	Dim hGlobal As HGLOBAL
	ClipTextOpen=-2
	If OpenClipboard(0)=0 Then ExitFunction
	hGlobal=GetClipboardData(CF_TEXT)
	If hGlobal=0 Then ClipTextOpen=0:ExitFunction
	If pBuffer Then
		lstrcpy(pBuffer,GlobalLock(hGlobal))
		GlobalUnlock(hGlobal)
		ClipTextOpen=-1
	Else
		ClipTextOpen=GlobalSize(hGlobal)
	End If
	CloseClipboard()
End Function

Function ClipTextOpen$() As String
	Dim Buffer$ As String
	Dim hGlobal As HGLOBAL
	If OpenClipboard(0)=0 Then ExitFunction
	hGlobal=GetClipboardData(CF_TEXT)
	If hGlobal=0 Then ExitFunction
	Buffer$=MakeStr(GlobalLock(hGlobal))
	GlobalUnlock(hGlobal)
	CloseClipboard()
	ClipTextOpen$=Buffer$
End Function

Function ClipTextSave(ByVal pBuffer As BytePtr) As Long
	Dim hGlobal As HGLOBAL
	ClipTextSave=0
	hGlobal=GlobalAlloc(GHND,lstrlen(pBuffer)+1)
	lstrcpy(GlobalLock(hGlobal),pBuffer)
	GlobalUnlock(hGlobal)
	If OpenClipboard(0)=0 Then GlobalFree(hGlobal):ExitFunction
	EmptyClipboard()
	SetClipboardData(CF_TEXT,hGlobal)
	CloseClipboard()
	ClipTextSave=1
End Function

Function ClipTextOpen() As BytePtr
	Dim hGlobal As HGLOBAL
	Dim pBuffer As BytePtr
	ClipTextOpen=0
	If OpenClipboard(0)=0 Then ExitFunction
	hGlobal=GetClipboardData(CF_TEXT)
	If hGlobal=0 Then ExitFunction
	pBuffer=calloc(GlobalSize(hGlobal))
	lstrcpy(pBuffer,GlobalLock(hGlobal))
	GlobalUnlock(hGlobal)
	CloseClipboard()
	ClipTextOpen=pBuffer
End Function

Dim pBuf As BytePtr
pBuf=ClipTextOpen()
MessageBox(0,pBuf,"",0)

ClipTextSave(Ex"テストな文字列\r\n改行とかは「\\r\\n」でできます。")

pBuf=ClipTextOpen()
MessageBox(0,pBuf,"",0)
free(pBuf)