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?

[DragoRosso]

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.

Perchè questa applicazione deve lavorare in multithread?

Non è un problema di debugging. E' un problema di gestione delle eccezioni. Essenzialmente  una applicazione WEB genera una serie di eccezioni gestite a runtime e quindi se la debugghi ti troverai il processo interrotto abbastanza spesso. Questo tipo di applicazione genera eccezioni per vari motivi: tentativi di criptatura e decriptatura errati (ad esempio se si usa TLS), timeout sui pacchetti TCP e poi per anche per come è stata costruita (alcune eccezioni vengono usate per "inviare" lo stato di una data situazione ad esempio).

E' un pò come accadeva nel passato quando la gestione della aritmetica poteva essere fatta o da processore o in simulazione (in quei casi le eccezioni erano gestite in modo che non potessero essere bloccate dai software di debug).

Comunque si può fare gestendo le "cose" come ti avevo accennato in un precedente post.

Sul perchè è multithreading: perchè lavorando in termini di rete deve esserlo per non bloccare l'interfaccia utente   (o il resto dei processi di un web server).

Prova ad immaginare un programma in attesa di un input da una "pagina web" ad esempio di scarico di un file. Se non fosse multithreading, finchè il file non viene inviato il web server sarebbe "inchiodato".

Su Linux purtroppo non sono ferrato a sufficienza. Posso però dirti che mentre la console in Windows la si ottiene semplicemente con le opzioni del progetto (quindi senza nessau intervento del programma), in Linux non mi pare si possa fare ciò, quindi è probabile che tu debba lanciare il programma direttamente da terminale (forse è proprio questo il problema).

Ciao