Re: Database with Images?
- Posted by lockiedownunder Jun 20, 2009
- 852 views
Thanks for your reply's I think simply one password at the start of the program would do. Each image will only be related to one record. In other words one record would link to 2 to 4 images.
Perhaps a little more background: I am a locksmith, this database will hold internal pictures, dimensions and information on how to break into safes and vaults, so you can see the need to protect these images. I have never tried to encrypt a file using EU before. Decrypting in memory would be preferable but maybe not essential.
I can write the database using EU's database system. I have used it before but I need assistance encrypting and decrypting jpg images as it looks like this is the way to go.
Run this code and you will see a simple screen layout.
-- code generated by Win32Lib IDE v1.0.4 Build July-06-2008 constant TheProgramType="exw" include Win32Lib.ew without warning -------------------------------------------------------------------------------- -- Window MainWin constant MainWin = createEx( Window, "SafesDB", 0, Default, Default, 953, 615, 0, 0 ) constant LText2 = createEx( LText, "Brand", MainWin, 612, 8, 60, 20, 0, 0 ) constant ComboBrands = createEx( Combo, "", MainWin, 676, 8, 148, 20*6, 0, 0 ) constant SafeGroup = createEx( Group, "Safe", MainWin, 12, 32, 916, 500, 0, 0 ) constant TXTInsurance = createEx( EditText, "", SafeGroup, 116, 84, 148, 20, 0, 0 ) constant ComboType = createEx( Combo, "", SafeGroup, 116, 56, 130, 20*6, 0, 0 ) constant GroupDimensions = createEx( Group, "Dimensions", SafeGroup, 276, 12, 160, 132, 0, 0 ) constant TXTFire = createEx( EditText, "", SafeGroup, 116, 112, 148, 20, 0, 0 ) constant GroupImage = createEx( Group, "Images", SafeGroup, 452, 12, 456, 480, 0, 0 ) constant LText13 = createEx( LText, "Internal", GroupDimensions, 104, 28, 50, 20, 0, 0 ) constant LText12 = createEx( LText, "Exteral", GroupDimensions, 48, 28, 50, 20, 0, 0 ) constant GroupImageRecControl = createEx( Group, "", GroupImage, 152, 440, 156, 36, 0, 0 ) constant LblModel = createEx( LText, "Model", SafeGroup, 8, 32, 100, 20, 0, 0 ) constant BtnImageFirst = createEx( PushButton, "|<", GroupImageRecControl, 8, 8, 20, 20, 0, 0 ) constant LText14 = createEx( LText, "Height", GroupDimensions, 4, 52, 40, 20, 0, 0 ) constant BtnImagePrevious = createEx( PushButton, "<", GroupImageRecControl, 28, 8, 20, 20, 0, 0 ) constant LblType = createEx( LText, "Type", SafeGroup, 8, 60, 100, 20, 0, 0 ) constant TXTImageRecCount = createEx( EditText, "", GroupImageRecControl, 48, 8, 60, 20, 0, 0 ) constant LText15 = createEx( LText, "Width", GroupDimensions, 4, 76, 40, 20, 0, 0 ) constant BtnImageNext = createEx( PushButton, ">", GroupImageRecControl, 108, 8, 20, 20, 0, 0 ) constant LblInsurance = createEx( LText, "Insurance Rating", SafeGroup, 8, 88, 100, 20, 0, 0 ) constant BtnImageLast = createEx( PushButton, ">|", GroupImageRecControl, 128, 8, 20, 20, 0, 0 ) constant LText16 = createEx( LText, "Depth", GroupDimensions, 4, 100, 40, 20, 0, 0 ) constant MleTextNotes = createEx( MleText, "", SafeGroup, 8, 148, 436, 300, w32or_all({ES_AUTOVSCROLL,WS_VSCROLL}), 0 ) constant LblFire = createEx( LText, "Fire Rating", SafeGroup, 8, 116, 100, 20, 0, 0 ) constant BtnAddType = createEx( PushButton, "+", SafeGroup, 248, 56, 20, 20, 0, 0 ) constant TXTExtH = createEx( EditText, "", GroupDimensions, 48, 52, 48, 20, 0, 0 ) constant BitmapImage = createEx( Bitmap, "Image", GroupImage, 8, 16, 440, 420, 0, 0 ) constant TXTExtW = createEx( EditText, "", GroupDimensions, 48, 76, 48, 20, 0, 0 ) constant TXTExtD = createEx( EditText, "", GroupDimensions, 48, 100, 48, 20, 0, 0 ) constant TXTIntH = createEx( EditText, "", GroupDimensions, 104, 52, 48, 20, 0, 0 ) constant TXTIntW = createEx( EditText, "", GroupDimensions, 104, 76, 48, 20, 0, 0 ) constant TXTIntD = createEx( EditText, "", GroupDimensions, 104, 100, 48, 20, 0, 0 ) constant MainRecordControl = createEx( Group, "", MainWin, 352, 536, 156, 36, 0, 0 ) constant BtnMainFirst = createEx( PushButton, "|<", MainRecordControl, 8, 8, 20, 20, 0, 0 ) constant BtnMainPrevious = createEx( PushButton, "<", MainRecordControl, 28, 8, 20, 20, 0, 0 ) constant TXTMainRecCount = createEx( EditText, "", MainRecordControl, 48, 8, 60, 20, 0, 0 ) constant BtnMainNext = createEx( PushButton, ">", MainRecordControl, 108, 8, 20, 20, 0, 0 ) constant BtnMainLast = createEx( PushButton, ">|", MainRecordControl, 128, 8, 20, 20, 0, 0 ) constant TXTModel = createEx( EditText, "", SafeGroup, 116, 32, 148, 20, 0, 0 ) setHint( BtnAddType,"Add Safe Type") setHint( BtnMainFirst,"First") setHint( BtnMainPrevious,"Previous") setHint( BtnMainNext,"Next") setHint( BtnMainLast,"Last") --------------------------------------------------------- --------------------------------------------------------- WinMain( MainWin,Normal )
