Четверг, 17.08.2017, 02:49 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: Anton93, Волк-1024, xXxSh@dowxXx 
delfcode » Delphi » Программы на Delphi » Определить наличие текста в html файле и выполнить код
Определить наличие текста в html файле и выполнить код
MASДата: Пятница, 17.10.2014, 21:45 | Сообщение # 1
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 66
Статус: Offline
Привет, программу в console application пытаюсь написать, которая должна работать так:
1) Ищет определенный текст в html файле, например текст delfcode (html файл находится например тут 123.ru/1.html)
2) Если текст найден, то выполняем код любой.
В программе с формой знаю как, а в программе без формы не знаю как, и возможно ли это


За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)

Сообщение отредактировал MAS - Пятница, 17.10.2014, 21:46
 
Волк-1024Дата: Суббота, 18.10.2014, 01:02 | Сообщение # 2
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 467
Статус: Offline
Держи, набросал тут немного:

Код

Program Test;

uses Windows, WinInet;

function ReadFileFromURL(URL: PChar; Buffer: Pointer): DWORD;
var
    BytesRead : DWORD;
    hInternet, hURL: WinInet.HINTERNET;
begin
    Result := 0;
    hInternet := InternetOpen('Test', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    if hInternet <> nil then
    begin
       hURL := InternetOpenUrl(hInternet, URL, nil, 0, INTERNET_FLAG_RELOAD or INTERNET_FLAG_DONT_CACHE, 0);
       if hURL <> nil then
       begin
          while InternetReadFile(hURL, (Pointer(DWORD(Buffer)+Result)), 1024, BytesRead) and (BytesRead = 1024) do
                Inc(Result, BytesRead);
          InternetCloseHandle(hURL);
       end;
       InternetCloseHandle(hInternet);
    end;
end;

var  
    Html : string;

begin
    SetLength(Html, 10000);
    ReadFileFromURL('http://google.ru', @Html[1]);

    if Pos('Поиск информации', Html) > 0 then  // Если нашли строку в коде страницы, то...
       MessageBox(0, 'Всё зер гут!', ':)', 0);
end.

Очень криво, но вроде работает. smile


Pascal, C\C++, Assembler, Python
 
MASДата: Суббота, 18.10.2014, 11:55 | Сообщение # 3
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 66
Статус: Offline
Почему же криво, всё зер гут! =)

За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)
 
Волк-1024Дата: Суббота, 18.10.2014, 14:43 | Сообщение # 4
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 467
Статус: Offline
Криво потому, что в функции накосячил логику.

Pascal, C\C++, Assembler, Python
 
delfcode » Delphi » Программы на Delphi » Определить наличие текста в html файле и выполнить код
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz