Форум: "Базы";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
ВнизОшибка Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c