Форум: "Базы";
Текущий архив: 2007.10.14;
Скачать: [xml.tar.bz2];
Вниз
Как извлечь рисунок 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 вся ветка
Форум: "Базы";
Текущий архив: 2007.10.14;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.05 c
