609
社区成员
发帖
与我相关
我的任务
分享pb中创建文件的函数是那个，是不是要用到api函数 请问如何声明，如何使用！！谢谢
谁有pb的api函数全集，能不能给我一份 zhjianling@sina.com
...全文
请发表友善的回复…
发表回复
执着过客 2003-10-20
- 打赏
- 举报
对，兔子说的对，要用一个blobmid函数
klbt 2003-10-20
- 打赏
- 举报
取出后，分段写入，每32765字节写一次。
执着过客 2003-10-20
- 打赏
- 举报
但是如何将一个在数据库中大于32k的blob读入该文件呢
你的昵称已存在 2003-10-20
- 打赏
- 举报
用API：
FUNCTION ulong CreateFile(ref string lpFileName,ulong dwDesiredAccess,ulong dwShareMode,ref SECURITY_ATTRIBUTES lpSecurityAttributes,ulong dwCreationDisposition,ulong dwFlagsAndAttributes,ulong hTemplateFile) LIBRARY "kernel32.dll" ALIAS FOR "CreateFileA"
FUNCTION ulong CreateFile(ref string lpFileName,ulong dwDesiredAccess,ulong dwShareMode,ref SECURITY_ATTRIBUTES lpSecurityAttributes,ulong dwCreationDisposition,ulong dwFlagsAndAttributes,ulong hTemplateFile) LIBRARY "kernel32.dll" ALIAS FOR "CreateFileA"
netxzs 2003-10-20
- 打赏
- 举报
value = GetFileSaveName("保存文件", docname, named, "TXT", "Text Files (*.TXT),*.TXT," + "Excel Files (*.xls),*.xls," + "DBase Files (*.dbf),*.dbf" )
IF value = 1 THEN
if right(docname,3) = "txt" then
tab_1.tabpage_1.dw_1.SaveAs(docname, text!, FALSE)
end if
if right(docname,3) = "xls" then
tab_1.tabpage_1.dw_1.SaveAs(docname, Excel!, FALSE)
end if
if right(docname,3) = "dbf" then
tab_1.tabpage_1.dw_1.SaveAs(docname, dBASE2!, FALSE)
end if
end if
IF value = 1 THEN
if right(docname,3) = "txt" then
tab_1.tabpage_1.dw_1.SaveAs(docname, text!, FALSE)
end if
if right(docname,3) = "xls" then
tab_1.tabpage_1.dw_1.SaveAs(docname, Excel!, FALSE)
end if
if right(docname,3) = "dbf" then
tab_1.tabpage_1.dw_1.SaveAs(docname, dBASE2!, FALSE)
end if
end if
jdsnhan 2003-10-20
- 打赏
- 举报
up
具体api函数集，可去pdriver或编程俱乐部上看看，那里有。
具体api函数集，可去pdriver或编程俱乐部上看看，那里有。
cuiyingfeng 2003-10-20
- 打赏
- 举报
FileOpen ( filename {, filemode {, fileaccess {, filelock {, writemode
{ creator, filetype }}}}} )
File not found If PowerBuilder doesn't find the file, it creates a new file, giving it the specified name, if the fileaccess argument is set to Write!.
我也帮你找一下，重复劳动，呵呵！
{ creator, filetype }}}}} )
File not found If PowerBuilder doesn't find the file, it creates a new file, giving it the specified name, if the fileaccess argument is set to Write!.
我也帮你找一下，重复劳动，呵呵！
klbt 2003-10-20
- 打赏
- 举报
PB本身有着方面的函数， 创建文本文件的例子：
GetFileSaveName("保存文件", path, file, "*.txt", "文本文件(*.txt), *.txt")
file_number = FileOpen(path, LineMode!, write!, Shared!, replace!)
GetFileSaveName("保存文件", path, file, "*.txt", "文本文件(*.txt), *.txt")
file_number = FileOpen(path, LineMode!, write!, Shared!, replace!)
佣工7001 2003-10-20
- 打赏
- 举报
pb本身就可以搞定
FileOpen ( filename {, filemode {, fileaccess {, filelock {, writemode
{ creator, filetype }}}}} )
File not found If PowerBuilder does not find the file, it creates a new file, giving it the specified name, if the fileaccess argument is set to Write!.
FileOpen ( filename {, filemode {, fileaccess {, filelock {, writemode
{ creator, filetype }}}}} )
File not found If PowerBuilder does not find the file, it creates a new file, giving it the specified name, if the fileaccess argument is set to Write!.
