soket e synapse

[Diego1981]

ciao stilgar
nel lanciare il programma non mi trova le unit

slim.webapplication,
  slim.uri,
  slim.http.protocol,
  utils.php,
  psr.httpmessages,
  slim.httpmessages;

SlimServer.lpr(6,3) Fatal: Impossibile trovare la unit slim usato da SlimServer dell'Analizzatore Progetti.

[Stilgar]

Strano.
Nello zip c'è tutto

[Diego1981]

infatti i file ci sono ma forse è il mio compilatore che non va a pescarli correttamente

[Stilgar]

Controlla le impostazioni del progetto.
Deve cercare i .pas dentro "../src"

[Diego1981]

il file lpi è cosi

program SlimServer;

{$R *.res}

uses
  slim.webapplication,
  slim.uri,
  slim.http.protocol,
  utils.php,
  psr.httpmessages,
  slim.httpmessages;

begin
  Application.Initialize;
  Application.BaseDir := '..' + DirectorySeparator + '..' + DirectorySeparator + 'htdocs';
  Application.Run;
end.

nelle opzioni dei percorsi del complilatore "..\src"
nel dubbio allego stamp

[Stilgar]

Sembra tutto corretto

[Diego1981]

non sono riuscito ad usare il tuo programma ma ho provato comunque lo stresstest e con quello nessun problema,regge tutto
potrebbe essere qualcosa nelle pagine html???

[Diego1981]

Ciao Stilgar
scusa se mi rifaccio vivo solo adesso ma il lavoro ha interrotto i "lavori"
sono riuscito a capire che l'errore che fa si che la funzione canread(1000) si metta a restituire sempre falso è il 10093 (winsock not initialized)
grazie

[Stilgar]

Bene se hai capito il problema. Ora resta da trovare una soluzione 😊

[Diego1981]

giusto 
ci provo!!

[Diego1981]

ciao Stilgar
sono riuscito a far si che l'errore non si ripeta

questo era il codice che dava l'errore quando il server veniva "martellato" da più client contemporaneamente

procedure TServerThrd.Execute;
var
  ClientSock:TSocket;
begin
  with HttpServer do
    try
      CreateSocket;
      setLinger(true,10000);
      bind('0.0.0.0','7000');
      listen;
      repeat
        if terminated then break;
        if canread(1000) then
          begin
            ClientSock:=accept;
            if lastError=0 then
              TClientThrd.create(ClientSock);
          end;
      until false;
    except
      on E:Exception do
        begin
          Terminate;
          FR_Principale.MM_Log.Lines.Add(E.ClassName+' errore, messaggio server: '+E.Message);
        end;
    end;
end; 

e questo è il codice che non mi da più l'errore

procedure TServerThrd.Execute;
var
  ClientSock:TSocket;
  ThrdClient:TClientThrd;
begin
  with HttpServer do
    try
      CreateSocket;
      RaiseExcept:=True;
      setLinger(true,10000);
      bind('0.0.0.0','7000');
      listen;
      while not Terminated do
        begin
          if canread(1000) then
            begin
              ClientSock:=accept;
              if lastError=0 then
                begin
                  ThrdClient:=TClientThrd.Create(ClientSock);  //RIGA INCRIMINATA
                end;
            end;
        end;
    except
      on E:Exception do
        begin
          Free;
          FR_Principale.MM_Log.Lines.Add(E.ClassName+' errore, messaggio server: '+E.Message);
        end;
    end;

A livello teorico non capisco esattamente cosa cambia, puoi darmi la dritta?

grazie