Как загрузить фото ?

[DimOn4Ik]

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

[artemavd]

Есть несколько вариантов:
1. Хранить изображение прямо в БД. Но, тогда база будет разрастаться до огромных размеров;
2. Хранить в базе путь к изображению, а при необходимости грузить картинку по сохраненному в базе пути;

[DimOn4Ik]

спасибо,не могли бы показать пример не большой? )

[Баламут]

Вообще говоря на этом форуме чего только не обсуждалось... И поиск никто не отменял. Вот, например http://programmersforum.ru/showthread.php?t=75168. Здесь же выкладываю дополнение, для сохранения в БД. Комментарий остается прежним.

var
  jpg: TJPegImage;
  ms: TMemoryStream;
begin
  Datamodule1.StaffQuery.Edit;
  Datamodule1.StaffQueryidCompany.Value := Datamodule1.CompanyQueryid.Value;

  if PicModifyed then
  begin
    jpg := TJpegImage.Create;
    jpg.Assign(Image1.Picture.Graphic);
    jpg.CompressionQuality := 20;
    jpg.Compress;
    ms := TMemoryStream.Create;
    jpg.SaveToStream(ms);
    Datamodule1.StaffQueryPhoto.LoadFromStream(ms);
    jpg.Free;
    ms.Free;
  end;
  Datamodule1.StaffQuery.Post;
  Close;
end;

[DimOn4Ik]

Баламут,спасибо!