Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Вниз

Извлечение 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.061 c