paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 16:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Small bugfix.

Browse Source 
git-svn-id: trunk@62682 -
This commit is contained in:
balazs 2020-02-27 12:14:43 +00:00
parent ab0b56c0f8
commit 5930969e12
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -285,7 +285,10 @@ begin
MS.Position := 0; MS.Position := 0;
SetLength(JSON, MS.Size); SetLength(JSON, MS.Size);
MS.Read(Pointer(JSON)^, Length(JSON)); MS.Read(Pointer(JSON)^, Length(JSON));
try
SuccessfullyLoaded := SerializablePackages.JSONToPackages(JSON); SuccessfullyLoaded := SerializablePackages.JSONToPackages(JSON);
except
end;
if SuccessfullyLoaded then if SuccessfullyLoaded then
begin begin
DoOnJSONDownloadCompleted(Self, JSON, etNone); DoOnJSONDownloadCompleted(Self, JSON, etNone);