Синтаксис Synapse

[Kolovrat]

есть такой метод булевский он на выходе выдает true или false,у меня такой вопрос если допустим true где хранится полученная страничка и
как посмотреть ее код, полученный методом GET и вывести его в Memo чтобы посмотреть на него?плохо еще знаю синтаксис по этому решил спросить

procedure TForm1.Button1Click(Sender: TObject);
var m : THTTPSend;
begin
m := THTTPSend.Create;
edt1.Text := 'http://yandex.ru/';
if m.HTTPMethod('GET', edt1.Text) then
end;

 

[Sascha]

procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: THTTPSend;
begin
  HTTP := THTTPSend.Create;
  try
    HTTP.ProxyHost := Edit8.Text;
    HTTP.ProxyPort := Edit9.Text;
    HTTP.HTTPMethod('GET', Edit1.text);
    Memo1.Lines.Assign(HTTP.Headers);
    Memo2.Lines.LoadFromStream(HTTP.Document); // вот здесь текст переходит в мемо.
  finally
    HTTP.Free;
  end;
end;

 

[Kolovrat]

Саша все работает спасибо,но наверное перед запросом надо чистить Headers и Document? или не обязательно?

 

[Sascha]

Memo чисть и запрос

 

[Kolovrat]

извиняюсь за наглость конечно,тему можно закрывать,но еще один вопрос,я почему эту тему поднял,так как у меня есть написанный прокси чекер,вот и решил туда прикрутить проверку на блек лист,может кто уже реализовывал такое,интересует какое нибудь готовое решение,в качестве примера для понимая или если оно стандартное то просто встрою в свой софт,зачем велосипед изобретать,если он уже изобретен

 

[Sascha]

Вот нам тоже было бы интересен сам "Исходный код", чтобы не изобретать вилосипед

 

[Kolovrat]

Вот нам тоже было бы интересен сам "Исходный код", чтобы не изобретать вилосипед

чуть не понял,код чей интересен мой?ну если решения нет,тогда можно закрывать тему,буду думать как самому это реализовать,сложности в этом я не вижу,вся проблема лишь заключается в быстродействии и в правильно подобраном алгоритме