CLOSE DATABASES ALL MODIFY DATABASE ImageLoad.DBC NOWAIT IF USED("v_GenImages") USE IN v_GenImages ENDIF SELECT 0 USE v_GenImages DELETE FROM v_GenImages SET STEP ON nTotImages = ADIR(aImages, "Images\*.png") FOR nImage = 1 TO nTotImages cImageName = LOWER(aImages[nImage, 1]) cImageCode = LOWER(GETWORDNUM(cImageName, 1, "_")) cImageFile = LOWER(SYS(5) + SYS(2003) + "\Images\" + aImages[nImage, 1]) INSERT INTO v_GenImages; (imagesize, imagecode, imagename); VALUES; (16, cImageCode, cImageName) APPEND MEMO ImageFile FROM (cImageFile) OVERWRITE ENDFOR RETURNNext I use the following to get the images back out. The STRTOFILE() creates the file ok and
nHandle = SQLSTRINGCONNECT(cConnString) IF nHandle > -1 CURSORSETPROP("MapBinary", .T., 0) nResult = SQLEXEC(nHandle, "select * from genimages", "Images") IF nResult > -1 SELECT Images SCAN cFileName = cDestDir + ALLTRIM(Images.ImageName) =STRTOFILE(ImageFile , cFileName) DO FORM Test ENDSCAN ELSE ? "Error" ENDIF SQLDISCONNECT(nHandle) ELSE ? "Not connected" ENDIFThe form's init has
ThisForm.image1.PictureVal = Images.ImageFile
Yes when the form finishes Initing, I don't see the image.