[jekahm]

Доброго времени суток!
Дали задание автоматизировать библиотеку института. При выполнении задания столкнулся с проблемой. Я создал в MS SQL 2008 таблицу посетителей библиотеки, одному из полей таблицы присвоил тип Image (для хранения фотографии).
Подскажите, как теперь туда закидывать изображения? И как (уже при использовании программы), выбирая одну из строк в Grid'e, у меня (например, используя компонент Image) выводилась фотография читателя?
Заранее благодрен!

[lmikle]

я использовал тип BLOB для хранения картинок.
Загрузка выполняется путем вызова методов LoadFromFile/LoadFromStream у поля.
В TImage потом загружается "руками" опять же через SaveToStream.

Почему использовал BLOB - что бы хранить в БД картинки в виде JPEG, т.к. если пользоваться стандартным компонентом TImage, то дельфи норовит хранить их как Bitmap.

[jekahm]

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

я использовал тип BLOB для хранения картинок.
Загрузка выполняется путем вызова методов LoadFromFile/LoadFromStream у поля.
В TImage потом загружается "руками" опять же через SaveToStream.

Почему использовал BLOB - что бы хранить в БД картинки в виде JPEG, т.к. если пользоваться стандартным компонентом TImage, то дельфи норовит хранить их как Bitmap.

lmikle, если Вас не затруднит, не могли бы Вы написать код, как это надо реализовать...так как с потоками не работал! Буду очень признателен!

[Страдалецъ]

Ну вот так я писал как-то в блоб на MSSQL:

Код:

 TBlobField(AdoQuery1.FieldByName('Photo')).LoadFromFile(OpenDialog1.Files.Strings[i]);

[Kapitoshka438]

Код:

var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create('Temp.jpg', fmCreate);
  TBlobField(Table.FieldByName('Photo')).SaveToStream(Stream);
  Stream.Free;
  Image1.Picture.LoadFromFile('Temp.jpg');
  DeleteFile('Temp.jpg');
end;

[jekahm]

А класс TBlobField в коде необходимо определять (TBlobField = class(TField))?

[Страдалецъ]

Нет, это уже предопределенный класс со своими методами в DB.

[jekahm]

Ни один из предложенных методов решения этой проблемы не помогает!
Если я использую то, что предложил Страдалецъ, то вылетает ошибка "List index out of bounds..."
Если использую то, что предложил Kapitoshka438, то ошибка не вылетает, но в то же время записи изображения в таблицу не происходит!
Даже не знаю, что и делать...

[Assistant]

дык ты измени то что предложил Страдалецъ, например вот так:

Код:

TBlobField(AdoQuery1.FieldByName('Photo')).LoadFromFile(OpenDialog1.FileName);

если нужно один файл записать
P.S. в его способе записывается несколько выбранных файлов в цикле i

[jekahm]

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

дык ты измени то что предложил Страдалецъ, например вот так:

Код:

TBlobField(AdoQuery1.FieldByName('Photo')).LoadFromFile(OpenDialog1.FileName);

если нужно один файл записать
P.S. в его способе записывается несколько выбранных файлов в цикле i

Всё равно выдаётся ошибка "Синтаксическая ошибка в имени файла..."

Кстати, попробовал немного иначе сделать:

Код:

var MS : TFileStream;
i: Integer;
begin
MS := TFileStream.Create('D:\1\1.bmp',fmOpenReadWrite);
with ADOQuery1 do try
SQL.Text := 'Insert Into temptable (photo) Values (:pmphoto)';
Parameters.ParamByName('pmphoto').LoadFromStream(MS, ftBlob);
ExecSQL;
finally
MS.Free;
end;
end;

Проверяю в MS SQL - файл записывается...но почему-то Grid в программе очищается.

[Assistant]

а грид привязан к ADOQuery1?

[jekahm]

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

а грид привязан к ADOQuery1?

Конечно, Grid к DataSourse...DataSourse к AdoQuery...
Я добавляю изображение в таблицу при нажатии кнопки...так что изначально все данные в Grid'e есть..но после нажатия исчезают!

[Assistant]

Код:

with ADOQuery1 do try
SQL.Text := 'Insert Into temptable (photo) Values (:pmphoto)';

так ты же сам очищаешь главный запрос в AdoQuery1, поэтому Grid и становится пустым, делай INSERT например в AdoQuery2, а потом обновляй AdoQuery1 (через Refresh или Close->Open)

[Kapitoshka438]

Если использую то, что предложил Kapitoshka438, то ошибка не вылетает, но в то же время записи изображения в таблицу не происходит!

Это был ответ на второй вопрос. Его надо вставить в обработчик события DoAfterScroll твоего датасета.

Вот ответ на первый вопрос:

Код:

var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  Image1.Picture.Graphic.SaveToStream(Stream);
  TBlobField(Table.FieldByName('Photo')).LoadFromStream(Stream);
  Stream.Free;
end;

[jekahm]

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

Это был ответ на второй вопрос. Его надо вставить в обработчик события DoAfterScroll твоего датасета.

Вот ответ на первый вопрос:

Код:

var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  Image1.Picture.Graphic.SaveToStream(Stream);
  TBlobField(Table.FieldByName('Photo')).LoadFromStream(Stream);
  Stream.Free;
end;

Спасибо, Kapitoshka438! Изображение добаляется, но не при первом нажатии кнопки (которая добавляет изображение в таблицу).

При работе с событием AfterScroll почему-то вообще ничего не происходит!

Также попытался вывести изображение (но уже в другой Image) с помощью

Код:

Image2.Picture.Graphic.LoadFromStream(Stream);

из потока, который использовал при добавлении изображения, но все равно ничего не происходит!