Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.08;
Скачать: CL | DM;

Вниз

Хранение и отображение картики в базе Access   Найти похожие ветки 

 
Klever ©   (2006-08-05 22:19) [0]

Мне  нужно отображать в моей проге картинки для каждой строки записи базы Access. На форме лежит DBGrid1. Есть также кнопка открытия(добавления) картинки AddImage. И окно отображения DBImage1ю.Я пишу
procedure TForm1.AddImageClick(Sender: TObject);
var
ImageStream:TMemoryStream;
begin
if OpenPictureDialog1.Execute then begin
 ImageStream:=TMemoryStream.Create;
 try
   ImageStream.LoadFromFile(OpenPictureDialog1.FileName);
   try
       ADOQuery1.Append;
       ADOQuery1.FieldByName
("fieldpath").asString:=OpenPictureDialog1.FileName;
       TBlobField(ADOQuery1.FieldByName("ImageData")).LoadFromStream(ImageStream);
       ADOQuery1.Post;
       except on e:Exception do begin
             end;
       end;
 finally
   ImageStream.Free;
 end;
end;
end;

в базе данных есть такие поля
DI -AutoIncrement
fieldpath - Text (255)
ImageData - OLE Object

В ADOQuery1 настройки
Connection  :  DataModule1.ADOConnection1
Datasourse  :  DataModule1.DataSource1
Если я не включаю активным ADOQuery1  при выборе картинки нажатии Добавить открывается диалоговое окно добавления картинки. При нажатии на  картинку показывается сообщение:
Project Project.exe raised exception class EDatabaseError with message "ADOQuery1: cannot perform this operation on a closed dataset".Process stopped. Use Step or Run to continue.

При попытке поставить Active в True компилится нормально, но при запуске выдает осразу ошибку "Project Project.exe raised exception class EDatabaseError with message "Mising Connection or ConnectionString"..."

Вродебы все подробно описал .Как решить такую проблему. Уже не помню сколько над ней мучаюсь.
Заранее спасибо.


 
Johnmen ©   (2006-08-06 00:08) [1]

Читать до просветления предпоследний пост
http://delphimaster.net/view/3-1154704412/
и последний - в обязательном порядке!


 
Klever ©   (2006-08-06 10:54) [2]

to JohnPerdMem
Ты если не знаешь как помочь, то тихооонько сиди за компом и не умничай, а то много умных развелось, конкретного ответа дать не могут.


 
sniknik ©   (2006-08-06 12:30) [3]

ссылка и указание вроде на конкретное "лекарство"... ну а последнее совершенно справедливо если видя ответ ты не способен его даже понять...

ну а сам пост [2], показывает насколько на самом деле тебе это нужно... (вернее, а не нужно ли тебе другое? поиграть в "праведное возмушение" например)
посему... не обессудь.



Страницы: 1 вся ветка

Текущий архив: 2006.10.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
3-1154946285
rsa_
2006-08-07 14:24
2006.10.08
в базе MySQL5 запись на украинском внести можно, но при запросе


3-1154959675
VadimSpb
2006-08-07 18:07
2006.10.08
Индикатор при выполнении запроса


15-1158315936
DelphiLexx
2006-09-15 14:25
2006.10.08
Симплекс и Delphi


1-1156939185
matyx
2006-08-30 15:59
2006.10.08
функция GetSystemTime выдаёт неправильное время


2-1158303037
Mishenka
2006-09-15 10:50
2006.10.08
Как перевести сантиметры в пикселы?