paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-13 14:29:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some fixes after tests with TSTrings

Browse Source
This commit is contained in:
michael 2020-08-14 09:34:44 +00:00
parent e52ab39d2b
commit 4be82217cd
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30,7 +30,10 @@ class procedure TBrowserLoadHelper.LoadText(aURL: String; aSync: Boolean; OnLoad
begin
Result:=False;
If (Res.status<>200) then
OnError('Error '+IntToStr(Res.Status)+ ': '+Res.StatusText)
begin
If Assigned(OnError) then
OnError('Error '+IntToStr(Res.Status)+ ': '+Res.StatusText)
end
else
Res.Text._then(
function (value : JSValue) : JSValue
@ -54,15 +57,15 @@ begin
With TJSXMLHttpRequest.new do
begin
open('GET', aURL, False);
responseType:='text';
AddEventListener('load',Procedure (oEvent: JSValue)
begin
OnLoaded(string(response));
OnLoaded(responseText);
end
);
AddEventListener('error',Procedure (oEvent: JSValue)
begin
OnError(TJSError(oEvent).Message);
if Assigned(OnError) then
OnError(TJSError(oEvent).Message);
end
);
send();