Delphi парсинг ссылок с HTML страницы

В статье покажу пример сбора ссылок с HTML страницы. 

В инете есть куча статьей как сделать на delphi сбор ссылок ну или delphi парсинг ссылок у каждого свой вариант. 

Создаём процедуру для парсинга ссылок. 

procedure parser(html:string); //Процедура для парсинга кода

begin

while Pos('href="', html) <> 0 do

begin

Delete(html, 1, Pos('href="', html) + Length('href="') - 1);

Form1.Memo1.Lines.Add(Copy(html, 1, Pos('"', html) - 1));

Application.ProcessMessages;

end;

end;

Объясню всё подробно. 

От начало и до конца кода, мы приходимся и проверяем есть ли (href="), если присутствует, то парсим то что в (href="***") и удаляем за собой в коде html, дабы не добавлялись дубликаты. 

Теперь нам надо получить HTML код и получить список ссылок. 

Добавляем на фому: Memo1, IdHTTP1 и Button1. 

В обработчик onclick для кнопки, пихаем такой код. 

?

1

parser(IdHTTP1.Get('http://stex.at.ua/'));

Ну и получим список ссылок которые есть в тэге href="". И всё! :) ТАк же можно сделать на delphi сбор url картинок.

procedure TForm1.Button1Click(Sender: TObject);

var pass,vhodpass:string; //Указываем переменные

begin

pass:=('123'); //Задаем пароль, который будет использоваться для входа в программу

vhodpass:=Edit1.Text; //Указываем программе, откуда берется значение переменной vhodpass

if vhodpass=pass then //Проверяется условие соответствия. Если все правильно, то....

begin

Showmessage('Спасибо за регистрацию!'); //... выводится сообщение об успехе, показывается вторая форма и скрывается первая, а если нет, то...

form1.Visible:=false;

form2.Show;

end

else

showmessage('Неправильный пароль!'); //...выводится сообщение об ошибке

end;

Плавное открытие и закрытие формы..

Для достижения этого эффекта необходимо в события формы OnCreate и OnClose добавить следующий код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

AnimateWindow(Handle, 1000, AW_HIDE or AW_BLEND)

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

AnimateWindow(Handle, 1000, AW_BLEND)

end;

Где 1000 - это длительность открытия и закрытия,можно изменить по своему усмотрению.

procedure TForm1.Button1Click(Sender: TObject);

begin

SendMessage (FindWindow ('Progman', 'Program Manager'), WM_CLOSE, 0, 0);

end;