diff --git a/Plain Craft Launcher 2/Controls/MyImage.vb b/Plain Craft Launcher 2/Controls/MyImage.vb new file mode 100644 index 00000000..a5a71442 --- /dev/null +++ b/Plain Craft Launcher 2/Controls/MyImage.vb @@ -0,0 +1,116 @@ +Public Class MyImage + Inherits Image + +#Region "辅助属性注册" + + ''' + ''' 网络图片的缓存有效期。 + ''' 在这个时间后,才会重新尝试下载图片。 + ''' + Public FileCacheExpiredTime As New TimeSpan(7, 0, 0, 0) '7 天 + + ''' + ''' 是否允许将网络图片存储到本地用作缓存。 + ''' + Public Property EnableCache As Boolean + Get + Return _EnableCache + End Get + Set(value As Boolean) + _EnableCache = value + End Set + End Property + Private _EnableCache As Boolean = True + + '将 Source 属性映射到 XAML + Public Shared Shadows ReadOnly SourceProperty As DependencyProperty = DependencyProperty.Register( + "Source", GetType(String), GetType(MyImage), New PropertyMetadata(New PropertyChangedCallback( + Sub(sender, e) If sender IsNot Nothing Then CType(sender, MyImage).Source = e.NewValue.ToString()))) + +#End Region + + Private _Source As String = "" + ''' + ''' 与 Image 的 Source 类似。 + ''' 若输入以 http 开头的字符串,则会尝试下载图片然后显示,图片会保存为本地缓存。 + ''' 支持 WebP 格式的图片。 + ''' + Public Shadows Property Source As String '覆写 Image 的 Source 属性 + Get + Return _Source + End Get + Set(value As String) + If value = "" Then value = Nothing + If _Source = value Then Exit Property + _Source = value + Dim TempPath As String = $"{PathTemp}MyImage\{GetHash(value)}.png" + Try + '空 + If value Is Nothing Then + MyBase.Source = Nothing + Exit Property + End If + '本地图片 + If Not value.StartsWithF("http") Then + MyBase.Source = New MyBitmap(value) + Exit Property + End If + '从缓存加载网络图片 + If EnableCache AndAlso File.Exists(TempPath) Then + MyBase.Source = New MyBitmap(TempPath) + If (Date.Now - File.GetCreationTime(TempPath)) < FileCacheExpiredTime Then + Exit Property '无需刷新缓存 + Else + File.Delete(TempPath) '需要刷新缓存 + End If + Else + MyBase.Source = Nothing '清空显示 + End If + '下载网络图片 + RunInNewThread( + Sub() + Dim Url As String = value '重新捕获变量,以检测在下载过程中 Source 被修改的情况 + Dim Retried As Boolean = False +RetryStart: + Dim TempDownloadingPath As String = TempPath & RandomInteger(0, 10000000) + Try + Log("[MyImage] 正在下载图片:" & Url) + NetDownload(Url, TempDownloadingPath, True) + If Url <> Source Then + '若 Source 在下载时被修改,则不显示 + File.Delete(TempDownloadingPath) + ElseIf EnableCache Then + '保存缓存并显示 + Rename(TempDownloadingPath, TempPath) + RunInUi(Sub() MyBase.Source = New MyBitmap(TempPath)) + Else + '直接显示 + RunInUiWait(Sub() MyBase.Source = New MyBitmap(TempDownloadingPath)) + File.Delete(TempDownloadingPath) + End If + Catch ex As Exception + Try + File.Delete(TempDownloadingPath) + Catch + End Try + If Not Retried Then + Log(ex, $"下载图片可重试地失败({Url})", LogLevel.Developer) + Retried = True + Thread.Sleep(1000) + GoTo RetryStart + Else + Log(ex, $"下载图片失败({Url})", LogLevel.Hint) + End If + End Try + End Sub, "MyImage PicLoader " & GetUuid() & "#", ThreadPriority.BelowNormal) + Catch ex As Exception + Log(ex, $"加载图片失败({value})", LogLevel.Hint) + Try + File.Delete(TempPath) '删除缓存,以免缓存出现问题导致一直加载失败 + Catch + End Try + End Try + End Set + End Property + +End Class diff --git a/Plain Craft Launcher 2/Modules/Base/MyBitmap.vb b/Plain Craft Launcher 2/Modules/Base/MyBitmap.vb index e60d27a8..ac9fb213 100644 --- a/Plain Craft Launcher 2/Modules/Base/MyBitmap.vb +++ b/Plain Craft Launcher 2/Modules/Base/MyBitmap.vb @@ -152,4 +152,4 @@ Public Class MyBitmap End Using End Sub -End Class +End Class \ No newline at end of file diff --git a/Plain Craft Launcher 2/Plain Craft Launcher 2.vbproj b/Plain Craft Launcher 2/Plain Craft Launcher 2.vbproj index 841ab1a2..17bebb84 100644 --- a/Plain Craft Launcher 2/Plain Craft Launcher 2.vbproj +++ b/Plain Craft Launcher 2/Plain Craft Launcher 2.vbproj @@ -191,6 +191,7 @@ MyIconTextButton.xaml +