From 788f7c9a9664c280b8802508b57a77230310c5be Mon Sep 17 00:00:00 2001
From: tangge233 <tangge233@qq.com>
Date: Thu, 3 Oct 2024 13:49:54 +0800
Subject: [PATCH] =?UTF-8?q?fix:=20=E4=B8=8D=E4=BD=BF=E7=94=A8=E7=A3=81?=
 =?UTF-8?q?=E7=9B=98=E7=BC=93=E5=AD=98?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../Modules/Base/MyBitmap.vb                  | 38 +++++++++----------
 1 file changed, 19 insertions(+), 19 deletions(-)

diff --git a/Plain Craft Launcher 2/Modules/Base/MyBitmap.vb b/Plain Craft Launcher 2/Modules/Base/MyBitmap.vb
index 0f63b31..a7b8897 100644
--- a/Plain Craft Launcher 2/Modules/Base/MyBitmap.vb	
+++ b/Plain Craft Launcher 2/Modules/Base/MyBitmap.vb	
@@ -64,28 +64,28 @@ Public Class MyBitmap
                     BitmapCache.Add(FilePathOrResourceName, Pic)
                 End If
             Else
+                Dim InputStream As Stream
                 If FilePathOrResourceName.StartsWithF("http") Then '在线图片（这里判断 https:\\ 或 http:\\ 会出问题）
-                    Dim tempFile = PathTemp & "Cache\MyImage\" & GetHash(FilePathOrResourceName)
-                    NetDownload(FilePathOrResourceName, tempFile, True)
-                    FilePathOrResourceName = tempFile
+                    Dim Client = New Net.WebClient()
+                    InputStream = New MemoryStream(Client.DownloadData(FilePathOrResourceName))
+                Else
+                    InputStream = New MemoryStream(File.ReadAllBytes(FilePathOrResourceName))
                 End If
                 '使用这种自己接管 FileStream 的方法加载才能解除文件占用
-                Using InputStream As New FileStream(FilePathOrResourceName, FileMode.Open)
-                    '判断是否为 WebP 文件头
-                    Dim Header(1) As Byte
-                    InputStream.Read(Header, 0, 2)
-                    InputStream.Seek(0, SeekOrigin.Begin)
-                    If Header(0) = 82 AndAlso Header(1) = 73 Then
-                        '读取 WebP
-                        If Is32BitSystem Then Throw New Exception("不支持在 32 位系统下加载 WebP 图片。")
-                        Dim FileBytes(InputStream.Length - 1) As Byte
-                        InputStream.Read(FileBytes, 0, FileBytes.Length)
-                        Dim Decoder As New Imazen.WebP.SimpleDecoder()
-                        Pic = Decoder.DecodeFromBytes(FileBytes, FileBytes.Length)
-                    Else
-                        Pic = New System.Drawing.Bitmap(InputStream)
-                    End If
-                End Using
+                '判断是否为 WebP 文件头
+                Dim Header(1) As Byte
+                InputStream.Read(Header, 0, 2)
+                InputStream.Seek(0, SeekOrigin.Begin)
+                If Header(0) = 82 AndAlso Header(1) = 73 Then
+                    '读取 WebP
+                    If Is32BitSystem Then Throw New Exception("不支持在 32 位系统下加载 WebP 图片。")
+                    Dim FileBytes(InputStream.Length - 1) As Byte
+                    InputStream.Read(FileBytes, 0, FileBytes.Length)
+                    Dim Decoder As New Imazen.WebP.SimpleDecoder()
+                    Pic = Decoder.DecodeFromBytes(FileBytes, FileBytes.Length)
+                Else
+                    Pic = New System.Drawing.Bitmap(InputStream)
+                End If
             End If
         Catch ex As Exception
             Pic = My.Application.TryFindResource(FilePathOrResourceName)