From 5a3e18a5413eb11be77755aff511cb6e719701aa Mon Sep 17 00:00:00 2001 From: Ground0 Date: Mon, 30 Nov 2020 08:15:50 +0100 Subject: [PATCH] Bugfixes Server and Connection reuse --- lweb.pbi | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lweb.pbi b/lweb.pbi index 3dfe6aa..bd522cd 100644 --- a/lweb.pbi +++ b/lweb.pbi @@ -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)