BLOB+Mysql+DbExpress

[Квэнди]

Все, мозг, что называется съеден...
Объясню:
есть задача через Dbexpress в Mysql базе добавить запись, в которой учавствует BLOB в качестве собственно картинки...
давайте сначала... как это сделать ?
если есть пример, то было бы вообще замечательно...
просто через Dbexpress с этим никогда не сталкивался, и как выяснилось это крайне проблематично

[Квэнди]

С этим вобщем я разобрался, все замечательно.
Задача собственно другая теперь...
Выбрать картинку из базы в файл...
делаю так:

var
f:file;
stream:tstream;
image:timage;
begin
  assignfile(f,'temp.jpg');
  rewrite(f);
  fproc.q1.Active:=false;
  fproc.q1.SQL.Clear;
  fproc.q1.SQL.Add('select sepcimage from Jurup where Idup='+up.id );
  fproc.q1.Active:=true;
stream:=fproc.q1.CreateBlobStream(fproc.q1.FieldByName('sepcimage'),bmread);
  image:=timage.Create(nil);
  image.Picture.Bitmap.LoadFromStream(stream);
  image.Picture.SaveToFile('temp.jpg');
  fproc.q1.Active:=false;

ошибка возникает здесь:
image.Picture.Bitmap.LoadFromStream (stream);
мол неверный bitmap
в поле хранится картинка в формате jpeg , проверил клиентом MySql поле читается корректно
как же быть ?

[delphin_max]

Я как-то писал что-то подобное ..вот

procedure TForm42.load_pics();
var
blob:TStream;
begin
if not Data1.Table9.Locate('id',sLabel1.Caption,[loCaseInsensitive]) then
begin
Werror(Getstt(1245));
abort;
end;
 if Data1.Table9.FieldValues['photo']<>NULL then
  begin
blob := Data1.Table9.CreateBlobStream(Data1.Table9.FieldByName('photo'), bmRead);
try
blob.Seek(0, soFromBeginning);
with TFileStream.Create(ExtractFilePath(paramstr(0))+'Temp\outphoto.bmp', fmCreate) do
try
CopyFrom(blob, blob.Size)
finally
Free
end;
finally
blob.Free
 end;
Image1.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'Temp\outphoto.bmp');
  sBitBtn2.Enabled:=true;
 end else Image1.Picture:=nil;
 end;

может поможет

[mihali4]

Вот что нашел:

Как поместить картинку из базы данных, например MsSQL, в компонент TIMAGE ?
1) Предполагается, что поле blob (например, pict)
2) в запросе query.sql пишется что-то вроде
'select pict from sometable where somefield=somevalue'
3) запрос открывается
4) делается "присваивание":
image1.picture.assing(tblobfield(qu ery.fieldbyname('pict'))
или, если известно, что эта картинка - bitmap, то можно
image1.picture.bitmap.assing(tblobf ield(query.fieldbyname('pict'))

А можно воспользоваться компонентом tdbimage.