06.03.2011, 11:56
|
Начинающий
|
|
Регистрация: 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;
|