vfp中如何在备注型字段插入图片文件.docVIP

vfp中如何在备注型字段插入图片文件VFP9: 表1 中“图片”是备注型字段，图片支持多种格式 BMP，JPG，GIF，TIF，PNG...... 保存图片到备注型字段 LOCAL cFile, cStr IF !USED(表1) USE 表1 IN 0 ENDIF cFile = GETPICT() IF EMPTY(cFile) RETURN ENDIF SELECT 表1 REPLACE 图片 WITH FILETOSTR(cFile) IN 表1 显示图片 thisform.image1.PictureVal = 表1.图片 VFP6 的话，将会很烦，因为没有 FILETOSTR() 函数，所以要调用低级文件函数，又由于 VFP6 image 控件没 PictureVal 属性，所以只能单一支持 BMP 或 JPG 文件显示...更改图像分辨率(DPI)实现方法：1、新建立一个位图2、把新建立的位图设置成需要的分辨率3、把需要修改的图片写到新文图上3、输出保存DECLARE Long GdipBitmapSetResolution IN GDIPLUS.DLL Long nBitmap, Single xdpi, Single ydpiDECLARE INTEGER GdipLoadImageFromFile IN gdiplus.DLL ;??????? STRING wFilename, INTEGER @nImageDECLARE INTEGER GdipSaveImageToFile IN gdiplus.DLL ;??????? INTEGER nImage, STRING wFilename, STRING qEncoder, INTEGER nEncoderParamsPtrDECLARE Long GdipDisposeImage IN Gdiplus.dll Long nativeImageDECLARE INTEGER GdipCreateBitmapFromScan0 IN gdiplus.DLL ;??????? INTEGER nWidth, INTEGER nHeight, INTEGER nStride,;??????? INTEGER nPixelFormat,;??????? STRING @ cScan0, INTEGER @ nImageDECLARE INTEGER GdipGetImageHeight IN gdiplus;??????? INTEGER?? img,;??????? INTEGER @ imgheightDECLARE INTEGER GdipGetImageWidth IN gdiplus;??????? INTEGER?? img,INTEGER @ imgwidthDECLARE INTEGER GdipGetImageGraphicsContext IN gdiplus.DLL ;??????? INTEGER nImage, INTEGER @ nGraphicsDECLARE INTEGER GdipDrawImageRect IN gdiplus.DLL ;??????? INTEGER nGraphics, INTEGER nImage, SINGLE,SINGLE,SINGLE,SINGLE *制作：行者孙（QQ 310727570） VFP应用程式算法群????? ???? STORE 0 TO uHwnd,uHeight,uWidth,nBitmap,nGraphicslqEncoderClsID_JPG=0h01F47C55041AD3119A730000F81EF32E JPGGDIPLUS_PIXELFORMAT_32bppARGB=0x0026200A xdpi=300水平分辨率ydpi=300垂直分辨率uPutfile=被修改图片.jpguOutfile=修改后的图片.jpgGdipLoadImageFromFile(STRCONV(uPutfile+0h00,5),@uhwnd)GdipGetImageHeight(uhwnd,@uHeight)GdipGetImageWidth(uhwnd,@uWidth)GdipCreateBitmapFromScan0(uWidth,uHeight,0,GDIPLUS_PIXELFORMAT_32bppARGB,0,@nBitmap)GdipGetImageGraphicsContext(nBitmap,@nGraphics)GdipBitmapSetResolution(