"Андрій Жук" ...
>
> Кстати, вот как сделано в UIB
>
> procedure TSQLResult.ReadBlob(const Index: Word; Stream: TStream);
> var BlobData: PBlobData;
> begin
> CheckRange(Index);
> if not FFetchBlobs then
> raise Exception.Create(EUIB_FETCHBLOBNOTSET);
> BlobData := GetDataQuadOffset(Index);
> Stream.Seek(0, 0);
> Stream.Write(BlobData.Buffer^, BlobData.Size);
> Stream.Seek(0, 0);
> end;
>
> Тоже завалится, да?
Тут нет чтения блоба. Может оно в GetDataQuadOffset, но я не знаю наверняка.
Ищи вызовы isc_get_segment
--
Хорсун Влад
