ФОТО из Delphi в БД MySQL

[mihali4]

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

Всем большое спасибо за помощь! Сохранять получилось! Вот вопрос теперь в том, как фото отобразить в DBImage, ведь фото сохранено в поле типа Blob?????????
Зарание спасибо!

А в чем проблема-то?
Подцепляем DBImage на это поле и все...

[chekanoff]

Проблема в том, что при подцеплении DBImage на это поле, после запуска выдается ошибка типа "Bitmap image is not valid"

[mihali4]

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

Проблема в том, что при подцеплении DBImage на это поле, после запуска выдается ошибка типа "Bitmap image is not valid"

А вы поиграйте со свойствами поля. Кстати, у меня поля были определены явно...

[Domovoy]

Это делается так

var
  jp:TJPEGImage;
begin
  jp:=TJPEGImage.Create;
  jp.LoadFromStream(TStringStream.Create(ADOQuery2.FieldByName('pictureanketa').AsString));
  Image1.Picture.Assign(jp);
  jp.free; 
end;

И не забываем по uses jpeg.

[chekanoff]

Domovoy, большое спасибо! "pictureanketa" - это поле с картинками??? Я правильно понял? Только я использую не ADOQuery, а SQLQuery!!! И при этом выбивает ошибку, что нет такого поля (мое имя поля "FOTO")!

[dron-s]

а у тебя поле определено?
дважды ткни на компоненте и выбири, нажми правой кнопкой мышки и выбири Add fields...

[chekanoff]

Пытаюсь добавить! Add fields...результат "Invalid parametr"! Что посоветуете?

[dron-s]

проверяй правильность подключения кверика к таблице ну и проверь чтобы у тебя было соединение...

[Domovoy]

У тебя должен быть такой код:

var
  jp:TJPEGImage;
begin
  jp:=TJPEGImage.Create;
  jp.LoadFromStream(TStringStream.Create(SQLQuery.FieldByName('FOTO').AsString));
  Image1.Picture.Assign(jp);
  jp.free; 
end;

[chekanoff]

Я такой код и писал!!! Именно с этим кодом и пишет, что поля FOTO-нет! А при попытке объявить поле явно матюк типа - Invalid parametr!!!!