[rob777]

Здравствуйте! Программа должна скачивать код интернет страницы (например:www.lm/n125412 от 000000 до 999999). Delphi владею плоховато, буду благодарен за помощь. вот, что получилось:

Код:

unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ComCtrls,progressbar1, edit1, label1;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var LoadStream: TMemoryStream; i:integer; str:string;
begin
progressbar1.Max:=strtoint(edit1.Te xt);
progressbar1.Min:=strtoint(edit2.Te xt);
assignfile(f,'c:\st.txt');
rewrite(f);
closefile(f);

for i := strtoint(edit2.Text) to strtoint(edit1.Text) do
begin
rewrite(f);
closefile(f);
str:='http://www.lm/n'+inttostr(i);;
LoadStream := TMemoryStream.Create;
idHTTP1.Get(str, LoadStream);
LoadStream.SaveToFile('c:\st.txt');
LoadStream.Free;
form1.Refresh;
progressbar1.Position:=i;
label1.Caption:=inttostr(i)+'/'+edit1.Text;
progressbar1.Repaint;
end;
end;
end.

Админ: Пользуемся тегами для оформления кода.

[M.A.D.M.A.N.]

_ И?

[rob777]

Программа не работает, где-то я допустил ошибку, не знаю где

[M.A.D.M.A.N.]

Код:

assignfile(f,'c:\st.txt');
rewrite(f);
closefile(f);
....
rewrite(f);
closefile(f);

Вот это вот че за х-ня?

[rob777]

Создает файл, открывает,закрывает. Если есть свой способ, можете показать свой, непринципиально

[M.A.D.M.A.N.]

Мне не понятно, на кой она его открывает, перезаписывает, потом закрывает, а потом мы пытаемся работать уже с закрытым файлом (а точнее ничего с ним не делаем).
В чем смысл?