主题:请教高手如何导入照片?谢谢!
smart921
[专家分:0] 发布于 2009-07-14 10:56:00
请教高手如何导入照片?
回复列表 (共5个回复)
沙发
fyyylyl [专家分:8550] 发布于 2009-07-14 11:17:00
如果是导入DBF的通用字段可使用append general 命令:
语法
APPEND GENERAL GeneralFieldName
[FROM FileName | FROM MEMO PictureFieldName]
[DATA cExpression]
[LINK]
[CLASS OLEClassName]
参数
GeneralFieldName
指定放置 OLE 对象的通用字段名。可以用带有表别名的字段名来指定在非当前工作区中打开的表的通用字段。
FROM FileName
指定包含 OLE 对象的文件。必须给出文件全名,包括扩展名。如果文件不在当前目录或当前文件夹中,还需要给出文件的路径。
在 FoxPro for Macintosh 中,不能将 PICT
或 BMP 类型的图片文件导入到通用字段。若要导入图片,可把图片复制到剪切板中,然后粘贴到通用字段中去。
FROM MEMO PictureFieldName
指定 FoxBase+for Macintosh 的图片字段。用这个子句可从 FoxPro for Macintosh 表中导出 PICT 型图片。
包含通用字段的 FoxPro for Macintosh 表必须在当前选定工作区中打开。包含图片文件的 FoxBASE+for Macintosh 表必须在另一工作区中打开,图片字段名前必须加上 FoxBASE+for Macintosh 表的别名,用句点隔开图片字段名和别名。
例如,以下命令从 FoxBASE+for Macintosh 表 picttble 的 pictfield 字段中导出 PICT 类型图片,并保存到名为 genfield 的通用字段中。
APPEND GENERAL genfield FROM MEMO picttble.pictfield
APPEND GENERAL 处理两个表的当前记录。若要确保 PICT 图片导入到正确记录的通用字段中,必须使用 SET RELATION 命令建立两表之间的关系,或人工移动两个表的记录指针。
DATA cExpression
指定字符表达式,此表达式作为一个字符串存入 OLE 对象的通用字段中。OLE 对象必须能接收和处理字符串。例如,不能往 Paintbrush. 的图片对象中存入字符串。
LINK
建立 OLE 对象和包含对象的文件间的链接。
OLE 对象出现在通用字段,但对象定义仍在文件中。如果省略 LINK,OLE 对象将嵌入到通用字段中。
CLASS OLEClassName
指定 OLE 对象是 OLE 类,而非其默认类。
提示
在 Visual FoxPro 和 FoxPro for Windows
中,您可以通过运行 REGEDIT 和双击 OLE
对象来为 OLE 对象确定类。类名列在“
Identifier”下。
当包含 OLE 对象的文件的扩展名不同于默认扩展名,并且要强制类行为时,您可以指定类名。如果默认扩展名可用于多个 OLE
服务器,用 Class 子句指定特殊的服务器。
说明
仅用于 Visual FoxPro、FoxPro for Windows 和 Foxpro for Macintosh 中。
如果在通用字段中已有一个 OLE 对象,它将被源文件中的 OLE 对象取代。
有关 Visual FoxPro 的 OLE 对象的详细内容,请参阅《开发指南》的第八章“添加 OLE”和在表中添加 OLE 对象主题。
板凳
smart921 [专家分:0] 发布于 2009-07-14 21:48:00
我想成批导入,有何简捷的方法?
3 楼
fyyylyl [专家分:8550] 发布于 2009-07-15 09:22:00
for
......
endfor
4 楼
blcg2001 [专家分:30] 发布于 2009-07-16 14:14:00
不用通用字段导入照片,用文本字段,输入照片的路径、文件名,表单中设图形控件,与文本字段绑定,即可完成导入照片。
5 楼
zhaojiaxin [专家分:0] 发布于 2009-07-22 11:13:00
做一个导入照片的表单
一个存放照片路径的表sys_zk.dbf,ph字段是照片路径字段。card_no是要导入照片的名称。
下面是导入照片的代码
sele 2
USE c_basic.dbf
go top
do while !eof()
aa=card_no
bb=allt(sys_zk.ph)+'\'+aa+'.jpg'
cc='zp\'+aa+'.jpg'
copy file &bb to &cc
skip
enddo
close data
retu
[img]http://[/img]
我来回复