Paradox foto

[korzhik]

как с базы(парадокс) передть фото  в компонент   image. Можно кусочек код ?
Заранее спс

[McZim]

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

[zubr]

Код:

Image1.Picture.Assign(TBlobField(Query1.FieldByName('Foto')));

[korzhik]

Код:

Image1.Picture.Assign(TBlobField(Query1.FieldByName('Foto')));

если не понятен вопрос зачем отписываться? ну пропусти вопрос ничего.

zubr спс.
Нашел вот такой пример если кому нужно:

  ms:TMemoryStream;// Поток для чтения BLOB из базы
  bmpImg:TPicture; // Объект для картинки в битмаповском формате
  jpgImg:TJPEGImage;// Объект для картинки в JPEG формате


ms:=TMemoryStream.Create;
        TBlobField(dm.Table1.FieldByName('Foto')).SaveToStream(ms); // Приводим поле к типу блоб и считываем в поток
        // Создаём картинки в памяти
        bmpImg:=TPicture.Create;
        jpgImg:=TJPEGImage.Create;
        try
        ms.Seek(0,soBeginning); // Устанавливаем позицию потока на начало
        bmpImg.Bitmap.LoadFromStream(ms); // Пытаемся создать картинку в битмап формате
        image1.Picture.Assign(bmpImg.Bitmap); // Отображаем
        except
        on E:Exception do // УУПС возможно это была JPEG картинка
        begin
        ms.Seek(0,soBeginning); // Устанавливаем позицию потока на начало
        jpgImg.LoadFromStream(ms); // Пытаемся создать картику в JPEG формате
        image1.Picture.Bitmap.Assign(jpgImg); // Отображаем
        end;
        end;
        // Очищаем память
        ms.Clear;
        ms.Free;
        bmpImg.Free;
        jpgImg.Free;

[zubr]

Поток здесь лишнее.
Вот сделай так:

Код:

If TBlobField(Table1.FieldByName('Foto')).BlobSize>0 then //проверяем не пустое ли поле
begin
  jpg:=TJpegImage.Create;
  try
   jpg.Assign(TBlobField(Table1.FieldByName('Foto')));
   Image1.Picture.Assign(jpg);
  finally
   jpg.Free;
  end;
end;

[korzhik]

zubr !!!
1. как можно с компоненты image значение picture передать в значение filename компоненты OpenpictureDialog?
2. и как можно сохранить с компоненты image  в базу парадокс(блоб файл)?

[zubr]

1. Image1.Picture.SaveToFile(OpenDialog1.FileName);
2.

Код:

Table1.Edit;
jpg:=TJpegImage.Create;
   try
    jpg.Assign(Image1.Picture.Graphic);
    TBlobField(Table1.FieldByName('Foto')).Assign(jpg);
   finally
    jpg.Free;
   end;
Table1.Post;