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

[phomm]

Нет нужды в цикле, читаем справку по HexToBin внимательно !
вполне достаточно 1 строки кода, и лишний поток тоже не нужен.

HexToBin(PAnsiChar(str), PAnsiChar(Arr), Length(Arr));

запись в поток (который зачем-то как вар параметр передаётся, лучше конечно const) надо делать примерно так, и тоже без цикла:

stre.Write(Pointer(Arr), Length(Arr));

[spamer]

Так а что конкретно не получается?
Вот тут ( url ) есть пример работы с изображениями...Правда там доступ к БД идет через посторонний провайдер, но смысл остается тот же...
Насколько я понял, ты с БД работаешь через стандартные компоненты в Delphi?

[{Shadowevil}]

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

Так а что конкретно не получается?
Вот тут ( url ) есть пример работы с изображениями...Правда там доступ к БД идет через посторонний провайдер, но смысл остается тот же...
Насколько я понял, ты с БД работаешь через стандартные компоненты в Delphi?

Нет, используются не стандартные компоненты)
Проблему решил, всем, кто пытался помочь, спасибо

Решил следующим образом:

//Это накопал в инете
Type
 TMyMemoryStream = class(TMemoryStream)
  public
    procedure SetMemPointer(Ptr: Pointer; Size: Longint);
  end;

.............
//Ваш код
.............

//Это тоже накопал в инете
procedure TMyMemoryStream.SetMemPointer(Ptr: Pointer; Size: Integer);
begin
  SetPointer(Ptr, Size);
end;

............
//Какой то Ваш код
............

//Это моя процедура по преобразованию
Procedure TFrmMain.HexToBMP(Str: String; var img: TBitMap);
var
  i, j, Len: integer;
  Arr : array of Byte;
  Stream: TMyMemoryStream;
  s: String;
  jpg: TJPEGImage;
begin
 s:=Copy(Str, 1, 4);
 Stream:=TMyMemoryStream.Create;
 Len := Length(Str) div 2 - 2;
 SetLength(Arr, Len);

 i:=1;
 while i<Len do
 begin
  j:=StrToInt('$'+Str[(i*2)-1]+Str[i*2]);
  Arr[i-1]:=j;
  i:=i+1;
 end;
 Stream.SetMemPointer(Pointer(Arr), Len);
 img:=TBitMap.Create;
 if s='ffd8' then
 begin
  jpg:=TJPEGImage.Create;
  jpg.LoadFromStream(Stream);
  img.Assign(jpg);
 end else
  img.LoadFromStream(Stream);

 FreeAndNil(Stream);
end;

В чем суть: Мы передаем один аргумент Str - это Hex строка из БД (или еще откуда-нибудь), по 2 бита преобразовываем её в байтовый массив, потом загоняем его в поток и уже оттуда грузим.
Второй аргумент Img - выходящее изображение.

Когда пытался сделать на выходе поток - столкнулся с проблемой невозможности передачи потока между модулями.

Пример использования:

procedure TFrmMain.Button1Click(Sender: TObject);
var
  img: TBitmap;
begin
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('SELECT data FROM table WHERE id='+id);
  ZQuery1.Open;

  StrToBMP(ZQuery1.FieldByName('data').AsString, img);
  Image2.Picture.Assign(img);

  FreeAndNil(img);
end;

Может кому-нибудь понадобится