Search options (Page 4 of 7)

Дмитрий прошу прощения...скорей всего за мой не корректный вопрос!!!
Пост № 3
1.) Сделал TableGrid1 читаемость-многострочный...работает ОК!!!
2.) Form1.Memo3.Lines.Add(Email);   // Email: String;

Вопрос:
Как сохранить многострочный текст из переменной  (Email) в одно поле???
рисунок прилагается...

Здравствуйте Дмитрий!!!
Используя Ваш скрипт "Регулярное выражения"
Попытался сделать запись в Б.Д...MVD...

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
  RegExp: TRegExp;
  i: integer;
  Email: String;
begin
  RegExp := TRegExp.Create(Form1.Edit1.Text);
  RegExp.InputString := Form1.Memo1.Text;

  if RegExp.Exec then
  repeat
        // Матчи
        Form1.Memo2.Lines.Add( RegExp.Match[0] );


        // группы
        for i := 1 to RegExp.Match.Count-1 do
            Form1.Memo3.Lines.Add('Group'+IntToStr(i)+': '+RegExp.Match[i]);

        // запись в Б.Д...MVD...
            Email:=Form1.Memo3.Text;
            SQLExecute ('INSERT INTO AAA (aaa) VALUES ("'+ Email +'");');
            Form1.TableGrid1.dbUpdate;

  until not RegExp.ExecNext;

  RegExp.Free;
end;

1.) Сделал TableGrid1 читаемость-многострочный...работает ОК!!!
2.) У Вас в Form1.Memo3.Text видим:

Group1: tdlite.exe
Group1: js.exe

Проблема в том, что в таблицу "AAA" происходит две записи:
1.  Group1: tdlite.exe
---------------------------------------------------------
2. Group1: tdlite.exe
    Group1: js.exe
Вопрос: Как сохранить запись из переменой "Email" в таблицу "AAA",
что бы в гриде увидеть только ???

Group1: tdlite.exe
Group1: js.exe

Всех ФОРУМЧАН  <<C Новым Годом!!!>>

ВАУ...!!!  СПАСИБО ДМИТРИЙ!!!

Не совсем недопониманию суть..., но Вы
делайте всё, что хотите с полной версией(GET запросы...парсинг) ...НО...
ВАЖНО!!! Номер телефона возьмите с мобильной версии, а потом прикрутите в Б.Д.!!!
В полной версии телефона "НЕТ"...там имеется картинка с "номером телефона"
Как то так!!!

Приветствую sidhillsaid Вы спрашивали номер телефона???
закиньте на Form1 .....TWebBrowser и Memo1...

var
    Web: TWebBrowser;


procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var

  sHTML: string;
begin

           Web.Navigate('https://m.avito.ru/krasnodar/avtomobili/lexus_ls_2008_811743617');

          while Web.ReadyState <> 4 do Application.ProcessMessages;
     if    Web.ClickElement('span', 'Показать номер')  then

          Sleep(3000);
          Application.ProcessMessages;
begin
          while Web.ReadyState <> 4 do Application.ProcessMessages;

    sHTML := Web.GetHTMLBody;
    Form1.Memo1.Text := sHTML;

end;
 end;
procedure Form1_OnShow (Sender: string; Action: string);
begin
    Web := TWebBrowser.Create(Form1);
    TWinControl(Web).Parent := Form1.Panel1;
    Web.Width := Form1.Panel1.Width;
    Web.Height := Form1.Panel1.Height;
    Web.Silent := 1;
end;

begin

end.

Номер телефона в Form1.Memo1.Text...потом "парсингом" - " выкавыриваем"!!!

Здравствуйте Дмитрий!!!
Это просто ЧУДО!!!....,ДЛЯ ПОЛНОГО СЧАСТЬЯ НЕ ХВАТАЕТ....:
отображения в едит адреса странички, которая находиться в TWebBrowser...
Это сложно будет воплотить в реальность???

Приветствую!
Да...такая возможность появилась благодаря новым возможностям MVD...(ClickElement)
С такими темпами "инфляции"... "нас ни кто не догонит"!!!!!!!!!!!!!!!!!!...-Дмитрий СПАСИБО ВАМ!!!
Авито-№ телефона
1.) Делаем веб-браузер...заганяем в него страничку с Авито
P./S. Важно!!! именно мобильную версию!!!
2.) используем пример Дмитрия в этой теме ПОСТ № 6(происходит автоматический клик по номеру телефона)
3.) используем пример Дмитрия в этой теме ПОСТ № 2
(получаем исходный HTML-код странички которая загружена именно в TWebBrowser )
Надеюсь Вам эта инфа поможет!

Дмитрий это просто ЧУДЕСНО!!! Огромное Вам СПАСИБО!!!
Подскажите как проверить по клику на Button1:
1) если подключения с "интернетом"  НЕТ...then  ShowMessage('нет интернета') else Form1.Memo1.Lines.Add (Source);

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
 Source: string;
begin
    try
      Source:= HTTPGet('https://www.yandex.ru',True);
    except
        if ExceptionMessage <> 'HTTP/1.1 404 Not Found' then  ShowMessage('нет интернета') else Form1.Memo1.Lines.Add (Source);
    end;
end;

отчего то вторая часть не срабатывает ...(else Form1.Memo1.Lines.Add (Source)
где я напортачил???
2.) как сделать проверку: до конца ли загрузилась страничка в TWebBrowser???
это нужно для:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   sHTML: string;
begin
    while Web.ReadyState <> 4 do Application.ProcessMessages;
    sHTML := Web.GetHTMLBody;
    Form1.Memo1.Text := sHTML;
end;

P.S. используя новый метод ClickElement  в TWebBrowser, если сразу запросить sHTML := Web.GetHTMLBody,
то получим HTML-код до применения  метода ClickElement...так как страничка не успела загрузиться в TWebBrowser...

может быть прогресс-бар показывал загрузку странички в TWebBrowser

не давая другим действиям опережать события?
3.) есть способ по клику на Button1 открыть именно:

ShowMessage('Привет!')  //без кнопки "ОК" -не принципиально, но интересно?

на три секунды...после чего оно автоматически само закроется(минимум скрипта)???

Дмитрий...это просто чудо...ВСЁ РАБОТАЕТ...ОК!!!
Дмитрий...и пользователи MVD кто увлекается парсингом!!!
Есть сайт:

URL :='https://m.avito.ru/sankt-peterburg/sobaki/miniatyurnyy_metis_rotveylera_devochka_866645105'  //именно мобильная версия

в нём надо спарсить номер телефона!!!, но проблема в том, что на сайте присутствует битон "показать номер"!!!
У меня в голове крутится два решения:
1.) делаем:

S:=HTTPGet('https://m.avito.ru/sankt-peterburg/sobaki/miniatyurnyy_metis_rotveylera_devochka_866645105');

В коде находим нужную строчку...она нужна для следующего запроса:

sankt-peterburg/sobaki/miniatyurnyy_metis_rotveylera_devochka_866645105/phone/a16d85fb23a4c6d042f5bad7773d5ee6 

А теперь самое интересное...программкой "fiddler web debugger " при нажатием на битон "показать номер"
перехватываю данные который посылает браузер для получении номера "{"phone":"8 921 964-64-89"}" от сервера...
мои перехваченные данные из браузера:
Headres

GET /sankt-peterburg/sobaki/miniatyurnyy_metis_rotveylera_devochka_866645105/phone/a16d85fb23a4c6d042f5bad7773d5ee6?async HTTP/1.1
Accept: application/json
Accept-Encoding: gzip, deflate, lzma, sdch, br
Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/54.0.2840.87 Safari/537.36 OPR/41.0.2353.56
X-Requested-With: XMLHttpRequest
Referer: https://m.avito.ru/sankt-peterburg/sobaki/miniatyurnyy_metis_rotveylera_devochka_866645105
Connection: keep-alive
Host: m.avito.ru

Raw

GET https://m.avito.ru/sankt-peterburg/sobaki/miniatyurnyy_metis_rotveylera_devochka_866645105/phone/a16d85fb23a4c6d042f5bad7773d5ee6?async HTTP/1.1
Host: m.avito.ru
Connection: keep-alive
Accept: application/json
X-Requested-With: XMLHttpRequest
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/54.0.2840.87 Safari/537.36 OPR/41.0.2353.56
Referer: https://m.avito.ru/sankt-peterburg/sobaki/miniatyurnyy_metis_rotveylera_devochka_866645105
Accept-Encoding: gzip, deflate, lzma, sdch, br
Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4

Как я только их не группировал...какими символами их не разделял...результат нулевой...
S:=HTTPGet('?????????????????????????????????????????????????????????????');  //как правильно это записать???
Естественный вопрос: в MVD-это возможно??? или нужна доп.функция???
2.) Также интересно...ВЫ Дмитрий на пост №2 показали как из самого TWebBrowser по клику на битон
получить исходный HTML-код странички которая загружена именно в TWebBrowser...ОК!!!
Вопрос:
если страничка:     

URL :='https://m.avito.ru/sankt-peterburg/sobaki/miniatyurnyy_metis_rotveylera_devochka_866645105'  //именно мобильная версия

загружена в TWebBrowser...теперь по клику на битон в MBD...
автоматически происходил клик на битоне "показать номер" в  TWebBrowser загруженной странички???
Такое возможно??? или это из области фантастики моих мыслей???
Любая идея будет в помощь!!! Заблаговременно СПАСИБО!!!