Как содержимое поля типа BLOB представить как VARCHAR?

[artemavd]

Не понял немного.

Тянешь Blob c именем ZNACHENIE, оно и есть с таким именем.

Это в смысле так и оставить:

procedure TForm1.pFIBDataSet6CalcFields(DataSet: TDataSet);
begin
 DataSet.FieldByName('_BlobPole').AsString:=DataSet.FieldByName('ZNACHENIE').AsString;
end;

В правой части правильно обратился.

Имеешь ввиду таблицу? Или что подразумеваешь под правой частью?

В левой части должно быть имя калькулируемого поля, которое нужно создать в дизайне.

В инспекторе свойств чтоли?

Какого у тебя _BlobPole имеет тип fkData (FieldKind)? Замени на fkCalculate или на подобие этого, не помню точно. И оно должно быть символьное (TStringField), а не BLOB.

Код запроса простой:

 Form1.pFIBDataSet6.Active:=False;
 Form1.pFIBDataSet6.SQLs.SelectSQL.Clear;
 Form1.pFIBDataSet6.SQLs.SelectSQL.Text:='SELECT * FROM T_OK_R1';
 Form1.pFIBDataSet6.Active:=True;

Вот так вот сделал настройки:
Что не так сейчас? Сейчас ошибки нет. Первая колонка грузится со значениями из поля базы, на которое я настроил столбец в DBGridEh, а BLOB поле так и не хочет показываться. Теперь надписи (BLOB) нет, но и содержимого тоже не показывается. Свойства у DBGridEh настроены.

[Аватар]

Можно еще так попробовать (buffer лучше динамическим сделать или память подходящую указать), у меня собственно и выше предложенный вариант работает. Если и это не будет работать, тоды не знаю. Пример под D7

procedure TForm1.pFIBDataSet6CalcFields(DataSet: TDataSet);
var ss: TMemoryStream;
    buffer: array [0..1000] of Char;
begin
  if pFIBDataSet6ZNACHENIE.IsNull then Exit;
  ss:=TMemoryStream.Create;
  pFIBDataSet6ZNACHENIE.SaveToStream(ss);
  ss.Position:=0;
  ss.ReadBuffer(buffer,ss.size);
  pFIBDataSet6_BlobPole.AsString:=Copy(buffer,0,ss.size);
  ss.Free;
end;

[artemavd]

Во, вот сейчас уже есть прогресс . Содержимое блоб поля удалось вывести. Только вот вместо текста вывелись знаки ??????????????????????????????????? . Что-то с кодировкой? В базе намально текст отображается.

[Аватар]

В базе utf8 наверно? Можно попробовать приспособить Utf8ToAnsi.

[artemavd]

Не, в базе кодировка WIN1251

[Аватар]

А дельфя какая? И для начала бросил бы содержимое ss в файл, дабы посмотреть что там по факту.

[artemavd]

Delphi XE )

[Аватар]

Не имею таковой и проверить не могу. Для начала попробовал бы buffer как ansichar объявить

[artemavd]

Аватар! Спасибо огромное . Все заработало теперь. Надо просто поставить AnsiChar. Огромное спасибо, здорово помог!