0 / 0 / 0
Регистрация: 17.02.2016
Сообщений: 59
1

TChromium вылетает на некоторых страницах

02.03.2016, 18:49. Показов 396. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Пример: (вылетает после авторизации, был ещё сайт на него только переходишь и программа вылетает)
Мб я что не так делаю?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, cefvcl, ceflib;
 
type
  TForm1 = class(TForm)
    Chromium1: TChromium;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  CodeStr : string;
 
implementation
 
{$R *.dfm}
 
procedure Delay (dwMilliseconds: Longint);
var  iStart, iStop: DWORD;
begin  iStart := GetTickCount;
  repeat    iStop := GetTickCount;
  Sleep(1); // «начительно уменьшает загрузку процессора
  Application.ProcessMessages;
  until (iStop - iStart) >= dwMilliseconds;
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
chromium1.Load('https://www.fasttech.com/account/login');
 
delay(5000);
 
delay(1000);
CodeStr := 'document.getElementById("content_LoginEmail").value="'ваш логин'";'; //login
Chromium1.Browser.MainFrame.ExecuteJavaScript(CodeStr, 'about:blank', 0);
delay(1000);
CodeStr := 'document.getElementById("content_LoginPassword").value="'ваш пароль'";'; //pass
Chromium1.Browser.MainFrame.ExecuteJavaScript(CodeStr, 'about:blank', 0);
delay(1000);
CodeStr := 'document.getElementById("content_LoginButton").click()' ;
Chromium1.Browser.MainFrame.ExecuteJavaScript(CodeStr,'about:blank',0);
chromium1.Load('https://www.fasttech.com/shoppingcart');
end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2016, 18:49
Ответы с готовыми решениями:

Социалка на некоторых страницах
На одном сайте, на некоторых новых страницах вместо объявлений начинает показываться социальная...

Не подгружается css на некоторых страницах
Делаю сайт на вордпресе (свой шаблон) на 3х языках - Укр/Eng/Рус . В хроме и опере все работает. В...

на некоторых страницах съезжает div
на некоторых страницах съезжают div'ы и я не могу понять причины, а как следствие и методов...

Не работает слайдер на некоторых страницах
Сделал слайдер и поместил его в отдельный файл heder.html <div class="container-fluid"> <div...

0
02.03.2016, 18:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.03.2016, 18:49
Помогаю со студенческими работами здесь

Не отображаются картинки на некоторых страницах сайта
Добрый день. Столкнулся с проблемой, что не отображаются картинки на некоторых страницах сайта...

Обнаружение вируса на некоторых страницах сайта
Всем привет! Давненько на сайте поселился вирус. Нод32 блокирует картинки и файлы которые лежат в...

Выпадающее меню не видно на некоторых страницах
Сделал выпадающее меню, но на страницах где под меню слайдер и div с бэкграундом, этого выпадающего...

Запрет запуска кода на некоторых страницах
Здравствуйте. У меня в вордпрессе стоит слайдер <!-- slider --> <?php if...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru