[D_S_L]

Здравствуйте!

Подскажите пожалуйста как реализовать хранение изображений в Интербейсе?! Насколько я знаю, это тип BLOB, но у меня нету инфы именно по моему вопросу

Заранее благодарен!

[belik69]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  C: TClipboard;
begin
  C := TClipboard.Create;
  try
    if Clipboard.HasFormat(CF_BITMAP) then
      DBImage1.PasteFromClipboard
    else
      ShowMessage('Буфер обмена не содержит изображения!');
  finally
    C.Free;
  end;
end;

Admin: читаем правила и не забываем использовать тег CODE, иначе санкции!

[mav_c]

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

Здравствуйте!

Подскажите пожалуйста как реализовать хранение изображений в Интербейсе?! Насколько я знаю, это тип BLOB, но у меня нету инфы именно по моему вопросу

Заранее благодарен!

Загружаешь изображение в BitMap и

IBQuery.FieldByName('image').Assign(BitMap);