Syntax 1 For InkPicture controls

Description

Saves a picture and optionally overlay ink to a file or blob
from an InkPicture control.

Controls

InkPicture controls

Syntax

<span>inkpicname</span>.Save(<span></span> <span>t</span> | <span>b</span> , <span>format </span>{ , <span>WithInk</span> } )

1	<span>inkpicname</span>.Save(<span></span> <span>t</span> \| <span>b</span> , <span>format </span>{ , <span>WithInk</span> } )

Argument	Description
inkpicname	The name of the InkPicture control from which you want to save a picture.
t	A string containing the name and location of the file into which the picture will be saved.
b	The name of a blob passed by reference that will hold the picture in the control.
format	An integer specifying the format in which the picture is to be saved. Values are: 0 – BMP (bitmap) 1 – JPEG (Joint Photographic Experts Group) 2 – GIF (Graphics Interchange Format) 3 – TIFF (Tagged Image File Format) 4 – PNG (Portable Network Graphics)
WithInk (optional)	A boolean specifying whether overlay ink should be saved with the picture. Values are: True – overlay ink is saved with the picture (default) False – overlay ink is not saved with the picture

Return Values

Integer. Returns 1 for success and -1
for failure.

Usage

Use the Save function to save the image
in an InkPicture control to a file or blob with or without any ink
annotations that have been made to it. By default, the ink is saved
with the image.

Examples

The following example saves the image in an InkPicture
control and its ink annotations in bitmap format into a blob, and
attempts to update the image in the database:

int li_return<br>blob lblb_ink<br> <br>li_return = ip_1.save(lblb_ink, 0, true)<br> <br>UPDATEBLOB employee SET backimage = :lbb_ink WHERE emp_id = :gi_id;<br> <br>IF sqlca.SQLNRows &gt; 0 THEN<br>&#160;&#160;&#160;COMMIT;<br> <br>ELSE<br>&#160;&#160;&#160;messagebox("Update failed",sqlca.sqlerrtext)<br>END IF

1	int li_return<br>blob lblb_ink<br> <br>li_return = ip_1.save(lblb_ink, 0, true)<br> <br>UPDATEBLOB employee SET backimage = :lbb_ink WHERE emp_id = :gi_id;<br> <br>IF sqlca.SQLNRows > 0 THEN<br>   COMMIT;<br> <br>ELSE<br>   messagebox("Update failed",sqlca.sqlerrtext)<br>END IF

The following example saves the image in an InkControl
into a GIF file without any ink annotations:

int li_return<br>string ls_pathname, ls_filename<br> <br>GetFileSaveName("Save As", ls_pathname, ls_filename, "GIF")<br>li_return = ip_1.save(ls_pathname, 2, false)

1	int li_return<br>string ls_pathname, ls_filename<br> <br>GetFileSaveName("Save As", ls_pathname, ls_filename, "GIF")<br>li_return = ip_1.save(ls_pathname, 2, false)

Connection Information

Syntax 1 For InkPicture controls – PB Docs 126