[orbb]

Привет дорогие ребята, я программист и электронщик , опубликовал несколько моих исходников на этом саите , но в сети я не очень, помогите пожалуйста.
Мне надо простую программу, которая открывает любую ссылку, получает страницу но не отображает ее, а только ее код в элементе RichEdit.
Потом я могу сделать алгоритм, которой ищет нужную мне информацию в этой странице.
Зараннее спасибо.

[NumLock]

Код:

begin
  RichEdit1.Text:=IdHTTP1.Get('http://ya.ru');
end;

но "правильней":

Код:

var
  AStrings: TStrings;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.Text:=IdHTTP1.Get('http://ya.ru');
  finally
    AStrings.Free;
  end;
end;

[orbb]

спасибо за простой пример , с некоторами страници ето вполне работает , но мне надо на ссылка http://www.facebook.com/ а ето зависает ?
в чем дело ?

[NumLock]

ничего не зависает, а просто редиректит. нужно перед Get добавить IdHTTP1.HandleRedirects:=True;

[orbb]

установил редирект на труе но опять зависает , у меня версия Делфи 6 , можно из етого ?
какая версия у вас ?

[orbb]

да ето из за версий , я установил 7 и проработало. спасибо.

[orbb]

работает , проблем только что откръивается стартовая страничка на етот адрес , а я входил в свой акаунт.
можно получить код HTML когда страница откръита в компоненте WebBrowser и получит код страничку от етого компонента ?

[orbb]

Все , нашел нужной исходник , спасибо.

uses mshtml;

var iall : IHTMLElement;
begin
if Assigned(WebBrowser1.Document) then
begin
iall := (WebBrowser1.Document AS IHTMLDocument2).body;

while iall.parentElement <> nil do
begin
iall := iall.parentElement;
end;
Form1.RichEdit1.Text := iall.outerHTML;
end;
end;