개발 참고자료

Long m, n, p
String ls_TempDir = "C:\Temp\img_sabun\"
String ls_fname, ls_sabun
Blob lblb_bitmap, lbl_photo


ls_TempDir = "C:\Temp\img_sabun\"


SetPointer(HourGlass!)
p = dw_1.RowCount()
for m = 1 to p



ls_sabun = dw_1.getitemString( m, "sabun")

selectblob photo into :lbl_photo
from i1099
where sabun = :ls_sabun ;

if sqlca.sqlcode = 0 then
if len(lbl_photo) >= 100 then
Yield ( )
ole_1.objectdata = lbl_photo
Yield ( )
sleep(0.5)
ls_fname = ls_TempDir + ls_sabun + ".bmp"
Yield ( )
lblb_bitmap = in_bitmap.of_ControlCapture(ole_1, False)
Yield ( )
in_bitmap.of_WriteBlob(ls_fname, lblb_bitmap)
Yield ( )
end if
end if
next
SetPointer(Arrow!)