Добавить комментарий

Delphi

Сделать GET запрос.

function HttpGet(const url: string): string;
var
    idHTTP : TidHTTP;
    Stream : TStringStream;
begin
  result := EmptyStr;
  idHTTP:=TidHTTP.Create;
  Try
    idHTTP.AllowCookies:=True;
    idHTTP.HandleRedirects:=True;

    idHTTP.ProxyParams.Clear;
    if FNeedProxy then
    begin
      idHTTP.ProxyParams.ProxyPort           := FProxyPort;
      idHTTP.ProxyParams.ProxyServer         := FProxyServer;
      idHTTP.ProxyParams.ProxyUsername       := FProxyLogin;
      idHTTP.ProxyParams.ProxyPassword       := FProxyPassword;
      idHTTP.ProxyParams.BasicAuthentication := True;
    end;

    Stream := TStringStream.Create;
    try
      idHTTP.Get(url, Stream);
      Stream.Position := 0;
      Result := Stream.DataString;
    finally
      Stream.Free;
    end;
  finally
    idHTTP.Free;
  end;
end;
Метки:

Filtered HTML

  • Адреса страниц и электронной почты автоматически преобразуются в ссылки.
  • Допустимые HTML-теги: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Строки и абзацы переносятся автоматически.
  • Вы можете цитировать другие сообщения, используя тэг [quote]

Plain text

  • HTML-теги не обрабатываются и показываются как обычный текст
  • Адреса страниц и электронной почты автоматически преобразуются в ссылки.
  • Строки и абзацы переносятся автоматически.