Valky
Понедельник, 02 Декабря 2002, 14:05
Delphi 6.0, а посему исходники выкладывать нет смысла, т.к. там всё готовенькое, в данном случае, работает элемент NMHTTP из библиотечки FastNet. Вот процедура его вызова:
try
NMHTTP1.InputFileMode := FALSE;
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
If ProxyCheck.Checked then
Begin
NMHTTP1.Proxy := ProxyEdit1.Text;
NMHTTP1.ProxyPort := StrToInt(ProxyEdit2.Text);
End;
NMHTTP1.Get(Address);
PageContent.Text := NMHTTP1.Body; // PageContent : TStringList;
GetHTMLpage := True;
except
GetHTMLpage := False;
end...
(плюс еще добавляем обработку сообщений от NMHTTP, типа Invalid Host, Connection failed и т.п.)
А остальная часть программы элементарна (т.е. недостойна обнародования
): вытаскиваем страничку, ищем некую ключевую фразу (например "Флейм" или "Анекдоты" и двигаемся дальше). Чистая логика и просмотр HTML-кода форума.
Вот если бы на основе такого опыта написать что-то более универсальное и менее ёмкое... Но, кажется, такие проги уже есть, да и задачка это будет на порядок посложнее - вот здесь и проходит граница между любительским (это я про себя) и профессиональным программированием!
ЗЫ. Спасибо! Было приятно услышать добрые отзывы.
