[Axotnik]

Добрый день уважаймые..у меня такой вопросс---как занести картинку в базу данных в блоб-поле через параметризованный запросс.Вот пример кода.Когда я захожу в интербейс.Подключаю свою базу и проверяю блоб поле--мне видаеть ошибка --ето не графический файл..Что делать .Помогите пожалуста..

Код:

 DM.IBQuery2.SQL.Clear;
DM.IBQuery2.SQL.Text:='insert into IMAGES(ID_IMAGES,NAME_1,NAME_2,NAME_3,IMG_1,IMG_2,IMG_3) values(:id,:a,:b,:c,:d,:e,:g);';
DM.IBQuery2.Params[0].AsInteger:=strtoint(edit1.text);
DM.IBQuery2.Params[1].AsString:=edit28.Text;
DM.IBQuery2.Params[2].AsString:=edit29.Text;
DM.IBQuery2.Params[3].AsString:=edit30.Text;
DM.IBQuery2.Params[4].AsBlob:=OpenPictureDialog1.FileName;
DM.IBQuery2.Params[5].AsBlob:=OpenPictureDialog2.FileName;
DM.IBQuery2.Params[6].AsBlob:=OpenPictureDialog3.FileName;
DM.IBTransaction1.Commit;
DM.IBQuery2.ExecSQL;

Admin: Не забываем использовать теги для оформления кода!

[san-46]

Судя по приведеному коду в BLOB записываются имена файлов, а не сами изображения.
Не зная деталей могу только обрисовать схему как я записываю картинки в блоб.

переменная типа TPicture,
- создается: Pct := TPicture.Create;
- в нее загружается изображение из файла:
Pct.LoadFromFile(OpenPictureDialog1.FileName);
Далее можно картинку сохранить в TMemoryStream (кстати, ее вообще можно загрузить и без TPicture: MemStream.LoadFromFile(OpenPictureDialog1.FileName )).
"Передвинуть" битовый образ картинки в String (проще будет передавать как параметр) и записать в базу.
Move(S[1], MemStream.Buffer, MemStream.Size);
DM.IBQuery2.Params[4].AsBlob:= S; //S : string;

Для работы с блоб полями можно воспользоваться специальным потоком для записи в блоб (и последующего чтения):
S := TBlobStream.Create(<FieldBlob1>, bmReadWrite)];

[Axotnik]

по подробнее можна...

[san-46]

Что конкретно "подробнее"?

[Axotnik]

как ето реализовать..если можна то код...

[Axotnik]

вроде как работает:Всем большое пасибо
Stream1 := TMemoryStream.Create;
Stream1.Clear;
DBImage1.Picture.Bitmap.SaveToStream(Stream1);
Stream1.Position := 0;
for i := 1 to Stream1.Size do
begin
Stream1.Read(d, 1);
im := im+d;

end;

DM.IBQuery6.Params[4].AsBlob:=im;

[san-46]

Пример на одном файле с картинкой.

Код:

procedure AnyProc;
var 
  MemStream : TMemStream;
  S : String;
begin
  //открыть диалог и выбрать файл (без понятия как вы там эти картинки 
  //выбираете для записи в базу
  if not OpenPictureDialog1.Execute then Exit;
  MemStream := TMemStream.Create;
  try
    MemStream.LoadFromFile(OpenPictureDialog1.FileName));
    SetLength(S, MemStream.Size);
    Move(S[1], MemStream.Buffer, MemStream.Size);
    DM.IBQuery2.Params[4].AsBlob:= S;
  finally
    MemStream.Free
  end;
end;

[lmikle]

А можно еще проще.

Код:

Stream := TMemoryStream.Create;
Try
  DBImage1.Picture.Bitmap.SaveToStream(Stream);
  Stream.Seek(0,0);
  DM.IBQuery6.Params[4].AsBlob.LoadFromStream(Stream);
Finally
  Stream.Free;
End;

[san-46]

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

Stream1.Position := 0;
for i := 1 to Stream1.Size do begin
Stream1.Read(d, 1);
im := im+d;
end;

А если файл 5-100 Мб? Скока он будет читаться в "im" по одному байту? Не профессионально.

У lmikle профессиональный вариант.

[Axotnik]

извините но такого свойства как DM.IBQuery6.Params[4].AsBlob.LoadFromStream(Stream);
в делфи нету

[Axotnik]

а как записать большой текст из мемо в blob???

[san-46]

Да, действительно "AsBlob" определен как String и там не может быть декларированных свойств. Надо использовать String для образа картинки и передавать блоб полю. Как в моем посте выше.

[san-46]

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

а как записать большой текст из мемо в blob???

DM.IBQuery2.Params[4].AsBlob := Memo1.Text;
BLOB в БД должен быть определен как "подтип 1" - строка.
Впрочем, для текста это не очень существенно, но тем не менее...

Читаются из BLOB такие строки так:
S := DM.IBQuery2.FieldByName('SOMEFIELD').AsString;
Где "S" может быть и Memo1.Text;

[Axotnik]

Извини САН-46 а что это за тип такой
MemStream : TMemStream;

[san-46]

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

а что это за тип такой
MemStream : TMemStream;

Прошу извинить. Конечно, надо TMemoryStream. Увлекся и не заметил, что опечатался.