Save a blob to an Outstream

hbink

Hi,

I like to save a file or blob field to an Outstream. How can I do that without reading every single character? I want to save a file witch I stored in a blob field to an Outstream the same way as you can do with an XML document.

XMLFileL.OPEN(FileNameG);
XMLFileL.CREATEINSTREAM(InStreamL);
IF ISCLEAR(XMLDocumentLAut) THEN
CREATE(XMLDocumentLAut);
XMLDocumentLAut.load(InStreamL);

// some code…

XMLDocumentLAut.save(OutStreamL);

This solutions works only with XML files in combination with the 'Microsoft XML, v4.0’ Automation Control.

I like to do the same with a normal file. The following code works ok but it reads every single character of the file. You can use TableTempLRec.Picture.EXPORT to write the file to a destination on disk but not to an Outstream?!

Vars:
TableTempLRec Rec Company Information
C char

FileL.OPEN(FileNameG);
TableTempLRec.Picture.IMPORT(FileNameG);

// some code…

TableTempLRec.CALCFIELDS(Picture);
TableTempLRec.Picture.CREATEINSTREAM(InStreamL);

WHILE NOT InStreamL.EOS DO BEGIN
InStreamL.READ(c);
OutStreamL.WRITE(c);
END;

I have to use an Outstream because I want to place the file in a MS Message Queue (MSMQ).

Thanks i.a. for advice!