PB_Includes
/
lweb
1
0
Fork 0
Code Issues 3 Pull Requests Projects 1 Releases 2 Wiki Activity

Bugfixes Server and Connection reuse

This commit is contained in:
René Linder 2020-11-30 08:15:50 +01:00
parent af15bd9dc6
commit 5a3e18a541
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lweb.pbi
View File

@ -151,7 +151,6 @@ Module lhs_web
;* Proceduren Deklarierung
;*
Declare server(network_server_id.i)
Declare server_HTTP(network_server_id.i)
Declare server_HTTPS(network_server_id.i)
Declare client(network_client_id.i)
@ -824,7 +823,7 @@ Module lhs_web
Until sent_length <= 0
sent = sent_total
thread_alive = #False
;thread_alive = #False
Else
sent_length = sent_total
@ -843,7 +842,7 @@ Module lhs_web
Until sent_length <= 0
sent = sent_total
thread_alive = #False
;thread_alive = #False
EndIf
If sent = thread_data_size+(thread_buffer_offset-thread_buffer)
@ -851,7 +850,7 @@ Module lhs_web
;Debug "Gesendet:" + PeekS(thread_buffer,thread_buffer_length, #PB_Ascii)
FreeMemory(thread_buffer)
m_clients(Str(thread_cli_id))\client_do_cli = #CLI_DO_WaitDataReceive
m_clients(Str(thread_cli_id))\client_do_srv = #SRV_DO_NOP
m_clients(Str(thread_cli_id))\client_do_srv = #SRV_DO_DataReceive
Else
;Fehler beim Senden ... Thread beenden.
Debug "Fehler:" + Str(Sent)