На форме: Webbrowser, label, edit, button.
Вот обработчик кнопки входа.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
document: IHTMLDocument2;
begin
WebBrowser1.Navigate(edit1.text+'/simpla');
while WebBrowser1.ReadyState<READYSTATE_COMPLETE do
begin
Application.ProcessMessages;
end;
document := WebBrowser1.Document as IHTMLDocument2;
if (document<>nil) and (WebBrowser1.OleObject.Document.Title='Товары') then
label1.caption:='Авторизовались'
else label1.Caption:='Не авторизовались';
if label1.caption='Авторизовались' then form2.ShowModal;
end;
Ввожу адрес сайта и нажимаю вход, далее вылазит форма входа, где надо ввести логин с паролем, но хотелось бы это подгружать еще из edit'ов все-таки))