Gravar Imagem no Progress

Bom Dia!!
Quero gravar uma imagem no banco de dados progress .. Alguém poderia por gentileza me dar um exemplo de como fazer isso .. No Forum há um unico exemplo, e não consegui fazer daquele jeito, por isso queria mais um exemplo

Obrigado

Boa Tarde.

Não seria melhor você guardar somente o caminho da imagem no banco?

Versão do Progress?

Se superior à 10 pode usar os campos BLOB para fazer isso.

Atenção ao tamanho da Base de Dados.

meu caro colega, bom dia.

segue abaixo um dos exemplos:

Código:

DEFINE VAR wordfile AS CHAR INIT "filename".
DEFINE VAR hWordApp AS COM-HANDLE.

DEFINE TEMP-TABLE ttab NO-UNDO
    FIELD name AS CHAR
    FIELD address AS CHAR
    FIELD city AS CHAR
    FIELD state AS CHAR
    FIELD fldClob as CLOB.

CREATE ttab.
COPY-LOB FROM file "c:\temp\arquivo qualquer.txt" TO fldClob.
/* CONVERT SOURCE CODEPAGE ''. */

wordFile = SESSION:TEMP-DIRECTORY + "\"+ 'arqtxtdoc' + ".doc".

/* Copy the image from the blob field to the * temporary file with COPY-LOB code */
COPY-LOB ttab.fldClob TO FILE wordFile.
/* Display the Word Document */
CREATE "Word.Application" hWordApp.
hWordApp:VISIBLE = TRUE.
hWordApp:documents:OPEN(wordFile).