Ошибка

← →
atikiN (2002-08-14 11:25) [0]

Напишите плз что значит эта ошибка.Как с ней бороться, а то я
начинаюший и знаю пока не все ошибки.
А если можно, то напишите ссылку, где есть справочник по ошибкам в
Delphi5 or delphi6.
Project ***.exe raised exeption class EOleError with message
"Variant does not reference an automation object".Process stoped.
Use Step or run to continue.

← →
Mike Kouzmine (2002-08-14 11:44) [1]

А что ты делаешь?

← →
Димон1 (2002-08-14 12:08) [2]

примерно так:

Project ***.exe raised exeption
- проект ***.exe возбудил исключение

class EOleError with message
- класса EOleError(ОшибкаOLE) с сообщением

"Variant does not reference an
-"Вариант не ссылается на

automation object".Process stoped.
-объект автоматизации". Процесс остановлен.

Use Step or run to continue.
-Используй Step(шаг) или Run(запуск) для продолжения

OLE- Object linking and embeding - связывание и встраивание объектов

Покажи исходники будет понятнее

← →
atikiN (2002-08-15 13:32) [3]

Я пытался внести картинку в БД. Исходник у меня дома, а я в клубе.Может потскажите как занести с помощью OpenPictureDialog или OpenDialog. Лучше с примером(или где отыскать информ. про это).

← →
SaS13 (2002-08-15 13:39) [4]

atikiN (15.08.02 13:32)
А чего за БД? Если поддерживает Блоб-поля, то используй блоб и stream для записи и считывания картинки в БД.

← →
atikiN (2002-08-15 13:59) [5]

SaS13 если не трудно напиши пример.БД-Paradox.И спасибо что взялся мне помочь,а то я долго жду и ни кто не отвечает.

← →
Leran2002 (2002-08-15 14:27) [6]

Используй LoadFromFile:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if not OpenDialog1.Execute then exit;
if not (Table1.State in [dsEdit,dsInsert]) then Table1.Edit;
Table1Graphic.LoadFromFile(OpenDialog1.FileName);
Table1.Post;
end;

← →
SaS13 (2002-08-15 14:45) [7]

Можно так:
Есть Image.TJpegImage в ней твоя картинка, делаешь:
Stream := TMemoryStream.Create;
try
Image.SaveToStream( Stream );
Stream.Seek(0); // по моему так, проверь
BlobField.LoadToStream( Stream )
finally
Stream.Free
end;

Ошибка Найти похожие ветки