Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.01.2013, 17:28   #1
Xmaksasx
 
Регистрация: 24.04.2012
Сообщений: 9
По умолчанию Клик по ссылке и перенапровление в TWebbrowser

Добрый вечер уважаемые жители форума, проблема такая не могу кликнуть по ссылки она во фрейме
Код HTML:
<a class="" id="mbets" target="middle" href="/bets/bets.php">список ставок</a></li><
уже перепробовал много чего ну так и не понял(((
Xmaksasx вне форума Ответить с цитированием
Старый 29.01.2013, 19:58   #2
Xmaksasx
 
Регистрация: 24.04.2012
Сообщений: 9
По умолчанию

там всего три фрейма
Код HTML:
<frame name="btop" src="top.php" 
<frame name="center" src="center.php" 
<frame name="bottom" src="bottom.php" marginwidth="0" marginheight="0" scrolling="no" frameborder="0" noresize>
во фрейме Top находится форма для авторизации
ну куда вводить логин и пароль и жать кнопку для входа это у меня получается сделать вот таким кодом

Код:
procedure TForm1.Button3Click(Sender: TObject);
var
 I: Integer;
 ovElements: OleVariant;
 Doc:IHTMLDocument2;
 S:string;
 HTML_Doc: IHTMLDocument2;
 Window: IHTMLWindow2;
 frame,name_frame: Olevariant;
begin
  HTML_Doc := Form1.WebBrowser1.Document as IHTMLDocument2;
  Window := HTML_Doc.parentWindow as IHTMLWindow2;
  name_frame := 'btop';
  frame:=Window.frames.item(name_frame).document;
  ovElements:= frame.forms.item(0);
    for I := 0 to ovElements.Length - 1 do
     begin
       if ovElements.item(i).Name = 'login' then
         begin
            ovElements.item(i).Value := edit1.Text;
         end;
       if ovElements.item(i).Name = 'pwd' then
         begin
            ovElements.item(i).Value := edit2.Text;
         end;
         begin
            ovElements.All.Tags('input').Item(2).Click;
         end;
     end;

end;

end.
ну не получается в другом фрейме
Xmaksasx вне форума Ответить с цитированием
Старый 30.01.2013, 14:28   #3
Xmaksasx
 
Регистрация: 24.04.2012
Сообщений: 9
По умолчанию

Ребят ну подскажите хотя бы в какую сторону мне рыть, потому что я видимо плохо понимаю, на одном iframe две как бы кнопки на одну могу тыкнуть, а на вторую нет( вот как быть
Xmaksasx вне форума Ответить с цитированием
Старый 30.01.2013, 15:03   #4
Lardes
Форумчанин
 
Аватар для Lardes
 
Регистрация: 19.08.2011
Сообщений: 329
По умолчанию

Позволь спросить, для чего тебе использовать WebBrowser и кликать на ссылку? Если для авторизации, то можно сделать более проще и удобнее с помощью Indy или Synapse

Последний раз редактировалось Lardes; 30.01.2013 в 15:08.
Lardes вне форума Ответить с цитированием
Старый 30.01.2013, 21:23   #5
Xmaksasx
 
Регистрация: 24.04.2012
Сообщений: 9
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Клик по ссылке в iframe! cashmail Работа с сетью в Delphi 3 12.03.2013 23:10
Клик по ссылке в TWebBrowser referent Компоненты Delphi 0 02.02.2012 16:48
Клик по ссылке Webbrowser DeFix Работа с сетью в Delphi 2 29.11.2011 16:09
клик по ссылке sevitov_yura Работа с сетью в Delphi 0 28.07.2010 00:13
Клик по ссылке Ecosasha JavaScript, Ajax 0 17.11.2009 15:25