[vladimirse]

Доброго времени суток!
Подскажите пожалуйста, как осуществить хранение изображений в mysql, соответственно при помощи Delphi. Если можно ссылочку на доки, желательно с использование Zeos.
Спасибо!

[lmikle]

Не знаю, как там в Зеос, скорее всего также, обычно изображения храняться как BLOB поля. У TBLOBField есть методы SavtToFile/Stream и LoadFromFile/Stream.

[caHek-2x]

хм может я ошибаюсь ... но в mysql ты не можешь хранить изображение .. там можно хранить например путь где лежит изображение ...

[M.A.D.M.A.N.]

Сообщение от caHek-2x

хм может я ошибаюсь ... но в mysql ты не можешь хранить изображение .. там можно хранить например путь где лежит изображение ...

В блобе же можно.

[caHek-2x]

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

[vladimirse]

В общем с загрузкой вроде бы разобрался, создал поле blob, а саму загрузку реализовал через opendialog

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  filedata: TFileStream;
begin
  if OpenDialog1.Execute then begin
     filedata:= TFileStream.Create(OpenDialog1.Filename, fmOpenRead);
     ZTable1.Open;
     ZTable1.Insert;
     ZTable1.FieldByName('des').Text:=ExtractFileName(OpenDialog1.FileName);
     TBlobField(ZTable1.FieldByName('pic')).LoadFromStream(filedata);
     ZTable1.Post;
     filedata.Free;
  end;
end; 

Вот теперь не могу понять как можно вывести изображения из базы в TDBimage при выделении их в TDBGrid.

[vladimirse]

В общем сделал так, но пока только в formcreate, не могу догнать как заюзать выбор в tbgrid:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
   blob: TStream;
begin
{connect}
ZConnection1.Connect;
ZTable1.Open;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
{/connect}

blob:=ZTable1.CreateBlobStream(ZTable1.FieldByName('pic'), bmRead);
DBImage1.Picture.Jpeg.LoadFromStream(blob);
blob.Free;

end;