EugeneX MiniWeb

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== Очень быстрый способ перенести данные с TStream в Ansi строку ======

Самый быстрый из мне известных способов прочитать строку из потока.

<code pascal>

    procedure StreamToString(var AStr: string; AData: TStream);
    var nLen: Int64;
    begin
        nLen := Math.Min(AData.Size, 2147483647);
        SetLength(AStr, nLen);
        AData.Seek(0, soFromBeginning);
        AData.Read(PChar(AStr)^, nLen);
    end;
    procedure TForm1.FormCreate(Sender: TObject);
    var
        Response: string;
    begin
        HttpCli1.URL := 'http://forum.rukilovolt.info/index.php';
        HttpCli1.RcvdStream := TMemoryStream.Create;
        HttpCli1.Get;

        StreamToString(Response, HttpCli1.RcvdStream);
        Memo1.Lines.Text := Response;

        HttpCli1.RcvdStream.Free;
        HttpCli1.RcvdStream := nil;
    end;

</code>

EugeneX MiniWeb

User Tools

Site Tools

Page Tools