|
MAS
|
Дата: Пятница, 17.10.2014, 21:45 | Сообщение # 1
|
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: 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
Группа: Модераторы
Сообщений: 469
Статус: 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.
Очень криво, но вроде работает. 
Pascal, C\C++, Assembler, Python
|
| |
|
|
|
MAS
|
Дата: Суббота, 18.10.2014, 11:55 | Сообщение # 3
|
|
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
|
Почему же криво, всё зер гут! =)
За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)
|
| |
|
|
|
Волк-1024
|
Дата: Суббота, 18.10.2014, 14:43 | Сообщение # 4
|
|
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 469
Статус: Offline
|
Криво потому, что в функции накосячил логику.
Pascal, C\C++, Assembler, Python
|
| |
|
|
