Try check: https://cpp.hotexamples.com/examples/-/-/OpenClipboard/cpp-openclipboard-function-examples.html

MartinaJ

>No my teacher, I am trying to read tif from VFP.
>I have already Tif file with 2 pages and want to copy this file onto _clipboard.
>
>I think following codes converts Tif to bmp with 1 page, then bmp is copied to _clipboard.
>I want to know is there any method to bypass bmp file and tif file directly copy to _clipboard with all pages.
>
>Sorry if I am wrong.
>
>

>#Define CF_BITMAP 2
>#Define CF_DIB 8
>#Define IMAGE_BITMAP 0
>#Define LR_LOADFROMFILE 16
>#Define LR_MONOCHROME 0x00000001
>
>Local xpict
>m.xpict="E:\abc.tif"
>
>Local m.oo
>m.oo=Newobject("image")
>m.oo.Picture=m.xpict
>Local lnWidth,lnHeight
>lnWidth=m.oo.Width
>lnHeight=m.oo.Height
>
>nBitmap=0
>hbm=0
>GdipCreateBitmapFromFile(Strconv(m.xpict+0h00,5),@nBitmap)
>GdipCreateHBITMAPFromBitmap(nBitmap,@hbm,0)
>lhBmp = CopyImage(hbm, 0, m.lnWidth, m.lnHeight,0)
>If OpenClipboard(0)!= 0
>	EmptyClipboard()
>	SetClipboardData(CF_BITMAP, lhBmp)
>	CloseClipboard()
>Endif
>ENDPROC
>

>
>
>
>
>
>>Hi,
>>
>> VFP read first page from multipage TIFF always.
>>If you want read another page/view from TIFF file, you must use GDI+ API.
>>
>>MartinaJ
>>
>>>Respected Sir,
>>>
>>>I have a tif file that contains 2 pages.
>>>I am trying to copy it to _clipboard
>>>
>>>So I have these codes
>>>

>>>
>>>Declare Integer Sleep In kernel32 Integer
>>>Declare Integer OpenClipboard In User32 Integer
>>>Declare Integer CloseClipboard In User32
>>>Declare Integer EmptyClipboard In User32
>>>Declare Integer SetClipboardData In User32 Integer,Integer
>>>Declare Integer LoadImage In WIN32API Integer,String,Integer,Integer,Integer,Integer
>>>Declare Integer GetClipboardData In User32 Integer
>>>Declare Integer GdipCreateBitmapFromHBITMAP In GDIPlus.Dll Integer, Integer, Integer @
>>>Declare Integer GdipSaveImageToFile In GDIPlus.Dll Integer,String,String @,String @
>>>Declare Long GdipCreateHBITMAPFromBitmap In GDIPlus.Dll Long nativeImage, Long @, Long
>>>Declare Long GdipCreateBitmapFromFile In GDIPlus.Dll String FileName, Long @nBitmap
>>>Declare Long GdipCreateBitmapFromFile    In GDIPlus.Dll String FileName, Long @nBitmap
>>>Declare Long CopyImage In WIN32API Long hImage, Long, Long, Long , Long
>>>
>>>#Define CF_BITMAP 2
>>>#Define CF_DIB 8
>>>#Define IMAGE_BITMAP 0
>>>#Define LR_LOADFROMFILE 16
>>>#Define LR_MONOCHROME 0x00000001
>>>
>>>Local xpict
>>>m.xpict="E:\abc.tif"
>>>
>>>Local m.oo
>>>m.oo=Newobject("image")
>>>m.oo.Picture=m.xpict
>>>Local lnWidth,lnHeight
>>>lnWidth=m.oo.Width
>>>lnHeight=m.oo.Height
>>>
>>>nBitmap=0
>>>hbm=0
>>>GdipCreateBitmapFromFile(Strconv(m.xpict+0h00,5),@nBitmap)
>>>GdipCreateHBITMAPFromBitmap(nBitmap,@hbm,0)
>>>lhBmp = CopyImage(hbm, 0, m.lnWidth, m.lnHeight,0)
>>>If OpenClipboard(0)!= 0
>>>	EmptyClipboard()
>>>	SetClipboardData(CF_BITMAP, lhBmp)
>>>	CloseClipboard()
>>>Endif
>>>ENDPROC
>>>

>>>
>>>Codes work fine but when I press Ctrl+v in clipboard there is only 1 page instead of 2
>>>It means _clipboard is holding only 1 page.
>>>
>>>How is it possible to copy all pages from tif file to clipboard?
>>>
>>>Attachment has abc.tif and prg.
>>>
>>>Please help