Показать сообщение отдельно
  #2  
Старый 26.11.2011, 05:39
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,105
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Хм...
Я бы попробовал примерно так для начала:

Код:
var
  Stream : TMemoryStream;
begin
  Stream := TMemoryStream.Create(Nil);
  Try
    IntegerList.SaveToStream(Stream);
    Stream.Seek(0,0);
    (DataSet1.BlobField As TBlobField).LoadFromStream(Stream);
  Finally
    Stream.Free;
  End;
end;

var
  Stream : TMemoryStream;
begin
  Stream := TMemoryStream.Create(Nil);
  Try
    (DataSet1.BlobField as TBlobField).SaveToStream(Stream);
    Stream.Seek(0,0);
    IntegerList.LoadFromStream(Stream);
  Finally
    Stream.Free;
  End;
end;

С этим компонентом не пробовал, а вот jpeg'и так делал. Все работало прекрасно.
Ответить с цитированием