Загрузка изображения из БД

[{Shadowevil}]

Всем привет! Столкнулся с такой проблемой:

Имеется БД, в ней имеется таблица для хранения изображений, в таблице имеется поле Data, в которое я загружаю изображения в 16-тиричной системе, т.е. по сути изображение хранимое в БД выглядит примерно так

424daea704000000000036000000280000001c01000066010000010018000000000000000000732
60000732600000000000000000000ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
fffffffffffffffffffffffffffffffffffffffffefefe......

Вопрос вот какой, как загрузить это изображение в TImage?
Тобишь перевести из 16-тиричной системы в готовый BitMap


Может кто сталкивался с таким, подскажите пожалуйста?

[Sciv]

Использовать DBImage пробовали?

[spamer]

Читаешь из БД массив байт.
Пишешь этот массив в MemoryStream.
Загружаешь данные в Bitmap из выше созданного MemoryStream.
Пишешь что-то наподобие этого: Image1.Picture.Assign(tmpBitmap);

[artemavd]

А зачем хранить картинку именно в 16-ти ричной системе?

[{Shadowevil}]

Сообщение от Sciv

Использовать DBImage пробовали?

нет, не пробовал. DBImage преобразует байтовое значение в битпам?

Сообщение от spamer

Читаешь из БД массив байт.
Пишешь этот массив в MemoryStream.
Загружаешь данные в Bitmap из выше созданного MemoryStream.
Пишешь что-то наподобие этого: Image1.Picture.Assign(tmpBitmap);

Спасибо, конечно, но алгоритм я примерно представляю, а вот как записать этот алгоритм в виде кода - не очень

Сообщение от artemavd

А зачем хранить картинку именно в 16-ти ричной системе?

Так уж сложилось, что картинки, загружаемые на сервер perl-скриптом преобразуются в байтовое значение, после чего собирается БД SQLite и отправляется на рабочую машину пользователя, поэтому чтобы не отправлять сами изображения, другого выхода пока не придумал.

Да и зачем переделывать, когда осталось доделать всего чуть-чуть

[Sciv]

DBImage просто связывается с полем БД, хранящим картинку, и при позиционировании курсора на записи берет из данного поля данной записи значение. Как и любой DBDataControls-компонент

[{Shadowevil}]

Сообщение от Sciv

DBImage просто связывается с полем БД, хранящим картинку, и при позиционировании курсора на записи берет из данного поля данной записи значение. Как и любой DBDataControls-компонент

Нет, мне это точно не подходит. У меня нет DBGrid'a или что-то подобного.

У меня есть Query, который берет необходимое поле из БД и записывает данные в динамический массив, после чего связь с БД закрывается.
В это же время включается таймер, в котором собственно и должны преобразовываться полученные значения из массива в изображение. Как то так

[Аватар]

Если картинка уже прочитана из базы, например в MemoryStream, то последовательно каждые 2 байта с помощью HexToBin преобразуем в байт и пишем в другой MemoryStream, из которого по концу преобразования загружаем в Image

[{Shadowevil}]

Сообщение от Аватар

Если картинка уже прочитана из базы, например в MemoryStream, то последовательно каждые 2 байта с помощью HexToBin преобразуем в байт и пишем в другой MemoryStream, из которого по концу преобразования загружаем в Image

у меня есть вот такая процедура:

Procedure TFrmMain.StrToBMP(Str: String; var stre: TMemoryStream);
var
  i, j, Len: integer;
  Stream: TMemoryStream;
  Arr : array of Byte;
  s: string;
begin

 Stream:=TMemoryStream.Create;
 Len := Length(Str) div 2 ;
 SetLength(Arr, Len);

 Stream.Position:=0;
 i:=1;
 while i<Len do
 begin
  Arr[i]:=HexToBin(PAnsiChar('$'+Str[(i*2)-1]+Str[i*2]), PAnsiChar(Arr), Length(Arr));
  i:=i+1;
 end;
for j:=1 to Length(Arr) do
 stre.WriteBuffer(PAnsiChar(Arr), Length(Arr));


 Stream.Free;
end;

Str - это Hex-строка из БД
stre - выходящий поток

Вызываю её вот так:

Stream:=TMemoryStream.Create;

 .....

   FrmMain.StrToBMP(ZQuery1.FieldByName('data').AsString, Stream);

   Image2.Picture.Bitmap.LoadFromStream(Stream);

 .....

Знаю что не правильно, но как правильно сделать не знаю мозг уже плавится

[Sciv]

Ну как вариант - выводить массив байт во временный файл типа file of byte а затем загружать через Image.LoadFromFile (точное название процедуры не помню, но она есть