| Код |
Function ResultData(Data : TStrings; Stream : TMemoryStream);
var
p, q, r : PChar;
begin
p := Stream.Memory;
q := p + Stream.Size;// -1; fixed by Shay Horovitz
r := p;
while (p <> nil) and (p < q) do begin
while (p < q) and (p^ <> #13) and (p^ <> #10) do
Inc(p);
Data.Add(Copy({StrPas}(r), 1, p - r));
if (p[0] = #13) and (p[1] = #10) then
Inc(p, 2)
else
Inc(p);
r := p;
end;
end;
...............
var
DataIn : TMemoryStream;
begin
//Тут всякие темы типа урл, узер агент, и тд.
DataIn := TMemoryStream.Create;
HttpCli.RcvdStream := DataIn;
try
HttpCli.Post;
finally
ResultData(Memo1.Lines,DataIn);
DataIn.Free;
end;
|
|