fortran读写剪贴板

andy8496

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

andy8496

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

[mw_shl_code= ...

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

andy8496

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

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

subroutine setClipboardText( text )
  use , intrinsic :: ISO_C_Binding
  use user32
  use kernel32
  Character(len=*) :: text
  integer     :: hData , j
  type(c_ptr) :: cp
  character(len=len(text)) , pointer :: p

  if ( 0==OpenClipboard(0) ) return
  j = EmptyClipboard()

  hData = GlobalAlloc(GMEM_MOVEABLE,len(text)+1)
  if ( hData /= 0 ) then
    call c_f_pointer(transfer(GlobalLock(hData),cp),p)
    p = text
    j = GlobalUnlock(hData)
    j = SetClipboardData(CF_TEXT,hData)
  end if
  j = CloseClipboard()
End subroutine

andy8496

fcode 发表于 2023-2-28 16:07
这......自己挖自己的坟？一年了，老哥。

一直用的Win 7