Показать сообщение отдельно
  #5  
Старый 06.03.2011, 11:56
Kapitoshka438 Kapitoshka438 вне форума
Начинающий
 
Регистрация: 09.11.2009
Сообщения: 145
Репутация: 238
По умолчанию

Код:
var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create('Temp.jpg', fmCreate);
  TBlobField(Table.FieldByName('Photo')).SaveToStream(Stream);
  Stream.Free;
  Image1.Picture.LoadFromFile('Temp.jpg');
  DeleteFile('Temp.jpg');
end;
Ответить с цитированием