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

Minor change to ReadChar function

This commit is contained in:
mysticbbs 2012-07-12 21:25:34 -04:00
parent 987e91d046
commit 463d3e05ba
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mdl/m_socket_class.pas
View File

@ -162,6 +162,12 @@ End;
Function TSocketClass.WriteBuf (Var Buf; Len: LongInt) : LongInt;
Begin
Result := fpSend(FSocketHandle, @Buf, Len, FPSENDOPT);
// While (Result = -1) and ((SocketError = SYS_EWOULDBLOCK) or (SocketError = SYS_ENOBUFS)) Do Begin
// WaitMS(10);
// Result := fpSend(FSocketHandle, @Buf, Len, FPSENDOPT);
// End;
End;
Procedure TSocketClass.BufFlush;
@ -176,6 +182,7 @@ End;
Procedure TSocketClass.BufWriteChar (Ch: Char);
Begin
FOutBuf[FOutBufPos] := Ch;
Inc(FOutBufPos);
If FOutBufPos > TSocketBufferSize Then Begin
@ -363,11 +370,8 @@ Begin
End;
Function TSocketClass.ReadChar : Char;
Var
Ch : Char;
Begin
ReadBuf(Ch, 1);
Result := Ch;
ReadBuf(Result, 1);
End;
Function TSocketClass.ReadBuf (Var Buf; Len: LongInt) : LongInt;
@ -375,6 +379,7 @@ Begin
If FInBufPos = FInBufEnd Then Begin
FInBufEnd := fpRecv(FSocketHandle, @FInBuf, TSocketBufferSize, FPRECVOPT);
FInBufPos := 0;
If FInBufEnd <= 0 Then Begin
FInBufEnd := 0;
Result := -1;
@ -404,7 +409,9 @@ Begin
If FInBufPos = FInBufEnd Then Res := ReadBuf(Ch, 0);
Ch := FInBuf[FInBufPos];
Inc (FInBufPos);
If (Ch <> #10) And (Ch <> #13) And (FInBufEnd > 0) Then Str := Str + Ch;
Until (Ch = #10) Or (Res < 0) Or (FInBufEnd = 0);