公司logo是存储在表ABLOB中的,你可以用索引ABB0来选择记录,其中:
—— CODBLB = LOGO
—— IDENT1 = 公司代码
创建一个程序,例如XGETIMAGE.src:
Subprog GETIMAGE(SOC,IMG,RET)
Value Char SOC
Variable Blbfile IMG
Variable Integer RET
Local File ABLOB [ABB]
If SOC=""
RET = 0
End
Endif
# Read the ABLOB table
Read [ABB]ABB0 = "LOGO";SOC;"";""
If fstat=0
IMG = [F:ABB]BLOB
RET = 1
Else
RET = 0
Endif