Текущий архив: 2006.04.02;
Скачать: CL | DM;
Вниз
Извлечение Jpeg из таблицы в Image Найти похожие ветки
← →
RomanH © (2006-03-17 15:50) [0]Здраствуйте мастера,очень приятно что кто-то из Вас уделяет внимание новичкам.
Как загрузить jpg в таблицу я разобрался
TBlobField(DogovorsForm.CDSDogovors.FieldByName("DScan")).LoadFromFile(Fname);
Теперь не могу понять смысл как данные из BLOB перенести куда-нибудь,например ранее сохраненный jpg файл в Image
я делаю так,но происходит ошибка даже код ошибки не выводится
procedure TDogovorsForm.BitBtn5Click(Sender: TObject);
var s:TStream;
begin
s:= CDSDogovors.CreateBlobStream(CDSDogovors.FieldByName("DScan"),bmRead);
Image1.Picture.Graphic.LoadFromStream(s);
end;
← →
Ega23 © (2006-03-17 16:07) [1]
var
ms:TMemoryStream;
begin
ms:=TMemoryStream.Create;
try
TBLOBField(DataSet.FieldByName("MyBlobField")).SaveToStream(ms);
ms.Position:=0;
Image1.Picture.Graphic.LoadFromStream(s);
finally
ms.Free;
end;
end;
← →
Ega23 © (2006-03-17 16:08) [2]
> LoadFromStream(s);
Конечно, LoadFromStream(ms);
← →
RomanH © (2006-03-17 16:50) [3]Извените за назойливость,но ошибка опять появляется на строке
Image1.Picture.Graphic.LoadFromStream(ms);
Не знаю что делать.Подскажите пожайлусто.
← →
Ega23 © (2006-03-17 16:55) [4]У тебя это JPEG?
Тогда так:
var
ms:TMemoryStream;
jpg:TJPEGImage;
begin
ms:=TMemoryStream.Create;
jpg:=-TJPEGImage.Create;
try
TBLOBField(DataSet.FieldByName("MyBlobField")).SaveToStream(ms);
ms.Position:=0;
jpg.LoadFromStream(ms);
Image1.Picture.Assign(jpg);
finally
jpg.Free;
ms.Free;
end;
end;
← →
Ega23 © (2006-03-17 16:55) [5]
> jpg:=-TJPEGImage.Create;
Минус - лишний... :о)
← →
RomanH © (2006-03-17 17:10) [6]Уважаемый Олег Вячеславович(Ega23) огромное Вам Спасибо.За ваш подробный код.
Страницы: 1 вся ветка
Текущий архив: 2006.04.02;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.041 c
