возврат полей Blob методом asString.

¬ последней версии FIBC (от 9 июн¤ 1999) можно записывать данные в пол¤
методом asString. ќднако читать - нет. “.е. возвращаема¤ строка в любом
случае содержит строку '(Blob)'.

ћне удалось решить эту проблему очень простым способом. Ќепон¤тно, почему
Greg не сделал этого сам.
Hurray! 

»так, смотрим на оригинальный метод

function TFIBXSQLVAR.GetAsString: String;

который содержит код:

 SQL_BLOB:
        result := '(Blob)';

„тобы GetAsString возвращал blob в строку, сначала надо расширить функциональность
FIBBlobStream добавлением следующего метода:

function TFIBBlobStream.SaveToString: string;
var
  Len: Integer;
begin
  CheckReadable;
  EnsureBlobInitialized;
  if FBlobSize <> 0 then
    begin
      Seek(0, soFromBeginning);
      Len := Size;
      SetString(Result, nil, Len);
      ReadBuffer(Pointer(Result)^, Len);
    end
  else
    Result:='';
end;

а затем изменить обработку SQL_BLOB в GetAsString на следующую:

      SQL_BLOB:
        begin
          Result:='(Blob)'; { return on error }
          bs := TFIBBlobStream.Create;
          try
            bs.Mode := bmRead;
            bs.Database := FQuery.Database;
            bs.Transaction := FQuery.Transaction;
            bs.BlobID := AsQuad;
            Result:=bs.SaveToString;
          finally
            bs.Free;
          end;
        end;

 ак ¤ понимаю, это работает как дл¤ FIBQuery, так и дл¤ FIBDataSet. Ќикаких
проблем не обнаружено и при выводе данных из FIBDataSet в DBGrid. DBGrid, как обычно,
содержимое blob-полей показывает как (blob) или (BLOB).

-- 
Dmitry Kuzmenko, Epsylon Technologies.
Welcome to http://www.ibase.ru/ (1251)