fortran读写剪贴板

andy8496 · 发表于 2022-4-12 10:42:53

VS+ivf+Win环境下，Fortran能否读、写系统的剪贴板呢？

楚香饭 · 发表于 2022-4-12 12:02:31

本帖最后由楚香饭于 2022-4-12 12:15 编辑

这个以前恰好写过。不过只能读取粘贴板里的纯文本。对于图像，文件，其他数据类型没有用。

[Fortran] 纯文本查看 复制代码

01Program www_fcode_cn
02  implicit none
03  character(len=100) :: c
04  integer :: j
05  j = getClipboardText(c)
06  if(j>0) write(*,'(a)') trim(c)
07 
08contains
09 
10  Integer Function getClipboardText( text ) result( length )
11    use , intrinsic :: ISO_C_Binding
12    use user32
13    use kernel32
14    Character(len=*) :: text
15    integer     :: hData , j
16    type(c_ptr) :: cp
17    character(len=len(text)) , pointer :: p
18    length = 0
19    text   = ""
20    if ( 0==OpenClipboard(0) ) return
21    hData = GetClipboardData(CF_TEXT)
22    if ( hData /= 0 ) then
23      call c_f_pointer(transfer(GlobalLock(hData),cp),p)
24      length = index(p,c_null_char)-1
25      if(length<0) length = len(text)
26      text = p(:length)
27      j = GlobalUnlock(hData)
28    end if
29    j = CloseClipboard()
30  End Function getClipboardText
31 
32End Program www_fcode_cn

andy8496 · 发表于 2022-4-12 15:16:02

楚香饭发表于 2022-4-12 12:02
这个以前恰好写过。不过只能读取粘贴板里的纯文本。对于图像，文件，其他数据类型没有用。

[mw_shl_code= ...

ISO_C_Binding真是大神器啊！
多谢老群主！

andy8496 · 发表于 2023-2-28 10:02:46

本帖最后由 andy8496 于 2023-2-28 10:07 编辑

我依葫芦画瓢写了个设置剪贴板内容的子程序，Win 7能正常运行，但是Win 10就不行了……烦请大神帮给看看，多谢多谢！

[Fortran] 纯文本查看 复制代码

01subroutine setClipboardText( text )
02  use , intrinsic :: ISO_C_Binding
03  use user32
04  use kernel32
05  Character(len=*) :: text
06  integer     :: hData , j
07  type(c_ptr) :: cp
08  character(len=len(text)) , pointer :: p
09 
10  if ( 0==OpenClipboard(0) ) return
11  j = EmptyClipboard()
12 
13  hData = GlobalAlloc(GMEM_MOVEABLE,len(text)+1)
14  if ( hData /= 0 ) then
15    call c_f_pointer(transfer(GlobalLock(hData),cp),p)
16    p = text
17    j = GlobalUnlock(hData)
18    j = SetClipboardData(CF_TEXT,hData)
19  end if
20  j = CloseClipboard()
21End subroutine