Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите разобраться с кодом, получение ссылок на сайте 
V
    Опции темы
Lence
  Дата 30.8.2006, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Чухарадземадзупэ
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

Репутация: 3
Всего: 3
Задача вот в чем 
нужно загрузить страницу  - пройтись по ее коду и вывести список всех имеющихся кликабельных ссылок... 

тут кое что набросал - но никак не могу понять в чем ошибка ... компилятор ругается .... 

Код

...
var
  w, s, s1: string;
  http1, http2: TIdHttp;
  i: integer;
begin
  w:=ExtractFilePath(paramstr(0));
  http1:=TIdHTTP.Create(form1);
  HTTP1.ProxyParams.ProxyServer:='';
  HTTP1.ProxyParams.ProxyPort:=0;
  http2:=TIdHTTP.Create(form1);
  HTTP2.ProxyParams.ProxyServer:='';
  HTTP2.ProxyParams.ProxyPort:=0;

  http1.OnWorkBegin:= Form1.OnWorkBegin;
  http1.OnWork:= Form1OnWork;
    begin
       try
         s:= http1.Get(Edit1.Text);
       try
         application.ProcessMessages;
         memo1.Clear;
         memo1.Lines.Add(s);
         i:=pos('href="',s);
    while i>0 do begin
      s:=copy(s,i+6,MaxInt);
      i:=pos('"',s);
      if  (ListView1.Items.IndexOf(copy(s,1,i-1))= -1)  and (ListView2.Items.IndexOf(copy(s,1,i-1))= -1) then  begin
        ListView1.Items.Add(copy(s,1,i-1)); //Äîáàâëÿåì â ñïèñîê
      end;
      s:=copy(s,i+1,MaxInt);
      i:=pos('href="',s);
    end;
...


компилятор ругается на
Код

 (ListView1.Items.IndexOf(copy(s,1,i-1))= -1)  and (ListView2.Items.IndexOf(copy(s,1,i-1))= -1)


 [Error] Unit1.pas(62): Incompatible types: 'TListItem' and 'String'

поможете разобраться ??? 

Это сообщение отредактировал(а) Lence - 30.8.2006, 22:45
--------------------
Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....  
PM MAIL ICQ Skype   Вверх
Matematik
Дата 31.8.2006, 10:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50
Вместо IndexOf используй ListView1.FindCaption()
PM MAIL WWW ICQ   Вверх
Тьма
Дата 31.8.2006, 10:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

Репутация: 1
Всего: 4
посмотри внимательно в справке какой параметр надо передавать в ListView1.Items.IndexOf
Цитата

Syntax 
[Delphi] function IndexOf(Value: TListItem): Integer;


попробуй применить TListView.FindCaption


--------------------
Vir magni ingenii                 
PM MAIL ICQ   Вверх
Lence
Дата 31.8.2006, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Чухарадземадзупэ
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

Репутация: 3
Всего: 3
Заменил на 
ListView1.FindCaption() 
результат тот же... 
не получается ....
--------------------
Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....  
PM MAIL ICQ Skype   Вверх
Snowy
Дата 31.8.2006, 12:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Неправильно действуешь.
Выбери все линки в StringList, отсортируй, убери дубликаты.
А уже по готовому стринглисту заполняй ListView.
PM MAIL   Вверх
Lence
Дата 31.8.2006, 12:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Чухарадземадзупэ
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

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

Неправильно действуешь.
Выбери все линки в StringList, отсортируй, убери дубликаты.
А уже по готовому стринглисту заполняй ListView


каким образом можно это сделать ? можно пример ??

я до этого отрезал ссылки таким вот образом 
Код

Edit2.Text :=Copy (s, Pos ('<a href="', s)+9, Pos('"', s) +1)

но не могу прогнать в цикле ...  да и отрезаются не правильно многие ссылки ... 

Это сообщение отредактировал(а) Lence - 31.8.2006, 12:50
--------------------
Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....  
PM MAIL ICQ Skype   Вверх
Akella
Дата 31.8.2006, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
заполняешь странг лист, после этого
сортируешь
StringList1.Sorted := true;
убираешь дубликаты
и посмотри в справке, как работать с StringList1.Duplicates

потом аж заполняешь листвью
PM MAIL   Вверх
Lence
Дата 1.9.2006, 15:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Чухарадземадзупэ
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

Репутация: 3
Всего: 3
Вопрос решен .... Большое всем спасибо!!!!
--------------------
Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....  
PM MAIL ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0655 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.