COPY_FROM_CLIPBOARD64@

Platform

x64

Purpose

To copy large data from the clipboard.

Syntax

INTEGER FUNCTION COPY_FROM_CLIPBOARD64@( BUFFER, NUM, TYPE )
CHARACTER(*) BUFFER
INTEGER*8 NUM
INTEGER TYPE

Description

Use this routine to copy anything from the clipboard. The following data types can exist in the clipboard, though not all are directly supported by ClearWin+:

	CF_BITMAP	Bitmap data
	CF_DIB	A BITMAPINFO structure followed by a bitmap
	CF_DIF	Data interchange format
	CF_DSPBITMAP	Private data stored in a bitmap format
	CF_DSPMETAFILEPICT	Private data stored in metafile format
	CF_DSPTEXT	Private data stored in text format
	CF_METAFILEPICT	The data is in metafile format
	CF_OEMTEXT	The data is in OEM text format
	CF_OWNERDISPLAY	The data is a private format
	CF_PALETTE	A palette
	CF_RIFF	Resource interchange format
	CF_SYLK	Microsoft symbolic link format
	CF_TEXT	Text format
	CF_TIFF	Tag image file format
	CF_WAVE	Wave format

The BUFFER will contain NUM bytes copied from the clipboard. To determine the length of CF_TEXT or CF_OEMTEXT the routine SIZEOF_CLIPBOARD_TEXT64@ can be called.

Return value

Returns 1 for success or zero for failure.

Notes

Added to FTN95 at version 8.10

See also

COPY_TO_CLIPBOARD@,
COPY_TO_CLIPBOARD64@,
COPY_FROM_CLIPBOARD@,
CLIPBOARD_TO_SCREEN_BLOCK@,
GRAPHICS_TO_CLIPBOARD@,
SIZEOF_CLIPBOARD_TEXT@,
SIZEOF_CLIPBOARD_TEXT64@

Example

INTEGER*8 addr,len,i
CHARACTER buffer*1024
len=sizeof_clipboard_text64@()
IF(len.GT.0)THEN
  CALL get_storage64@(addr,len)
  IF(addr.GT.0)THEN
    i=copy_from_clipboard64@(addr,len, CF_TEXT)
    CALL move64@(buffer,CCORE1(addr),len)
  ENDIF
ENDIF

COPY_FROM_CLIPBOARD64@

Fortran Links

News