CLOSE DATABASES ALL MODIFY DATABASE ImageLoad.DBC NOWAIT cImageFile = "graphics\test_image.bmp" IF USED("v_ImageTest") USE IN v_ImageTest ENDIF SELECT 0 USE v_ImageTest FOR nRecord = 1 TO 1000 WAIT WINDOW "Adding record " + TRANSFORM(nRecord) + " of 1000" NOWAIT cImageName = SYS(2015) INSERT INTO v_ImageTest; (ImageName); VALUES; (cImageName) APPEND MEMO ImageFile FROM &cImageFile OVERWRITE ENDFOR RETURNNow I want to pull the images out, and I'm trying:
nHandle = SQLSTRINGCONNECT(cConnString) IF nHandle > -1 SET STEP ON nResult = SQLEXEC(nHandle, "select * from ImageTest", "Images") IF nResult > -1 cImageFile = STRTOFILE(Images.ImageFile, cDestDir + Images.ImageName + ".bmp") ELSE ? "Error" ENDIF SQLDISCONNECT(nHandle) ELSE ? "Not connected" ENDIFWhen I get the resulting cursor back, the Gen field appears empty. When I attempt to open the Gen field,
>APPEND MEMO ImageFile FROM (cImageFile) OVERWRITE >>
>> >>OPEN DATABASE ImageLoad >> >>IF USED("v_ImageTest") >> USE IN v_ImageTest >>ENDIF >> >>SELECT 0 >>USE v_ImageTest >> >>cImageName = SYS(2015) >>cImageFile = "d:\projects\pmis\version8\vfp9\source\graphics\test_image.bmp" >> >>INSERT INTO v_ImageTest; >> (ImageName); >> VALUES; >> (cImageName) >> >>APPEND MEMO ImageFile FROM &cImageFile OVERWRITE >> >>RETURN >>>>