求文件上传下载代码

2005-05-07 02:27:06 195 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SpringBoot文件上传下载详解下载的原理其实就是根据你要下载的文件名看看我们的磁盘中有没有这个文件对比一下文件名字，如果有就下载，没有就下载失败。首先理解一下文件上传的原理，其实就是把传过来的文件存到我们的磁盘上，既然要存磁盘所以我们得指定文件存储的路径等。这篇文章记录我自己的学习过程的SpringBoot的文件上传下载的代码的理解。代码写完了介绍问了，接下来测试一下看看我们的接口能不能用。可以看到上传成功了，也生成了文件名。首先先把代码写上，然后逐一理解。我的路径值得就是这个。阅读详情

我做一个网页
想实现上传和下载文件功能
希望大虾给我段代码

...全文

智能车竞赛飞檐走壁组赛道制作全攻略：从电磁线铺设到立体元素搭建本文提供了智能车竞赛飞檐走壁组赛道制作的完整指南。从电磁线选材、电流控制与精准铺设等基础入手，详细解析了垂直墙面、圆筒、跷跷板等核心立体元素的构建技巧与过渡处理。重点分享了确保赛道稳定、符合规则且便于调试的实战经验，帮助参赛队伍搭建可靠的立体赛道，为车模算法调试奠定坚实基础。阅读详情

shiyunlong

网络编程 1,502 成员 18,427 内容

+ 关注 + 加入社区

切换为时间正序

shiyunlong 2005-05-11

打赏
举报

思考 2005-05-11

打赏
举报

PowerTCP FTP Tool v1.8

xiaohuangtao 2005-05-11

打赏
举报

我有所有源代码,可以联系我Smartmailuser@163.com
晚上QQ联系我:88974534
http://www.smartmaildemo.com

jecheung 2005-05-09

打赏
举报

怎么加啊，我做的一个FTP程序，可以显示FTP服务器上的文件，但不知道怎么上传和下载，如果要实现他们，要怎么加代码啊？

hsf1024 2005-05-08

打赏
举报

DiDoDiDo 2005-05-08

打赏
举报

自己添加InternetOpen,InternetConnect,InternetCloseHandle ,FtpPutFile,FtpGetFile等Api函数。

Private bActiveSession As Boolean
Private hOpen As Long
Private hConnection As Long

Private Sub Main()
Call InitVar
Call OpenInternet
If hOpen = 0 Then Exit Sub
Call ConnectInternet
If bActiveSession = False Then
Call DisconnectInternet
Exit Sub
End If
Call GetUpLoadFiles
Call UpLoadNow
Call DisconnectInternet
Call CloseInternet
End Sub

Private Sub InitVar()
bActiveSession = False
hOpen = 0
hConnection = 0
End Sub
Private Sub OpenInternet()
hOpen = InternetOpen(strUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString,vbNullString, 0)
End Sub

Private Sub CloseInternet()
If hConnection <> 0 Then InternetCloseHandle (hConnection)
If hOpen <> 0 Then InternetCloseHandle (hOpen)
hConnection = 0
hOpen = 0
End Sub

Private Sub ConnectInternet()
If bActiveSession = False And hOpen <> 0 Then
If strFtpServer = "" Then Exit Sub

hConnection = InternetConnect(hOpen, strFtpServer, INTERNET_INVALID_PORT_NUMBER, _
strUser, strPassword, INTERNET_SERVICE_FTP, 0, 0)
If hConnection = 0 Then
bActiveSession = False
Else
bActiveSession = True
End If
End If
End Sub

Private Sub DisconnectInternet()
If hConnection <> 0 Then InternetCloseHandle hConnection
hConnection = 0
End Sub

Private Sub UpLoadNow()
Dim i As Integer
Dim strFileLocal As String '要上传的本地文件
Dim strDestFile As String '
Dim bRet As Boolean

If bActiveSession = False Then Exit Sub

bRet = FtpSetCurrentDirectory(hConnection, "\upLoadFiles")
If bRet = False Then
Exit Sub
End If
bRet = FtpPutFile(hConnection, strFileLocal,strDestFile, FTP_TRANSFER_TYPE_BINARY, 0)
End Sub

Private Sub ErrorOutput(dError As Long)
Dim oFSO As FileSystemObject
Dim oTStream As TextStream
Dim dIntError As Long
Dim dLength As Long
Dim strBuffer As String
On Error Resume Next
Set oFSO = New FileSystemObject
Set oTStream = oFSO.OpenTextFile("C:\ErrorMsg.txt", ForAppending, True)

If dError = ERROR_INTERNET_EXTENDED_ERROR Then
InternetGetLastResponseInfo dIntError, vbNullString, dLength
strBuffer = String(dLength + 1, 0)
InternetGetLastResponseInfo dIntError, strBuffer, dLength
If Not oTStream Is Nothing Then
oTStream.WriteLine "[" & Now & "]" & " " & strBuffer
oTStream.Close
End If
End If
Set oTStream = Nothing
Set oFSO = Nothing
End Sub

sektor 2005-05-07

打赏
举报

不妨到asp版．FAQ里就有

求文件上传下载代码

相关推荐