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

* Add FormData class

Browse Source
This commit is contained in:
michael 2019-07-24 16:31:19 +00:00
parent f8e50a2d39
commit e2b9a878ad
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/rtl/web.pas
View File

@ -3397,6 +3397,26 @@ Type
TJSHTMLAudioElement = Class external name 'HTMLAudioElement' (TJSHTMLMediaElement) TJSHTMLAudioElement = Class external name 'HTMLAudioElement' (TJSHTMLMediaElement)
end; end;
TJSFormDataEntryValue = String;
TJSFormDataEntryValueArray = Array of TJSFormDataEntryValue;
TJSFormData = Class external name 'FormData' (TJSObject)
constructor new;
constructor new(aForm : TJSHTMLElement);
Procedure append(const aName,aValue : String);
Procedure append(const aName : String; aBlob : TJSBlob);
Procedure delete(const aName : String);
Function entries : TJSFormDataEntryValueArray;
Function get(const aName : String): TJSFormDataEntryValue;
function has(const aName : String): Boolean;
Function keys : TStringDynArray; reintroduce;
Procedure set_(const aName,aValue : String); external name 'set';
Procedure set_(const aName : String; aBlob : TJSBlob); external name 'set';
Function getAll(const aName : String) : TJSFormDataEntryValueArray;
Function values : TJSValueDynArray;
Property Entry[aIndex : String] : TJSFormDataEntryValue read Get;
end;
var var
document : TJSDocument; external name 'document'; document : TJSDocument; external name 'document';
window : TJSWindow; external name 'window'; window : TJSWindow; external name 'window';