vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-05 20:42:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

It works for some reason now

Browse source
This commit is contained in:
Ruben Shekspir 2019-05-05 14:08:14 +04:00
parent 6c66d03769
commit 7576130b76
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
http.Mod
View file

@ -73,7 +73,8 @@ BEGIN
REPEAT REPEAT
val[i] := buff[valPositionStart + i]; val[i] := buff[valPositionStart + i];
INC(i); INC(i);
UNTIL ORD(val[i]) = 10; (* 0DX number(newline)*) UNTIL (ORD(val[i]) = 10) (* 0DX number(newline)*) OR
(i > Strings.Length(buff));
END getHeader; END getHeader;
PROCEDURE get *(host, path, port: ARRAY OF CHAR; VAR buff: ARRAY OF CHAR); PROCEDURE get *(host, path, port: ARRAY OF CHAR; VAR buff: ARRAY OF CHAR);
@ -112,7 +113,6 @@ BEGIN
AppendEOLAndClean("", sendClean); AppendEOLAndClean("", sendClean);
connectionFlag := Internet.Write(socket, sendClean^); connectionFlag := Internet.Write(socket, sendClean^);
REPEAT REPEAT
connectionFlag := Internet.Read(socket, tmpBuff); connectionFlag := Internet.Read(socket, tmpBuff);
Strings.Append(tmpBuff, buff); Strings.Append(tmpBuff, buff);