如何在PB中调用F1控件如何插入图片（原创）

如何在PB中调用F1控件如何插入图片（原创）一、API声明：

SUBROUTINE CopyMemory(ref METAHEADER Destination , ref blob Source, long Length) LIBRARY "kernel32" Alias for "RtlMoveMemory"

SUBROUTINE CopyMemory2(ref blob Destination , ref blob Source, long Length) LIBRARY "kernel32" Alias for "RtlMoveMemory"

Function ulong SetMetaFileBitsEx(ulong nSize,ref blob lpData) LIBRARY "gdi32.dll"

二、PB脚本：

METAHEADER lst_Hdr

integer li_FileNum

Long ll_hMF,ll_loops,ll_pos,ll_len

blob lb_structure,lb_data,lb_tmp,lb_read

li_FileNum = FileOpen("c:\1.wmf", StreamMode!)

FileSeek(li_FileNum, 22, FromBeginning!)

FileRead(li_FileNum, lb_structure)

CopyMemory(lst_Hdr,lb_structure,18)

lst_Hdr.mtSize = lst_Hdr.mtSize * 2

FileSeek(li_FileNum, 22, FromBeginning!)

IF lst_Hdr.mtSize > 32765 THEN

IF Mod(lst_Hdr.mtSize, 32765) = 0 THEN

ll_loops = lst_Hdr.mtSize/32765

ELSE

ll_loops = (lst_Hdr.mtSize/32765) + 1

END IF

ELSE

ll_loops = 1

END IF

FOR ll_pos = 1 to ll_loops

FileRead(li_FileNum, lb_tmp)

lb_read = lb_read + lb_tmp

FileClose(li_FileNum)

if len(lb_read) < lst_Hdr.mtSize then

ll_len = len(lb_read)

else

ll_len = lst_Hdr.mtSize

end if

lb_data = blob(space(ll_len))

CopyMemory2(lb_data,lb_read,ll_len)

ll_hMF = SetMetaFileBitsEx(lst_Hdr.mtSize, lb_data)

ole_1.object.ObjCreatePicture(1, 1, 3, 6, ll_hMF, 7, 0, 0)

三、使用API在PB中直接读取WMF的方式源码，参考：

http://www.comesoft.net/bbs/dispbbs.asp?boardid=78&id=26663

效果图见：

http://www.comesoft.net/bbs/UploadFile/2004-12/20041229151230298.JPG

或

http://blog.csdn.net/images/blog_csdn_net/balloonman2002/17312/o_DEMO.GIF

原贴见：http://community.csdn.net/Expert/topic/3673/3673523.xml?temp=.7985193