803
社区成员
- 主页
- API 调用
- 基础类
- 控件与界面
- 数据库相关
- DataWindow
- 项目管理
- Web 应用
- 脚本语言
[求助]图片上传到服务器硬盘？
怎么将客户端的图片上传到服务器的硬盘上？我现在可以根据数据库的路径读取服务器硬盘上的图片，但是不知道怎么上传？
...全文
请发表友善的回复…
发表回复
xh308 2008-08-30
楼上正解
ybkenan 2008-01-15
反正閒，給你一段代碼
FUNCTION Long CopyFileA(Ref String cSourceFile,Ref String cTargetFile,Ref Boolean bReserve) LIBRARY "Kernel32.DLL"
FUNCTION Long DeleteFileA(Ref String lpFileName) LIBRARY "Kernel32.DLL"
if fileexists(ls_TargetFullName) then// 覆蓋上一版本
DeleteFileA( ls_TargetFullName )
end if
li_ret1 = CopyFileA(ls_path, ls_TargetFullName, lb_Reserve)
If li_ret1 = 0 Then
Messagebox('Prompt','Copy file fail',stopsign!)
End If
FUNCTION Long CopyFileA(Ref String cSourceFile,Ref String cTargetFile,Ref Boolean bReserve) LIBRARY "Kernel32.DLL"
FUNCTION Long DeleteFileA(Ref String lpFileName) LIBRARY "Kernel32.DLL"
if fileexists(ls_TargetFullName) then// 覆蓋上一版本
DeleteFileA( ls_TargetFullName )
end if
li_ret1 = CopyFileA(ls_path, ls_TargetFullName, lb_Reserve)
If li_ret1 = 0 Then
Messagebox('Prompt','Copy file fail',stopsign!)
End If
ybkenan 2008-01-15
在服務器上做一個共享目錄，然後在PB中調用API函數，直接COPY到服務器上即可。
FUNCTION Long CopyFileA(Ref String cSourceFile,Ref String cTargetFile,Ref Boolean bReserve) LIBRARY "Kernel32.DLL"
CopyFileA(源文件,目標文件,False)
FUNCTION Long CopyFileA(Ref String cSourceFile,Ref String cTargetFile,Ref Boolean bReserve) LIBRARY "Kernel32.DLL"
CopyFileA(源文件,目標文件,False)