paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-16 18:09:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixes for Blob handling

Browse Source
This commit is contained in:
michael 2020-08-14 09:47:36 +00:00
parent ed92652785
commit a5a55469e9
1 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/rtl/Rtl.BrowserLoadHelper.pas
View File

@ -74,6 +74,17 @@ end;
class procedure TBrowserLoadHelper.LoadBytes(aURL: String; aSync: Boolean; OnLoaded: TBytesLoadedCallBack; OnError: TErrorCallBack);
function doFetchFail(response : JSValue) : JSValue;
begin
Result:=False;
if isObject(Response) and (TJSObject(Response) is TJSError) then
OnError('Error 999: '+TJSError(Response).Message)
else
OnError('Error 999: unknown error');
end;
function doFetchOK(response : JSValue) : JSValue;
var
@ -90,20 +101,15 @@ class procedure TBrowserLoadHelper.LoadBytes(aURL: String; aSync: Boolean; OnLoa
Res.Blob._then(
function (value : JSValue) : JSValue
begin
OnLoaded(TJSArrayBuffer(value));
TJSBlob(Value).ArrayBuffer._then(function(arr : JSValue) : JSValue
begin
OnLoaded(TJSArrayBuffer(arr))
end
).Catch(@DoFetchFail);
end
);
);
end;
function doFetchFail(response : JSValue) : JSValue;
begin
Result:=False;
if isObject(Response) and (TJSObject(Response) is TJSError) then
OnError('Error 999: '+TJSError(Response).Message)
else
OnError('Error 999: unknown error');
end;
function StringToArrayBuffer(str : string) : TJSArrayBuffer;