Парсинг

[Gudzik11]

Content-Encoding:gzip - сюрприз, данные приходят в GZIP сжатии

Спасибо! я так понимаю что gzip мне нужно как то обработать?
Вы не могли бы подсказать как это сделать в Delphi 7 и какие компоненты мне понадобятся?

[Shouldercannon]

Пост по теме
GZIP

[Gudzik11]

Вот пытался сделать по этой статье
http://vetalkov.ru/delphi/ispolzovanie-gzip-v-delphi/

получил тот же документ чти и при обычном скачивание .
Может я не то что то сделал ?
В том проекте изменил

if HTTP.HTTPMethod('GET', Url) then

на

if HTTP.HTTPMethod('GET', 'http://meteo.ua/150/harkov/10-days') then

и

buffer : RawByteString;

на

buffer : string;

[Человек_Борща]

сервер вам отправлет GZIP Stream. А вы его в строку пихаете.
Подключите ZLibExGZ и оттуда исп. GZDecompressStream

[Gudzik11]

Вы имеете введу так ?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 uses
  httpsend,
  ZLibExGZ,
  synautil;
procedure TForm1.Button1Click(Sender: TObject);

 var
	  http: THTTPSend;
	  str: string;
	begin
	  http := THTTPSend.Create;
	  HTTP.Protocol := '1.1'; // указываем версию HTTP протокола
	  http.Headers.Add('Accept-Encoding: gzip'); // указываем, что хотим получить сжатые данные
	  http.HTTPMethod('GET', 'http://meteo.ua/150/harkov/10-days');
	  HeadersToList(http.Headers); // полезная функция, позволяет перевести заголовок в параметрический вид
	  if trim(http.Headers.Values['Content-Encoding']) = 'gzip' then // если ответ пришел в сжатом виде
	  begin
	    str := ReadStrFromStream(http.Document, http.Document.Size); // считываем тело документа
	    str := GZDecompressStr(str); // распаковываем его
	  end;
	  str := ' ';
    Memo1.Text:= str  ;
	end;


end.

но так в обще нечего не находит

[Человек_Борща]

но так в обще нечего не находит

Сложно спорить..

	    str := GZDecompressStr(str); // распаковываем его
	  end;
	  str := ' ';
    Memo1.Text:= str  ;

Вы обнуляете строку после декомпрессии, и пихаете её в memo. А в строке у на 0.

[Gudzik11]

А что не так?

[C_R_E_S_C_H]

Сообщение от Gudzik11

А что не так?

вы переменную очистили вот и не находит нужно убрать строку

str := ' ';

[Gudzik11]

Спасибо я и не увидел

Ну всё равно получаю тот же самый документ .

[C_R_E_S_C_H]

Сообщение от Gudzik11

Ну всё равно получаю тот же самый документ .

Приведите его кусок