fix: 不使用磁盘缓存
This commit is contained in:
@@ -64,13 +64,14 @@ Public Class MyBitmap
|
|||||||
BitmapCache.Add(FilePathOrResourceName, Pic)
|
BitmapCache.Add(FilePathOrResourceName, Pic)
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
|
Dim InputStream As Stream
|
||||||
If FilePathOrResourceName.StartsWithF("http") Then '在线图片(这里判断 https:\\ 或 http:\\ 会出问题)
|
If FilePathOrResourceName.StartsWithF("http") Then '在线图片(这里判断 https:\\ 或 http:\\ 会出问题)
|
||||||
Dim tempFile = PathTemp & "Cache\MyImage\" & GetHash(FilePathOrResourceName)
|
Dim Client = New Net.WebClient()
|
||||||
NetDownload(FilePathOrResourceName, tempFile, True)
|
InputStream = New MemoryStream(Client.DownloadData(FilePathOrResourceName))
|
||||||
FilePathOrResourceName = tempFile
|
Else
|
||||||
|
InputStream = New MemoryStream(File.ReadAllBytes(FilePathOrResourceName))
|
||||||
End If
|
End If
|
||||||
'使用这种自己接管 FileStream 的方法加载才能解除文件占用
|
'使用这种自己接管 FileStream 的方法加载才能解除文件占用
|
||||||
Using InputStream As New FileStream(FilePathOrResourceName, FileMode.Open)
|
|
||||||
'判断是否为 WebP 文件头
|
'判断是否为 WebP 文件头
|
||||||
Dim Header(1) As Byte
|
Dim Header(1) As Byte
|
||||||
InputStream.Read(Header, 0, 2)
|
InputStream.Read(Header, 0, 2)
|
||||||
@@ -85,7 +86,6 @@ Public Class MyBitmap
|
|||||||
Else
|
Else
|
||||||
Pic = New System.Drawing.Bitmap(InputStream)
|
Pic = New System.Drawing.Bitmap(InputStream)
|
||||||
End If
|
End If
|
||||||
End Using
|
|
||||||
End If
|
End If
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
Pic = My.Application.TryFindResource(FilePathOrResourceName)
|
Pic = My.Application.TryFindResource(FilePathOrResourceName)
|
||||||
|
|||||||
Reference in New Issue
Block a user