скачивание картинок с demotivators.ru

[Pein95]

   for k := 0 to List_jpg.Count - 1 do
   begin
     idhttp1.Get(list_jpg.Strings[k],stream);
     randomize;
     x:=random(100000000);
     stream.SaveToFile(edit2.text+inttostr(x)+'.jpg');
     stream.Free;
   end;

вот код с помощю которого я скачиваю картинки... Но проблема в том, что возникает вот такая ошибка:
First chance exception at $7524B727. Exception class EAccessViolation with message 'Access violation at address 00000000. Read of address 00000000'. Process Project1.exe (2384).
как её можна исправить?

[Аватар]

А stream создавать не надо? При чем вне цикла и убивать вне цикла. И randomize один раз делается, а не в цикле

[Pein95]

стрим создан. если вынести Stream.free из цикла, то скачиваютса одно изображения несколько раз.

[Аватар]

Даже если он создан вы его убиваете после считывания первой же картинки

[Pein95]

ясн) понял) сделал.. уже скачивает норм, но если я хочу отпарсить более одной страницы возникает такая ошибка:
Exception class EIdSocketError with message 'Socket Error # 10054 Connection reset by peer.'.
вот весь исходник:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    UpDown1: TUpDown;
    Edit3: TEdit;
    Label2: TLabel;
    UpDown2: TUpDown;
    Edit2: TEdit;
    Label3: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


const link='http://demotivators.ru/?page=';

function get_link(text:string; b_str:string; e_str:string ):tstringlist;
var
bg,en,i:integer;
res:string;

begin
  //b_str= 'href="/posters/'
  //e_str=  '.htm"><img'
  result:=tstringlist.Create;
  for I := 1 to 12 do
  begin
    bg:=pos(b_str,text);
    en:=pos(e_str,text);
    res:='http://demotivators.ru'+copy(text,bg+6,en-bg-2);
    result.Add(res);
    delete(text,1,en+10);
    delete(text,1,pos(b_str,text)+15);
  end;

end;




function get_jpg(text:string; b_str:string; e_str:string):string;
var
bg,en:integer;
begin
  //b_str= 'id="poster" src="/media/posters/'
  //e_str=  '.jpg" alt'
  bg:=pos(b_str,text);
  en:=pos(e_str,text);
  result:=copy(text,bg+17,en-bg-13);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
x:int64;
s,res,name:string;
list_link:tstringlist;
list_jpg:tstringlist;
stream:tmemorystream;
begin
list_link:=tstringlist.Create;
list_jpg:=tstringlist.Create;
stream:=tmemorystream.Create;
randomize;
for I := strtoint(edit1.Text) to strtoint(edit3.Text) do
begin
   s:=idhttp1.Get(link+inttostr(i));
   list_link:=get_link(s, 'href="/posters/', '.htm"><img' );
   for j := 0 to List_link.Count - 1 do
     begin
       s:=idhttp1.Get(list_link.Strings[j]);
       list_jpg.Add('http://demotivators.ru'+get_jpg(s, 'id="poster" src="/media/posters/', '.jpg" alt'));
     end;
   for k := 0 to List_jpg.Count - 1 do
   begin

     idhttp1.Get(list_jpg.Strings[k],stream);

     x:=random(100000000);
     stream.SaveToFile(edit2.text+inttostr(x)+'.jpg');
     stream.clear;



   end;
   list_jpg.Clear;
   list_link.Clear;

end;
stream.Free;
list_jpg.Free;
list_link.Free;



end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
edit1.Text:=inttostr(updown1.Position);
end;

procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
edit3.Text:=inttostr(updown2.Position);
end;

end.

[Pein95]

Что ни у кого идей нет(?

[Человек_Борща]

Исчерпывающий ответ

[Pein95]

к сожелению полностю не помогло... теперь работает токо на первых двух страницах, но если парсим 3 и 4 опять та же ошибка, если парсим в промежутке от 1 до 5 работает только на первих двух

[Человек_Борща]

Делайте задержку. Вы создаёте нагрузку на сервер, вот вас и посылают "лесом"....

[Pein95]

думал также... пробовал задержку после скачивания в 3 секунды, и между переходами страниц в 50 сек. не помогло..