Pascalscript and Methodchaining.
lazarus / 62-General

----------------------------------------------------------------------
Jan_ · 2022-03-17 11:17

Hi,
i try to do this in Pascalscript:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i program
webgettest;begin 
Twebget0Impl.create().https().host('spiegel.de').get();end.in the
Freepascal programm this works:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i program
fluent_interfaces_1;{$interfaces CORBA}uses webget;begin   
Twebget0Impl.Create().https().host('yourlahr.de').get();end. 
i created with the Delphi 7 - CMDimp.exe Programm (Git-remobjects-
Pascalscript-unit-importing) the class units for PS-Script.
i connected them via:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
//mypascalscript Constructor
 mypascalscript.Create(path:string);begin  ps_script :=
TPSScript.create(nil);  ps_script.OnCompile:= @OnCompile; 
ps_script.OnExecImport:= @OnExecImport; 
ps_script.Script.LoadFromFile(path);  if ps_script.compile then   
 ps_script.execute  else      //show any compile errors  begin 
 writeln('Pascal Script compile Error: '); 
 writeln(ps_script.CompilerErrorToStr(0));  end;end; procedure
mypascalscript.OnExecImport(Sender: TObject; se: TPSExec; x:
TPSRuntimeClassImporter);begin  RIRegister_Std(x); 
RIRegister_Classes(x,true);  RIRegister_webget(x); 
RIRegister_webget0Impl(x);  RIRegister_webget1Impl(x); 
RIRegister_webget2Impl(x);  RIRegister_webget3Impl(x); 
RIRegister_webget4Impl(x);  RIRegister_webget5Impl(x); 
RegisterDateTimeLibrary_R(se);end; procedure Mwrites(s:string);begin 
writeln(s);end;  procedure mypascalscript.OnCompile(Sender:
TPSScript);begin  RegisterDateTimeLibrary_C(Sender.Comp);  
SIRegister_Std(Sender.Comp);  SIRegister_Classes(Sender.Comp,true); 
SIRegister_webget(Sender.Comp);  SIRegister_webget0Impl(Sender.Comp); 
SIRegister_webget1Impl(Sender.Comp); 
SIRegister_webget2Impl(Sender.Comp); 
SIRegister_webget3Impl(Sender.Comp); 
SIRegister_webget4Impl(Sender.Comp); 
SIRegister_webget5Impl(Sender.Comp);   Sender.AddFunction(@MWrites,
'procedure Writes(const s: string)');end; var  ps_script:
mypascalscript;begin  ps_script :=
mypascalscript.Create('yourscript.txt');  ....i always get the error,
the https method is not found.
Quote[Error] (10:25): Unknown identifier 'HTTPS'i also tried it with
an AddRegisteredVariable and SetVarToInstance of the type
Twebget0Impl, but i always get the same error.
Is there a issue with method chaining on Pascal Script or what is my
error?

Full source (Lazarus 2.2):
https://owncloud.yourlahr.de/index.php/s/brMJ9NBWqK2UAp4

----------------------------------------------------------------------
Jan_ · 2022-03-18 08:01

Pascal script seems to have problems with the interfaces.

----------------------------------------------------------------------
Jan_ · 2022-03-18 08:28

I got it.

Added the Abstract Class as non abstract and replaced all interfaces
with Classes.