Képek felvétele az adatbázisba, blog Delphi-programozó

Vegyük például egy adatbázis. Elviszem azonos MS Access által ADO technológiával. Azt már tudjuk, hogyan kell csatlakoztatni az adatbázisban Delphi. A csatlakozó és hozzon létre ott bármilyen szöveges mezőbe. A formanyomtatványon kell lennünk

• TImage
• TButton - 2 db
• TOpenDialog
• TAdoQuery
• TAdoConnection

Nos, azt hiszem, elég, ha valami kimaradt, akkor a kampány fog tenni. DB van készen egy táblát az adatbázisban nevű fájlok. Még így is, nem kell feltalálni semmit itt azt hiszem. Ugyancsak a gyökér könyvtárban a programok (alkalmazások) hoz létre fájlokat mappát. A primerT jpg -kartinok látni, hogyan kell hozzáadni az adatokat ilyen módon az adatbázisban.

Kezdeni, mint mindig aktiválni a AdoQuery. és így tovább OnCreate fő formája írunk ezt

Tovább az Button1 onclick esemény write (ez a mi hivatalos adatok függelék)

Ebben a funkcióban az alábbi paraméterek

• fájlútvonal másolni
• fájl elérési útvonalát, ahol menteni
• zászló

Itt, azt hiszem a probléma merül fel. Ezután olvassuk az adatbázisból, a nevét a fájl- és nyomtatási jpg -kartinku mi TImage. Ez körülbelül így fog kinézni

Ez azt jelenti, A mutató az első rekord, beolvassa a fájl nevét, és egyszerűen töltse be a TImage. Mint látható az adatbázisban található adatokat nem tároljuk, így az adatbázis nem lesz olyan nagy a mérete, de a program katalógusban elfoglalja méltó helyét, kivéve persze, nem lesz sok nagy fájlokat.

Ezt fel lehet használni az összes adatbázist, úgy gondolom, hogy minden világos.

Cikk forráskód letölthető innen

Hasonló bejegyzések

Kedves köszönet a blog. De a kiegészítéssel, a képet a forráskód nem működik. Van egy kérést, hogy a fotó (JPEG, stb alap formátumban) a ADO az adatbázisban? ahol az egyik nem nézett minden alternatív helyszínek:
ADOQuery1.Edit;
TBLOBField (ADOQuery1.FieldByName (myField ')) LoadFromFile (c: \ my.bmp') ;.
ADOQuery1.Post;

Szabványos minden gépen, de nem rabotaet.Esli nem azonnali selejt.