Скачать: CL | DM;

Как извлечь рисунок jpeg   Найти похожие ветки 

← →
Oleg_teacher ©   (2007-06-04 12:27) [0]

Уважаемые знатоки.
использую БД paradox.
помещаю рисунок в таблицу


var bs:TBlobStream;
begin
Image1.Picture.LoadFromFile("d:\1.jpeg");
if image1.picture.graphic is tjpegimage
then begin
table1.append;
bs:=tblobstream.create(tblobfield(table1.fieldbyname("fpict")),bmwrite);
image1.picture.graphic.savetostream(bs);
bs.free;
table1.post;
end;
end;


внимание вопрос:
как его извлечь или скопировать в  table2...
зарание спасибо.

---

← →
Desdechado ©   (2007-06-04 12:30) [1]

Аналогично, через BlobStraem

---

← →
Oleg_teacher ©   (2007-06-04 12:34) [2]

уважаемий Desdechado ©
а можно кусочек кода плиз...

---

← →
Desdechado ©   (2007-06-04 13:18) [3]

 oS := qryGraf.CreateBlobStream( qryGraf.FieldByName( "PICT_BLOB" ), bmRead );
 try
   if( oS.Size > 0 ) then begin
     case( cExt[ 1 ] ) of
       "B":
         Image1.Picture.Bitmap.LoadFromStream( oS );
       "I":
         Image1.Picture.Icon.LoadFromStream( oS );
       "J":
         begin
           oJPG := TJPEGImage.Create;
           oJPG.LoadFromStream( oS );
           oJPG.DIBNeeded;
           Image1.Picture.Bitmap.Assign( oJPG );
           oJPG.Free;
         end;
       "E", "W":
         Image1.Picture.Metafile.LoadFromStream( oS );
     end; // case

---

← →
oleg_teacher ©   (2007-06-04 13:51) [4]

Desdechado ©
Огромное спасибо.

---

← →
oleg_teacher ©   (2007-06-04 14:42) [5]

еще один вопрос.
в эту же базу помещаеться jpeg и bmp
как разлечить какой формат имеет рисунок

---

← →
Anatoly Podgoretsky ©   (2007-06-04 14:56) [6]

> oleg_teacher  (04.06.2007 14:42:05)  [5]

Руки приложить

---

← →
Val ©   (2007-06-04 14:57) [7]

он в примере по первой букве расширения различает - не понятно или лень разбираться?

---

← →
sniknik ©   (2007-06-04 14:57) [8]

префиксы (первые байты) различаются, проверяй.

---

← →
DVM ©   (2007-06-04 15:14) [9]

вот кое-что на эту тему

http://delphimaster.net/view/3-1180595713/

---

← →
oleg_teacher ©   (2007-06-04 17:42) [10]

> еще один вопрос.в эту же базу помещаеться jpeg и bmpкак
> разлечить какой формат имеет рисунок

Извините просто сначала спросил а потом подумал

---

← →
Цукор5   (2007-06-05 19:10) [11]

2 Desdechado ©   (04.06.07 13:18) [3]
>   case( cExt[ 1 ] ) of

Что есть cExt[ 1 ] ?

---

← →
etc   (2007-06-05 19:13) [12]

> Цукор5   (05.06.07 19:10) [11]

см [7]

---

← →
Цукор5   (2007-06-05 19:45) [13]

2 etc   (05.06.07 19:13) [12]
Это я понимаю. А код ?

---

← →
Krants ©   (2007-06-06 18:12) [14]

Интересная статейка вышла)...


> Цукор5   (05.06.07 19:45) [13]

так устроит?
cExt:=qryGraf.FieldByName( "TIP_BLOB" )...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.015 c