vfp如何读取SQLServer字段中的图片？

怎么在vfp的表单中显现从sqlserver中抓过来的图片？

---

我用的是vfp6.0

听说可以调用其他语言写的dll来实现，
我可以用delphi写dll出来，
但是我不会用使用vfp来调用dll啊

---

这段代码是从SQLSEREVR　IMAGE字段中读出图片：
001: FUNCTION ReadImagefromSQL
　　002: *-- 传递参数：员工工号，是否使用本地临时照片文件
　　003: LPARAMETERS tcPerCode,tlUseLocalPhoto
　　004:
　　005: LOCAL loConn,loRS,loStream
　　006: LOCAL lcDriverName,lcServerName,lcDatabaseName,lcUserName,lcPassword
　　007: LOCAL lcConnectString
　　008: LOCAL lcTempImageFile,luPhotoData,lcPhotoPath
　　009: lcPhotoPath = GETENV("TEMP") + "\HR_Photo\"
　　010: lcTempImageFile = lcPhotoPath + tcPerCode + ".bmp"
　　011:
　　012: *-- 如果使用本地照片就从本地找
　　013: IF tlUseLocalPhoto
　　014: IF FILE("&lcTempImageFile")
　　015: RETURN lcTempImageFile
　　016: ENDIF
　　017: ENDIF
　　018:
　　019: loConn= CREATEOBJECT("Adodb.Connection")
　　020: loRS?= CREATEOBJECT("Adodb.Recordset")
　　021: loStream = CREATEOBJECT("ADODB.Stream")
　　022:
　　023: *-- 连接字符串
　　024: lcDriverName?= "{SQL Server}"
　　025: lcServerName?= ReadIni("ServerSetting","ServerName",100)
　　026: lcD