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-05-08 09:31:51 +02:00
parent 77841a45a7 f6f958fb74
commit 491206d8fb
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
IdHTTPWebsocketClient.pas
View file

@ -542,6 +542,7 @@ begin
sURL := Format('http://%s:%d/socket.io/1/', [Host, Port]); sURL := Format('http://%s:%d/socket.io/1/', [Host, Port]);
strmResponse.Clear; strmResponse.Clear;
ReadTimeout := 5 * 1000;
//get initial handshake //get initial handshake
Post(sURL, strmResponse, strmResponse); Post(sURL, strmResponse, strmResponse);
if ResponseCode = 200 {OK} then if ResponseCode = 200 {OK} then