Creare una web application con lazarus

[suibaf]

Ciao,,
ho letto l'articolo https://blog.lazaruspascal.it/2023/12/21/creare-una-web-application-con-lazarus/
Ho scaricato il progetto su https://github.com/XinYiMan/LazWebServer.git.
Quando, per vedere come funziona, ho lanciato il progetto ed aperto sul browser l'url http://localhost:5555/index lazarus va in errore: https://www.dropbox.com/scl/fi/roregm8fqtne2ynch605q/laz_error.jpg?rlkey=zwdcvif5culjsynccskyasqgu&dl=0

Vorrei capire cosa devo fare per farlo funzionare correttamente! Vorrei studiare  l'esempio. Grazie
Credo abbia ottime potenzialità questa funzionalità.
Con Lazarus sono alle prime armi.
Grazie in anticipo

[xinyiman]

Ciao, mi fa piacere che quel codice possa essere di spunto per qualcuno. Prima cosa, che sistema operativo usi per compilare? Seconda cosa. Prova a compilarlo e a lanciarlo da shell/terminale e vedi se così il problema si presenta.

[xinyiman]

La custom option -dSmartDebugLogWriteActive farà stampare sulla console le eccezioni così puoi vedere cosa capita

[suibaf]

Ciao, sto usando Windows10. Se lo compilo e lo lancio funziona regolarmente senza dare errori.
La custom option -dSmartDebugLogWriteActive è attivata, ma non vedo cenno di errori sulla console.
 

[suibaf]

Ho installato lazarus su linux Mint. Apro il progetto, lo mando in esecuzione, non mi apre la console. Vado sul browser http://localhost:5555/index.
Lazarus va in errore:
"Project lazwebserver raised exception class 'RunError (232)' with message:
Threads not supported
At address 4185F0

Non è un buon inizio con Lazarus.

Avete qualche consiglio per me?
Grazie

[DragoRosso]

Apri dal menu Progetto "Analizzatore progetti", avrai un elenco di file tra cui un file con suffisso LPR.

Aprilo.

La struttura è qualcosa di simile: Verifica che ci sia l'$IFDEF con UNIX (e se non c'è inseriscilo).

Codice: [Seleziona]

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  {$IFDEF HASAMIGA}
  athreads,
  {$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, unit1
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.