PB导出图片到指定目录

最新推荐文章于 2023-06-08 13:06:04 发布

吴半止

最新推荐文章于 2023-06-08 13:06:04 发布

阅读量1.5k

点赞数

分类专栏： PB 文章标签： pb

本文链接：https://blog.csdn.net/wyc487/article/details/73862768

版权

PB 专栏收录该内容

43 篇文章 1 订阅

订阅专栏

//PB导出图片到指定目录
integer li_FileNum
string ls_imgID, ls_path
blob blob_img
long ll_rowcount, row, ll_serial
integer li_result

li_result = GetFolder( "图片存放路径", ls_path )
dw_imgs.settransobject(sqlca)
ll_rowcount = dw_imgs.retrieve()//图片编号、序号
if ll_rowcount > 0 then
	for row = 1 to ll_rowcount
		ls_imgID = dw_imgs.getitemstring(row,'imgID')
		ll_serial = dw_imgs.getitemnumber(row,'serial')
		//开始逐个导出
		SELECTBLOB 
		img
		INTO  : blob_img
		FROM fa_imgs_image		
		WHERE fa_imgs_image.imgID = :ls_imgID and serial = :ll_serial		
		USING sqlca;		
		li_FileNum = FileOpen( ls_path + ls_imgID+'_'+string(ll_serial)+'.JPG',StreamMode!, Write!, Shared!, Replace!)		
		FileWrite(li_FileNum, blob_img)		
		FileClose(li_FileNum)
	next
end if