MS Access Как загрузить в БД изображения

[Betterthanyou]

У меня есть такой код для загрузки изображения в DBImage1

if (OpenPictureDialog1->Execute())
{
     DBImage1->Picture->LoadFromFile( OpenPictureDialog1->FileName );
}

Как его загрузить в БД ?

Form1->komanda->Fields->Fields[1]=DBImage1;

E2034 Cannot convert 'TDBImage *' to 'TField *'

[Stilet]

if (OpenPictureDialog1->Execute())
{
     Form1->komanda->Fields->Fields[1]->LoadFromFile( OpenPictureDialog1->FileName );
}

А вообще DBImage должен сам загружать в базу...

[Betterthanyou]

не работает

if (OpenPictureDialog1->Execute())
{
     Form1->komanda->Fields->Fields[1]->LoadFromFile( OpenPictureDialog1->FileName );
}

[bcc32 Error] Unit2.cpp(42): E2316 'LoadFromFile' is not a member of 'TField'
Full parser context
Unit2.cpp(39): parsing: void _fastcall TForm2::Button1Click(TObject *)

[Vapaamies]

Должно быть приведение типа, типа:

reinterpret_cast<TBlobField>(Form1->komanda->Fields->Fields[1])->LoadFromFile(OpenPictureDialog1->FileName);

[Betterthanyou]

наверное я что-то делаю не так, если кто-то скины хотя бы пример программы где есть загрузка фото в БД я буду благодарен, я использую среду C++Builder XE7

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

Должно быть приведение типа, типа:

reinterpret_cast<TBlobField>(Form1->komanda->Fields->Fields[1])->LoadFromFile(OpenPictureDialog1->FileName);

и это не работает
[bcc32 Error] Unit2.cpp(71): E2031 Cannot cast from 'TField *' to 'TBlobField'
Full parser context
Unit2.cpp(68): parsing: void _fastcall TForm2::DBImage1Click(TObject *)

[Stilet]

if (OpenPictureDialog1->Execute())
{
 TBlobStream* bb = new TBlobStream((TBlobField*)Form1->komanda->Fields->Fields[1], bmWrite); 
 TFileStream* fs=new TFileStream(OpenPictureDialog1->FileName,fmOpenRead);
 bb.CopyFrom(fs,fs->Size);
 delete fs;
 // Тут вызов метода Post для сохранения изменений.
}

Угадал?

[Betterthanyou]

Нет к сожалению
он не знает что такое TBlobStream
[bcc32 Error] Unit2.cpp(43): E2451 Undefined symbol 'TBlobStream'
Full parser context
Unit2.cpp(39): parsing: void _fastcall TForm2::Button1Click(TObject *)

[Stilet]

подключи хедер соответственный. DB вроде назвается.

[Betterthanyou]

Я подключил DBTables.hpp (http://docs.embarcadero.com/products...lobStream.html) и теперь у меня ошибка [bcc32 Error] DBTables.hpp(11): E2209 Unable to open include file 'Bde.DBTables.hpp'. Builder из меня просто издевается

[xxbesoxx]

Я погуглил , посмотрел это пример http://h-l-l.ru/publ/28-1-0-185 и делал за просто
1)

#include "jpeg.hpp"

2)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (OpenPictureDialog1->Execute())
   {
	   AnsiString CurrentFile = OpenPictureDialog1->FileName;
	   Image1->Picture->LoadFromFile(CurrentFile);
	   ADOQuery1->Edit();
       TMemoryStream* strm = new TMemoryStream();
       Image1->Picture->Graphic->SaveToStream(strm);
	   ((TGraphicField*)Form1->ADOQuery1->FieldByName("Image"))->LoadFromStream(strm);
       delete strm;
	   Form1->ADOQuery1->Post();
   }

}

3)

void __fastcall TForm1::ADOQuery1AfterScroll(TDataSet *DataSet)
{
  if(!(TBlobField*)ADOQuery1->FieldByName("Image")->IsNull){
	   if(!Image1->Visible)Image1->Visible=true;
	   TMemoryStream* strm = new TMemoryStream;
       TJPEGImage *ptJpg=new TJPEGImage;
        ((TGraphicField*)ADOQuery1->FieldByName("Image"))->SaveToStream(strm);
		strm->Seek(0,0);
		if (*(Word*)strm->Memory == 0xD8FF)Image1->Picture->Graphic=ptJpg;
		Image1->Picture->Graphic->LoadFromStream(strm);
		delete strm;
		delete ptJpg;
	  }else
	  Image1->Visible=false;
}

держите https://yadi.sk/d/uRvV3sF3h7UMP DBImage не нужно берите просто Image формат JPEG сохраняет и отображает нормально

я использую среду C++Builder XE7

На данный момент версия Builder не имеет значения