Потребовалось мне разработать UDF для Firebird. которая возвращала бы значение типа BLOB. Причём, бинарный, а не текстовый. Сделал по образу и подобию. Получение входных данных, их преобразование и сохранение результирующих данных в буфер проблем не вызвало. А вот с переносом данных в выходной параметр возникли проблему. Код примерно вот такой [Code]procedure Buf2Blob(BufPtr: Pointer; BufLen: Integer; Blob: PBlob); begin Blob^.blob_put_segment(blob^.blob_handle, PISC_UCHAR(BufPtr), BufL ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83899