| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как извлечь рисунок jpeg [Paradox]
Oleg_teacher © (2007-06-04 12:27:00)
Уважаемые знатоки.
использую БД 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...
зарание спасибо.
Krants (2007-06-06 18:12:00) [1]Интересная статейка вышла)...
> Цукор5 (05.06.07 19:45) [13]
так устроит?
cExt:=qryGraf.FieldByName( 'TIP_BLOB' )...
Цукор5 (2007-06-05 19:45:00) [2]2 etc (05.06.07 19:13) [12]
Это я понимаю. А код ?
etc (2007-06-05 19:13:00) [3]
> Цукор5 (05.06.07 19:10) [11]
см [7]
Цукор5 (2007-06-05 19:10:00) [4]2 Desdechado © (04.06.07 13:18) [3]
> case( cExt[ 1 ] ) of
Что есть cExt[ 1 ] ?
oleg_teacher (2007-06-04 17:42:00) [5]
> еще один вопрос.в эту же базу помещаеться jpeg и bmpкак
> разлечить какой формат имеет рисунок
Извините просто сначала спросил а потом подумал
DVM (2007-06-04 15:14:00) [6]вот кое-что на эту тему
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1180595713&n=1
Val (2007-06-04 14:57:00) [7]он в примере по первой букве расширения различает - не понятно или лень разбираться?
sniknik (2007-06-04 14:57:00) [8]префиксы (первые байты) различаются, проверяй.
Anatoly Podgoretsky (2007-06-04 14:56:00) [9]> oleg_teacher (04.06.2007 14:42:05) [5]
Руки приложить
oleg_teacher (2007-06-04 14:42:00) [10]еще один вопрос.
в эту же базу помещаеться jpeg и bmp
как разлечить какой формат имеет рисунок
oleg_teacher (2007-06-04 13:51:00) [11]Desdechado ©
Огромное спасибо.
Desdechado (2007-06-04 13:18:00) [12]
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 12:34:00) [13]уважаемий Desdechado ©
а можно кусочек кода плиз...
Desdechado (2007-06-04 12:30:00) [14]Аналогично, через BlobStraem
| |
