| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с получением HTML кода [D7, XP]

Страницы:   < 1 2 >

lewka-serdceed ©   (2008-06-27 11:20:00) 

подскажите как сделать так чтобы работал вот такой цикл:
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
memo2.Lines.LoadFromFile('c:\http.txt');
memo1.Clear;
ProgressBar1.Max:=memo2.Lines.Count-1;
for i:=0 to 5 do begin memo1.Clear;
label1.Caption:=memo2.Lines[i]+'    '+inttostr(i);
Memo1.Lines.Add(IdHTTP1.Get(label1.Caption));
end;
end;
С самого начала работы вылетает. Я так понимаю функция   Memo1.Lines.Add(IdHTTP1.Get(label1.Caption))не успевает получить еще HTML код, а в нее уже подставляется новый адрес. Если это так, то как этого избежать?

---

Palladin   (2008-06-27 11:42:00) [21]

> lewka-serdceed   (27.06.08 11:41) [14]

ты реально туп
label1.Caption:=memo2.Lines[i] +'    '+inttostr(i);
выделенное жирным это по твоему что?

---

lewka-serdceed   (2008-06-27 11:41:00) [22]

а куда тогда URL девается. я же присваиваю его  label1.Caption

---

clickmaker   (2008-06-27 11:41:00) [23]

> я понимаю что не найдет адрес, но почему? Ведь туда подставляется
> текст из label1.Caption

Убийственная логика )

---

TUserClass   (2008-06-27 11:39:00) [24]

> lewka-serdceed   (27.06.08 11:36) [10]


 Ну тогда все понятно - нету того УРЛ, который в гет подставляешь.

---

Поросенок Винни-Пух   (2008-06-27 11:38:00) [25]

Ведь туда подставляется текст из label1.Caption
Это неверно. Нужен текст из Self.Caption
или Application.Title

---

lewka-serdceed   (2008-06-27 11:36:00) [26]

for i:=0 to 5 do begin
memo1.Clear;
label1.Caption:=memo2.Lines[i];
Memo1.Lines.Add(IdHTTP1.Get(label1.Caption));
end;

Даже если так то все равно не работает. Memo1 я очищаю чтобы не было предыдущего теста при добавлении нового.
а ошибка вот такая: HTTP\1.1 404 not Found.
я понимаю что не найдет адрес, но почему? Ведь туда подставляется текст из label1.Caption

---

Anatoly Podgoretsky   (2008-06-27 11:35:00) [27]

Автор жжет. Убери цикл.

---

TUserClass   (2008-06-27 11:34:00) [28]

> label1.Caption:=memo2.Lines[i]+'    '+inttostr(i);


Уверен что у тебя точно 6 строк в мемо? Может стоит так?:

for i:=0 to Memo2.Lines.Count - 1 do ...

---

TUserClass   (2008-06-27 11:29:00) [29]

> TUserClass ©   (27.06.08 11:28) [6]


Ага...понял ... сори ..

---

TUserClass   (2008-06-27 11:28:00) [30]

for i:=0 to 5 do begin memo1.Clear;
...
end;
Зачем каждый раз мемо очищаешь?

---

Palladin   (2008-06-27 11:27:00) [31]

> lewka-serdceed   (27.06.08 11:26) [2]

а +'    '+inttostr(i);это мне просто кажется? и текст ошибки ты кончено как ничего не значащую картинку воспринимаешь?

---

Поросенок Винни-Пух   (2008-06-27 11:27:00) [32]

+inttostr(i);

... и цифры

---

Поросенок Винни-Пух   (2008-06-27 11:26:00) [33]

ты в TLabel.Caption чего суешь то?

Буквы

---

lewka-serdceed   (2008-06-27 11:26:00) [34]

в TLabel.Caption я вставляю строку из memo2

---

Palladin   (2008-06-27 11:25:00) [35]

ты в TLabel.Caption чего суешь то?

---

Страницы:   < 1 2 >

Наверх