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.

[suibaf]

Trovato,

la struttura che c'è è questa:

Codice: [Seleziona]

program lazwebserver;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  {$IFDEF OpenSslOk}
  opensslsockets,
  {$ENDIF}
  fphttpapp, HTTPDefs, fphttp, Classes, sysutils, uControl, uSmartDebugLog, uCustomException,
  uCustomGetModule, uCookieManagement, uConsts, uJWTAbstract;      

[xinyiman]

Verifica se tra le custom options hai

-dUseCThreads

Altrimenti se non c'è mettilo a mano

[DragoRosso]

Questa "cosa" dei CThreads è sempre stata un mistero per me. E' una libreria alternativa ai PThreads (che mi pare sia la libreria nativa e originale dei sistemi Linux).

Perchè FPC non la "wrappa" nei TThreads classici stile Windows ? Almeno uno si toglie il pensiero e usa di fatto una sola classe.

Poi magari differiranno su particolari d'uso, ma si avrebbe una sola classe integrata in FPC (FPC stesso penso usi i Thread anche in Linux internamente per alcune operazioni ...), senza necessità di Uses "strane".

Bhò, misteri dell'informatica.

[suibaf]

Verifica se tra le custom options hai

-dUseCThreads

Altrimenti se non c'è mettilo a mano

Stai parlando per linux o per windows? Io non riesco a farlo andare ne in un ambiente ne nell'altro.

[xinyiman]

Verifica se tra le custom options hai

-dUseCThreads

Altrimenti se non c'è mettilo a mano

Stai parlando per linux o per windows? Io non riesco a farlo andare ne in un ambiente ne nell'altro.

Parlo di linux.

Ma scusa su windows hai detto che compilando ed eseguendo funziona. Giusto?
Dall'ide saltano fuori delle eccezioni che da eseguibile vengono gestite per la normale operatività. Oltre al fatto che per natura debuggare roba che funziona in multithread è ostico concettualmente.

[DragoRosso]

Facciamo un attimo il punto:

1) Build sotto Windows e lancio senza debugger: funziona il progetto ?

2) Build sotto Linux e  lancio senza debugger: funziona il progetto ?

Puoi eliminare il "{$IFDEF UseCThreads}" e il corrispondente "{$ENDIF}" senza problemi. Puoi sempre eventualmente reinserirlo.

Usare il debugger su applicazioni di questo tipo come accennava @xinyiman è problematico. Se vuoi farlo devi incominciare a selezionare "Non Mostrare più" quando ti compare una eccezione fino a quando non ti gira tutto senza eccezioni, e poi puoi impostare i tuoi breakpoint dovi ti interessano.

Facci sapere.

[suibaf]

1) Build sotto Windows e lancio senza debugger: funziona il progetto ?

Si funziona

1) Build sotto Linux e  lancio senza debugger: funziona il progetto ?

No non funziona, non sia apre neanche la console.

Usare il debugger su applicazioni di questo tipo come accennava @xinyiman è problematico. Se vuoi farlo devi incominciare a selezionare "Non Mostrare più" quando ti compare una eccezione fino a quando non ti gira tutto senza eccezioni, e poi puoi impostare i tuoi breakpoint dovi ti interessano.

Non riesco a capire come faccio a scrivere un sw senza fare il debug. Si tratta di un piccolo esempio figuriamoci se il progetto si ingrandisce tanto. Sono partito molti anni fa con VB6 e poi con Xojo (un compilatore multi piattaforma), ed ho sempre fatto il debug anche di progetti grossi. Non riesco a capire come potrei fare senza. Chiedo scusa ma davvero con Lazarus sono alle prime armi e stò valutando se può essere uno strumento che io possa usare o sia in grado di usare.

Grazie

[suibaf]

Perchè questa applicazione deve lavorare in multithread?