Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / 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 код, а в нее уже подставляется новый адрес. Если это так, то как этого избежать?

TUserClass (2008-06-27 12:39:00) [1]
тока еще try ... exceptнадо добавить для Memo1.Lines.Add(IdHTTP1.Get(Memo2.Lines[I]));

TUserClass (2008-06-27 12:36:00) [2]
procedure TForm1.Button3Click(Sender: TObject); var I : integer; begin If not fileexists ('c:\http.txt') then begin ShowMessage ('промазал!'); exit; end; memo2.Lines.LoadFromFile('c:\http.txt'); Memo1.Clear; ProgressBar1.Max := memo2.Lines.Count-1; If Memo2.Lines.Count = 0 then ShowMessage ('Пустой Я!') else For i:=0 to Memo2.Lines.Count - 1 do begin Memo1.Lines.Add ('HTML-код сайта ' + Memo2.Lines[I] + ':'); Memo1.Lines.Add(IdHTTP1.Get(Memo2.Lines[I])); Memo1.Lines.Add (''); end; Memo1.Lines.Add ('Выгоните меня из института, ПОЖАЛУСЙТА!'); end;

clickmaker (2008-06-27 12:21:00) [3]
> [32] Поросенок Винни-Пух © (27.06.08 12:20)
> А цикл то тут зачем?
>
> для надежности. вдруг новые посты в ветке появятся

О, да это практически движок нового ДМ-клиента :)

Поросенок Винни-Пух (2008-06-27 12:20:00) [4]
А цикл то тут зачем?

для надежности. вдруг новые посты в ветке появятся

Anatoly Podgoretsky (2008-06-27 12:17:00) [5]
> lewka-serdceed (27.06.2008 12:07:28) [28]

Деньги есть? Заплати бедному соседу.
А после окончания ВУЗа что собираешься делать, занимать чьето место?

Anatoly Podgoretsky (2008-06-27 12:16:00) [6]
> Поросенок Винни-Пух (27.06.2008 11:54:20) [20]

А цикл то тут зачем?

Ega23 (2008-06-27 12:15:00) [7]

> Это часть моей лабораторной! на экзамен надо ее

"Тебя отчислят, и правильно сделают" (с) Дмитрий Акуличев aka DimondShark

lewka-serdceed (2008-06-27 12:07:00) [8]
Дак как мне сделать то?
Это часть моей лабораторной! на экзамен надо ее

Поросенок Винни-Пух (2008-06-27 12:05:00) [9]
даже шесть

Поросенок Винни-Пух (2008-06-27 12:04:00) [10]
зато целых пять раз работает без ошибок

lewka-serdceed (2008-06-27 12:01:00) [11]
Дак так он 5 раз будет отрывать один и то же HTML код, а мне нужно чтобы вместо http://www.delphimaster.ru/cgi-bin/forum.pl?id=1214551258&n=18подставлялась i-ая строка из Memo2, и в Memo1 были HTML-коды каждой страницы по очереди

clickmaker (2008-06-27 12:01:00) [12]
> [23] Поросенок Винни-Пух © (27.06.08 11:59)
> Да просто очередной приколист из старичков

"Не верьте, ребята, девчатам из чата:
У них есть и дети и даже внучата,
Еще борода и прокуренный свитер,
А рядом стоит, как минимум, литр" (с)
o)

Поросенок Винни-Пух (2008-06-27 11:59:00) [13]
Да просто очередной приколист из старичков

Ega23 (2008-06-27 11:58:00) [14]
А ведь он, поди, за это деньги получает...

sanka_mozgoed (2008-06-27 11:57:00) [15]
мда. не повезло тебе коллега

Поросенок Винни-Пух (2008-06-27 11:54:00) [16]
for i:=0 to 5 do begin
memo1.Clear;
label1.Caption:=memo2.Lines[i];
Memo1.Lines.Add(IdHTTP1.Get(' http://www.delphimaster.ru/cgi-bin/forum.pl?id=1214551258&n=18'));
end;

lewka-serdceed (2008-06-27 11:53:00) [17]
Ребята покажите как надо изменить код,пожалуйста. Срочно надо.

Поросенок Винни-Пух (2008-06-27 11:50:00) [18]
давайте оставим чела в покое.
:)

lewka-serdceed (2008-06-27 11:48:00) [19]
подскажите как мне исправить этот код. я попробывал и с Self.Caption и Application.Title.

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

Игорь Шевченко (2008-06-27 11:43:00) [20]

> а куда тогда URL девается.

в recycle bin

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

Наверх

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