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

* Use headers in both request and response

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-05-24 11:13:33 +02:00
parent 9e0d6d0729
commit 85d9b33f6c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/rtl/weborworker.pas
View File

@ -210,7 +210,8 @@ type
procedure append(aName, aValue : String); procedure append(aName, aValue : String);
procedure delete(aName : String); procedure delete(aName : String);
function entries : TJSIterator; function entries : TJSIterator;
Function get(aName: String): string; Function get(aName: String): string; // string, but can be Null. Only use after Has returned true.
function getRaw(const aName : string): JSValue; external name 'get'; // can return null
Function has(aName: String): Boolean; Function has(aName: String): Boolean;
function keys : TJSIterator; reintroduce; function keys : TJSIterator; reintroduce;
function values : TJSIterator; reintroduce; function values : TJSIterator; reintroduce;
@ -227,7 +228,7 @@ type
TJSResponse = class external name 'Response' (TJSBody) TJSResponse = class external name 'Response' (TJSBody)
private private
fheaders: TJSHTMLHeaders;external name 'headers'; fheaders: TJSHTMLHeaders; external name 'headers';
fok: Boolean; external name 'ok'; fok: Boolean; external name 'ok';
fredirected: Boolean; external name 'redirected'; fredirected: Boolean; external name 'redirected';
fstatus: NativeInt; external name 'status'; fstatus: NativeInt; external name 'status';
@ -282,7 +283,7 @@ type
FCache: String; external name 'cache'; FCache: String; external name 'cache';
FCredentials: TJSObject; external name 'credentials'; FCredentials: TJSObject; external name 'credentials';
FDestination: String; external name 'destination'; FDestination: String; external name 'destination';
FHeaders: TJSObject; external name 'headers'; FHeaders: TJSHTMLHeaders; external name 'headers';
FIntegrity: String; external name 'integrity'; FIntegrity: String; external name 'integrity';
FMethod: String; external name 'method'; FMethod: String; external name 'method';
FMode: String; external name 'mode'; FMode: String; external name 'mode';
@ -303,8 +304,7 @@ type
Property Cache : String Read FCache; Property Cache : String Read FCache;
Property Credentials : TJSObject Read FCredentials; Property Credentials : TJSObject Read FCredentials;
Property Destination : String Read FDestination; Property Destination : String Read FDestination;
// TODO : actually Headers object Property Headers : TJSHTMLHeaders Read FHeaders;
Property Headers : TJSObject Read FHeaders;
Property Integrity : String Read FIntegrity; Property Integrity : String Read FIntegrity;
Property Method : String Read FMethod; Property Method : String Read FMethod;
Property Mode : String Read FMode; Property Mode : String Read FMode;