EXPORTFILE Function (Media)
Exports the media object (such as an image) that is currently used on record to a file on your computer or network. On the record, the media object is referenced in a Media data type field.
[Ok := ] Record.MediaField.EXPORTFILE(FileName)
Specifies the record that includes the media.
Specifies the Media data type field of the record that includes the media.
Specifies the full path and name of the file to create for the exported media.
Property Value/Return Value
true if the media was successfully exported; otherwise, false.
The exported media file will be of the same media type, such as JPEG (.jpg) or GIF (.gif), as it was when imported. For more information about the media types, see Supported Media Types.
If a file with the same name as the exported file already exists in the target folder and the current session has write access on the file, the existing file will be automatically replaced by the new file. If the export fails, the existing file will be erased.
This example uses the EXPORTFILE function to export media objects that are used on records in a sample table that is named My Items. Each media object is exported to a separate file in a folder on your computer.
The example assumes that the My Items table already exists. Also, the table contains a Media data type field that is named Image, and one or more records already include media. For information about importing media, see IMPORTFILE Function (Media) or IMPORTSTREAM Function (Media).
The example code requires that you create the following variables and text constant:
|Text constant name||ConstValue|
|Text000||%1 media files were exported.|
The code iterates over records in the My Items table. If a media object is referenced in the Image field, the media is exported to a file in the C:\images folder. The file is given a name in the format ItemNN.jpg, where NN is the number assigned to item record in the table, as specified by the No. field.
IF myItemRec.FINDFIRST() THEN BEGIN REPEAT fileName := 'C:\images\' + 'Item' + FORMAT(myItemRec."No.") + '.jpg'; IF myItemRec.Image.EXPORTFILE(fileName) THEN count := count + 1 UNTIL myItemRec.NEXT < 1; MESSAGE(Text000, count); END;