Hey gaste, ja ik heb de onderstaande post gelezen maar ik snap er geen hol van.
http://www.nldelphi.com/forum/showth...t=jpg+database
Mijn doel is om ook jpgtjes in m'n DB te kunnen opslaan. Ik heb de onderstaande code voor het openen en toevoegen van een afbeelding aan een DBImage. Ik heb geen idee om eerlijk te zijn hoe ik dit zou moeten 'inbrengen'.
Code:begin openPictureDialog1 := TOpenPictureDialog.Create(self); openPictureDialog1.InitialDir := GetCurrentDir; if openPictureDialog1.Execute then begin if Datamodule1.main.State in [dsinsert, dsedit] then begin DBImage1.Picture.LoadFromFile(openPictureDialog1.FileName) end else begin DM.DataModule1.main.Edit; if Datamodule1.main.State in [dsinsert, dsedit] then DBImage1.Picture.LoadFromFile(openPictureDialog1.FileName) else ShowMessage('DataBase kan niet worden geopend'); end; end else begin ShowMessage('Open file was cancelled'); exit; end; openPictureDialog1.Free; end;
Bookmarks