Форум: "Базы";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];

Вниз

Картинки в БД   Найти похожие ветки 

← →
AlexXn   (2004-06-15 10:39) [0]

Есть база данных, а в ней есть поле типа BLOB, куда складываются картинки различных форматов(jpg, bmp, wmf...).База не моя. Как достать оттуда картинку? Т.е. как достать определенного формата я знаю, а вот как определить какой формат?

---

← →
sniknik ©   (2004-06-15 10:54) [1]

по заголовку (префиксу) в начале файла.

---

← →
AlexXn   (2004-06-15 10:56) [2]

А где енто прочитать можно, о префиксах то?

---

← →
sniknik ©   (2004-06-15 11:05) [3]

в любом справочнике/книге описывающей какойто конкретный формат, только см. не общие сведения а где структура описывается.
а можеш просто сравнить свои файлы открыв в hexредакторе.

---

← →
AlexXn   (2004-06-15 11:06) [4]

ОК. Thanks

---

← →
AlexXn   (2004-06-15 11:12) [5]

А может кто линки подкинет?

---

← →
Romkin ©   (2004-06-15 11:22) [6]


function GetStreamImgType(Stream: TStream): TClass;
var
 StreamPos: int64;
 ImgSign: string;
begin
 StreamPos := Stream.Position;
 try
   //BMP если не определено
   Result := Graphics.TBitmap;
   //JPEG
   SetLength(ImgSign, 4);
   Stream.Seek(6, soFromCurrent);
   Stream.Read(ImgSign[1],4);
   if (UpperCase(ImgSign) = "JFIF") or (UpperCase(ImgSign) = "EXIF") then
     Result := Jpeg.TJPEGImage;
   //WMF
   Stream.Position := StreamPos;
   SetLength(ImgSign, 4);
   Stream.Read(ImgSign[1],4);
   if ImgSign = #$D7#$CD#$C6#$9A then
     Result := Graphics.TMetafile;
 finally
   Stream.Position := StreamPos;
 end;
end;
Примечание: у bmp первые символы BM должны быть

---

← →
Davids   (2004-06-15 19:10) [7]

А как их собственно их оттуда доставать ????

---

← →
Davids   (2004-06-15 19:23) [8]

У меня база есть а там фотки не тока этих форматов и не знаю как их достать....база на фоксе.....

---

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

Форум: "Базы";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];

Наверх

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