Bugfixes Server and Connection reuse

This commit is contained in:
René Linder 2020-11-30 08:15:50 +01:00
parent af15bd9dc6
commit 5a3e18a541

View file

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