cmueller/DelphiWebsockets
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/andremussche/DelphiWebsockets

Browse source
This commit is contained in:
André Mussche 2014-01-17 10:59:50 +01:00
commit c712228bbc
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
IdHTTPWebsocketClient.pas
View file

@ -1154,8 +1154,7 @@ begin
FChannels.UnlockList; FChannels.UnlockList;
strmEvent.Free; strmEvent.Free;
end; end;
end end;
else
end; end;
procedure TIdWebsocketMultiReadThread.RemoveClient( procedure TIdWebsocketMultiReadThread.RemoveClient(

4
IdIOHandlerWebsocket.pas
View file

@ -81,6 +81,8 @@ type
class property UseSingleWriteThread: Boolean read FUseSingleWriteThread write FUseSingleWriteThread; class property UseSingleWriteThread: Boolean read FUseSingleWriteThread write FUseSingleWriteThread;
end; end;
TThreadID = NativeUInt;
TIdWebsocketQueueThread = class(TThread) TIdWebsocketQueueThread = class(TThread)
private private
function GetThreadID: TThreadID; function GetThreadID: TThreadID;
@ -1036,7 +1038,7 @@ end;
procedure TIdWebsocketQueueThread.Execute; procedure TIdWebsocketQueueThread.Execute;
begin begin
TThread.NameThreadForDebugging(Self.ClassName); TThread.NameThreadForDebugging(ansistring(Self.ClassName));
while not Terminated do while not Terminated do
begin begin