Luați, de exemplu, orice bază de date. Voi lua acelasi MS Access prin tehnologia ADO. Noi deja știm cum să se conecteze la această bază de date în Delphi. Efectuarea conexiunii și de a crea acolo orice câmp de text. Pe formularul, trebuie să fim
- TImage
- TButton - 2 buc
- TOpenDialog
- TAdoQuery
- TAdoConnection
Ei bine, cred că destul, dacă este uitat ceva, atunci campania va face. DB avem gata un tabel în baza de date numită fișiere. Chiar și așa, nu este nevoie să inventăm nimic aici cred. Este, de asemenea, la folderul rădăcină al programelor noastre (aplicații) va crea un dosar de fișiere. Pe jpg primert -kartinok vedea cum să adăugați date în acest mod, în baza de date.
Pentru a începe, ca întotdeauna activa AdoQuery nostru. și așa mai departe OnCreate formularul nostru principal am scrie acest lucru
În continuare pe evenimentul scrie Button1 OnClick (acest lucru este noastră de date apendicele formală)
În această funcție, următorii parametri
- calea de fișier pe care copiați
- Calea către fișierul în cazul în care pentru a salva
- pavilion
Aici, cred că ar trebui să apară problemele. În continuare, am citit din baza de date, numele de fișier și de imprimare nostru jpg -kartinku TImage nostru. Este vorba despre va arăta
Aceasta este, pune cursorul pe prima înregistrare, se arată într-un nume de fișier și pur și simplu încărcați-l într-un TImage. După cum puteți vedea datele din baza de date nu sunt stocate, astfel încât baza de date nu va fi mare în dimensiune, dar cu catalogul de program va ocupa un loc decent, cu excepția cazului, desigur, vor exista mai multe fișiere de dimensiuni mari.
Acesta poate fi folosit în toate bazele de date, cred că totul este clar.
Codul Articolul sursă poate fi descărcat de aici
înregistrări similare
Dragi mulțumiri pentru blog. Dar adăugarea imaginii de pe codul sursă nu funcționează. Am o cerere pentru a adăuga fotografia (jpeg, etc formate de bază) în ADO în baza de date? în cazul în care unul nu arata site-uri la toate alternative:
ADOQuery1.Edit;
TBLOBField (ADOQuery1.FieldByName ( 'myField')) LoadFromFile ( 'c: \ my.bmp') ;.
ADOQuery1.Post;
Standard pe toate site-urile, dar el nu a nu rabotaet.Esli resturi prompt.