Update ORDImage with in memory BLOB?

Question

According to the interMedia docs, one of your examples is:
BEGIN
INSERT INTO emp VALUES (
'John Doe', 24000, 'Technical Writer', 123,
ORDSYS.ORDImage(ORDSYS.ORDSource(empty_blob(), NULL,NULL,NULL,SYSDATE,1),
NULL,NULL,NULL,NULL,NULL,NULL,NULL));
-- select the newly inserted row for update
SELECT photo INTO Image FROM emp
WHERE ename = 'John Doe' for UPDATE;
--BEGIN
-- use the getContent method to get the LOB locator.
-- populate the data with dbms lob calls or write an OCI program to
-- fill in the image BLOB.
--END;
-- set property attributes for the image data
Image.setProperties;
UPDATE emp SET photo = Image WHERE ename = 'John Doe';
-- continue processing
END;
However, the part I'm stuck on is the populate the data (using OCI or LOB packages). For a regular BLOB field (or interMedia text), I can use the procedure outlined below:
sSQL = "SELECT blob FROM store WHERE id = " & ID
Set oDS = setDS(sSQL)
oDS.Edit
Set oBLOB = oDS.Fields("blob").Value
sRet = oBLOB.Write(oFile.Binary, sSize)
oDS.Update
I retrieve the blob field (which was inserted with empty_blob()) into a dynaset using OO4O, edit the current row and write the new blob with the file and size parameters (I get from the rest of my code). This does not work for a fieldtype of ORDImage (the write method is not available). Is there any sample code that will update the blob field with binary in-memory data as opposed to from an external file? Thanks,
Kevin
null

Answer 1

The interMedia object method getContent() returns a blob. This can then be read and write using the BLOB interface.
So in your example, your SQL would be
sSQL = "SELECT s.image.getContent() FROM store s WHERE s.id = " & ID
Then you could uses the fields.value method to get the blob handle.