Главная страница
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-1154528943
VadimSpb
2006-08-02 18:29
2006.10.08
Число параметров


2-1158664456
Василий Блаженный
2006-09-19 15:14
2006.10.08
TIdPOP3Client


2-1158512716
POP
2006-09-17 21:05
2006.10.08
WaitCommEvent(ComFile,Mask,@Overlapped)


15-1158557532
Id
2006-09-18 09:32
2006.10.08
Установочный пакет с FB 1.5


15-1158492850
ArtemESC
2006-09-17 15:34
2006.10.08
MASM