VPF::Функции с ListView в dll - Форум программистов

Anakin

Дата 4.8.2012, 00:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет

Добрый вечер.
Есть вопрос.
Имеются 3 функции которые парсят сайт эти функции используют ListView для хранения пропарсеных результатов.
Так вот мне хочетса создать чтото вроде плагин модулей тоесть 1 длл для одного сайта дальше другая длл для другого сайта.
Вопрос заключаетса в том, можно ли вогнать эти функции воткнуть в длл и потом их оттуда вызывать.

Код


function ParseTags(ColumnMatch: TMatch; ListItem: TListItem): Boolean;
const
  TypeExpression = 'alt="(.*?)"';
  TitleExpression = '<a.*?>(.*?)</a>';
  UrlExpression = '<a href="details\.php\?id=(\d*?)"';
var
  CellMatch: TMatch;
begin
  Result := False;

  // Get type.
  CellMatch := TRegEx.Match(ColumnMatch.Value, TypeExpression);
  if CellMatch.Groups.Count <> 2 then
    Exit;
  ListItem.Caption := CellMatch.Groups[1].Value;
  ColumnMatch := ColumnMatch.NextMatch;

  // Get title.
  CellMatch := TRegEx.Match(ColumnMatch.Value, TitleExpression);
  if CellMatch.Groups.Count <> 2 then
    Exit;
  ListItem.SubItems.Add(CellMatch.Groups[1].Value);
  //ColumnMatch := ColumnMatch.NextMatch;

      // Get ID.
  CellMatch := TRegEx.Match(ColumnMatch.Value, UrlExpression);
  if CellMatch.Groups.Count <>2 then
    Exit;
  ListItem.SubItems.Add(CellMatch.Groups[1].Value);
  ColumnMatch := ColumnMatch.NextMatch;

  Result := True;
end;

function ParseColumns(ColumnMatch: TMatch; ListView: TsListView): Boolean;
const
  TypeExpression = 'alt="(.*?)"';
  TitleExpression = '<a.*?>(.*?)</a>';
  TagExpression = '<[^<]+?>';
  GrabColumns = [2,3, 4, 5, 6, 7];
var
  ListItem: TListItem;
  ColumnIndex: Integer;
  Column: String;
begin
  Result := False;
  ListItem := ListView.Items.Add;
  if not ParseTags(ColumnMatch, ListItem) then
    Exit;

  // Get other columns.
  ColumnIndex := 0;
  while ColumnMatch.Success do
  begin
    if ColumnIndex in GrabColumns then
    begin
      Column := TRegEx.Replace(ColumnMatch.Value, TagExpression, '');
      ListItem.SubItems.Add(Column);
    end;
    Inc(ColumnIndex);
    ColumnMatch := ColumnMatch.NextMatch;
  end;

  Result := True;
end;

function ParseHtml(const Input: String; ListView: TsListView): Boolean;
const
  TableExpression = '<table.*?class="tableTorrents">(.*?)</table>';
  RowExpression = '<tr.*?>(.*?)</tr>';
  ColumnExpression = '<td.*?>(.*?)</td>';
var
  TableMatch, RowMatch, ColumnMatch: TMatch;
  Table, Row: String;
begin
  Result := False;
  TableMatch := TRegEx.Match(Input, TableExpression, [roSingleLine]);
  if not TableMatch.Success then
    Exit;
  Table := TableMatch.Groups[1].Value;
  RowMatch := TRegEx.Match(Table, RowExpression, [roSingleLine]);

  // Skip header.
  RowMatch := RowMatch.NextMatch;
  while RowMatch.Success do
  begin
    Row := RowMatch.Groups[1].Value;
    ColumnMatch := TRegEx.Match(Row, ColumnExpression, [roSingleLine]);
    if not ParseColumns(ColumnMatch, ListView) then
      Exit;
    RowMatch := RowMatch.NextMatch;
  end;

  Result := True;
end;

Заранее Благодарен.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »