[求助]图片上传到服务器硬盘？

[kobe_1980]

怎么将客户端的图片上传到服务器的硬盘上？我现在可以根据数据库的路径读取服务器硬盘上的图片，但是不知道怎么上传？

[ybkenan]

在服務器上做一個共享目錄，然後在PB中調用API函數，直接COPY到服務器上即可。
FUNCTION Long CopyFileA(Ref String cSourceFile,Ref String cTargetFile,Ref Boolean bReserve) LIBRARY "Kernel32.DLL"

CopyFileA(源文件,目標文件,False)

[ybkenan]

反正閒，給你一段代碼
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

[xh308]

楼上正解