// Speichern Sie das Bild in der Datenbank
Function ImagesAvetOSQL (Datensatz: TQuery; Dateiname: String): boolean;
var
ImageJPG: Tjpegimage;
Mystm: tmemorystream;
Beginnen
Ergebnis: = falsch;
MYSTM: = tmemoryStream.create;
ImageJPG: = tjpegimage.create;
Wenn Dateiname <> '' dann
Beginnen
ImageJpg.loadfromFile (Dateiname);
ImageJPG.Savetostream (Mystm);
Mystm.position: = 0;
Tblobfield (DataSet.FieldByName ('pict'). LoadFromstream (MYSTM);
Ergebnis: = wahr;
Ende;
Mystm.free;
ImageJPG.Free;
Ende;
// TDirectoryListBox und Tgauge -Steuerung auf der Schnittstelle hinzufügen
Procedure tfrmpict.bitBtn2Click (Absender: tobject);
var
Dirlist: TStringList;
I: Ganzzahl;
Beginnen
geerbt;
Wenn chk_road.Conted dann
Beginnen
Dirlist: = tstringList.create;
Dirlist.Clear;
versuchen
GetAllFileName (DirectoryListBox1.Directory, Dirlist);
Wenn Dirlist.Count> 0 dann
Beginnen
Gauge1.MinValue: = 0;
Guge1.maxValue: = dirlist.count-1;
für i: = 0 bis dirlist.count-1 tun
Beginnen
mit dm.qry_pict do
Beginnen
Einfügen;
Fields [0] .Assstring: = Copy (Dirlist.Strings [i], 1, pos ('.', Dirlist.Strings [i])-1);
Wenn Imagesavetosql (dm.qry_pict, Dirlist.Strings [i]) = false dann
Beginnen
ShowMessage ('import'+dirlist.strings [i]+'. JPG Bildfehler');
Abbrechen;
Ende;
Post;
Ende; // mit
Gauge1.AddProgress (1);
Ende;
Ende // if
anders
ShowMessage ('In diesem Verzeichnis gibt es kein Bild von JPG -Typ');
Endlich
Dirlist.Free;
Ende;
Ende
anders
ShowMessage ('Bitte den Pfadauswahlvorgang durchführen');
//Schließen;
Ende;