Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Из Memo в BLOB

Автор: TwisT_X 23.2.2010, 23:13

Объясните пожалуйста подробно (не могу понять) как из memo в BLOB поле поместить текст... Работаю с IB 7 и Delphi 7...

Структура поля: 'MEMO' BLOB SUB_TYPE 1

Заранее спасибо..

Автор: Данкинг 24.2.2010, 01:21

Не совсем в тему, но вдруг поможет:

Код


procedure FileToBlob(BlobField: TField; FileName: string);
var S : TStream;
    FileS : TFileStream;
begin
  S:=BlobField.DataSet.CreateBlobStream(BlobField, bmReadWrite);
  FileS:=TFileStream.Create(FileName, fmOpenRead);
  try
    S.CopyFrom(FileS, FileS.Size);
  finally
    FileS.Free;
    S.Free;
  end;
end;

Использование:

Код


IB2.Append;
FileToBlob(form1.IB2.FieldByName('POLE'),'file.txt');
IB2.Post;

Автор: Frees 24.2.2010, 08:28

TwisT_X, TDBMemo не подойдет?