eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed debug crap

This commit is contained in:
mysticbbs 2013-09-23 22:24:19 -04:00
parent ce0e8b8180
commit cbf82cbae3
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mdl/m_tcp_client.pas
View File

@ -68,7 +68,7 @@ Begin
If Client.FSocketHandle = -1 Then Exit; If Client.FSocketHandle = -1 Then Exit;
WriteLn ('DEBUG SENT ' + Str); // WriteLn ('DEBUG SENT ' + Str);
Client.PurgeInputData(1); Client.PurgeInputData(1);
@ -86,12 +86,16 @@ Begin
If Client.FSocketHandle = -1 Then Exit; If Client.FSocketHandle = -1 Then Exit;
// writeln ('debug in getresponse');
If Client.WaitForData(10000) > 0 Then If Client.WaitForData(10000) > 0 Then
If Client.ReadLine(ResponseStr) > 0 Then Begin If Client.ReadLine(ResponseStr) > 0 Then Begin
ResponseType := strS2I(Copy(ResponseStr, 1, 3)); ResponseType := strS2I(Copy(ResponseStr, 1, 3));
Result := ResponseType; Result := ResponseType;
WriteLn ('DEBUG RECV ' + ResponseStr); // WriteLn ('DEBUG RECV ' + ResponseStr);
// writeln('debug restype=', responsetype);
If ResponseStr[4] = '-' Then Begin If ResponseStr[4] = '-' Then Begin
{$IFDEF USESTRINGLIST} {$IFDEF USESTRINGLIST}
@ -101,6 +105,8 @@ Begin
Repeat Repeat
Res := Client.ReadLine(Str); Res := Client.ReadLine(Str);
// writeln ('debug got extended res:', res);
If Res < 0 Then If Res < 0 Then
Break; Break;
@ -111,6 +117,8 @@ Begin
Until Copy(Str, 1, 4) = strI2S(ResponseType) + ' '; Until Copy(Str, 1, 4) = strI2S(ResponseType) + ' ';
End; End;
End; End;
// writeln ('debug getres done');
End; End;
End. End.