BLOB 에 저장된 OLE Type BMP 저장 2

function long oletobmp (blob filename) library "xw_lib.dll"

int rtn
string ls_filename

ls_filename = "c:\log\image.bmp"
rtn = oletobmp (blob (ls_filename, EncodingANSI!))

if rtn = 0 then
    FileDelete (ls_filename)
    FileMove (ls_filename + ".out", ls_filename)
end if

* 외부 DLL 파일을 이용하여 OLE BMP 파일을 BMP 이미지를 얻어내는 소스

xw_lib.dll