Ошибка в довнлоадере

[fudihet]

Доброго времени суток!

Помогите найти ошибку. После старта потока файл начинает загружатся а после чего поток зависает

....

var
  Form1: TForm1;
  WorkMax, TickCount, BytesCount: Int64;
  link: string;

implementation

{$R *.dfm}

function ExtractUrlFileName(const FileName: string): string;
var
  I: Integer;
begin
  I := FileName.LastDelimiter('/');
  Result := FileName.SubString(I + 1);
end;

function SizeOfFile(Size: Double): String;
begin
  if Size < 1024 then
    Result := Format('%.2f', [Size]) + ' Б';
  if Size > 1024 then
    Result := Format('%.2f', [Size / 1024]) + ' Кб';
  if Size > 1048576 then
    Result := Format('%.2f', [Size / 1048576]) + ' Мб';
  if Size > 1073741824 then
    Result := Format('%.2f', [Size / 1073741824]) + ' Гб';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  adir, afile: string;
begin
  if SelectDirectory('Выберите каталог', '', adir) then
  begin
    if adir[Length(adir)] <> '\' then
      adir := adir + '\';
    afile := ExtractUrlFileName(link);
    Edit1.Text := adir + afile;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  IdThreadComponent1.Start;
end;

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
var
  I: Int64;
begin
  if (ASender as TIdHttp).Response.ResponseCode <> 200 then
    Exit;
  ProgressBar1.Position := AWorkCount;
  ProgressBar2.Position := WorkMax - AWorkCount;
  CaptionDownload.Caption := SizeOfFile(AWorkCount);
  CaptionLeft.Caption := SizeOfFile(WorkMax - AWorkCount);
  I := GetTickCount;
  if I > TickCount then
    CaptionSpeed.Caption := SizeOfFile((AWorkCount - BytesCount) *
      (1000 / (I - TickCount))) + '/c';
  BytesCount := AWorkCount;
  TickCount := I;
end;

procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  if (ASender as TIdHttp).Response.ResponseCode <> 200 then
    Exit;
  TickCount := GetTickCount;
  BytesCount := 0;
  WorkMax := AWorkCountMax;
  CaptionSizeFile.Caption := SizeOfFile(WorkMax);
  ProgressBar1.Max := WorkMax;
  ProgressBar1.Position := 0;
  ProgressBar2.Max := WorkMax;
  ProgressBar2.Position := WorkMax;
end;

procedure TForm1.IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
  if (ASender as TIdHttp).Response.ResponseCode <> 200 then
    Exit;
  Timer1.Enabled := false;
  IdThreadComponent2.Start;
end;

procedure TForm1.IdThreadComponent1Run(Sender: TIdThreadComponent);
var
  Stream: TFileStream;
  Http1: TIdHttp;
begin
  CaptionTime.Caption := '00:00:00';
  Timer1.Tag := 0;
  Timer1.Enabled := true;
  Stream := TFileStream.Create(Edit1.Text, fmCreate);
  Http1 := TIdHttp.Create(nil);
  Http1.HandleRedirects := true;
  Http1.OnWorkBegin := IdHTTP1WorkBegin;
  Http1.OnWork := IdHTTP1Work;
  Http1.OnWorkEnd := IdHTTP1WorkEnd;
  try
    Http1.get(link, Stream);
  except
    if IdThreadComponent1.Terminated then
      Exit;
    Sender.Synchronize(messageerror);
    Stream.Free;
    Http1.Free;
    Timer1.Enabled := false;
    IdThreadComponent1.Stop;
    Exit;
  end;
  Stream.Free;
  Http1.Free;
  IdThreadComponent1.Stop;
end;

procedure TForm1.IdThreadComponent2Run(Sender: TIdThreadComponent);
begin
  Sender.Synchronize(messageok);
  IdThreadComponent2.Stop;
end;

procedure TForm1.messageerror;
begin
  ShowMessage('Ошибка');
end;

procedure TForm1.messageok;
begin
  ShowMessage('Файл загружен');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  ss, mm, hh: string;
begin
  Timer1.Tag := Timer1.Tag + 1;
  ss := Format('%.2u', [Timer1.Tag mod 60]);
  mm := Format('%.2u', [(Timer1.Tag div 60) mod 60]);
  hh := Format('%.2u', [(Timer1.Tag div 3600) mod 24]);
  CaptionTime.Caption := hh + ':' + mm + ':' + ss;
end;

end.

[lomastr_]

к вкл из потока обращаться нельзя

[fudihet]

а можете показать что именно изменить нужно?

как я понял ошибка где-то тут:

ProgressBar1.Position := AWorkCount;
ProgressBar2.Position := WorkMax - AWorkCount;
CaptionDownload.Caption:=SizeOfFile(AWorkCount);
CaptionLeft.Caption:=SizeOfFile(WorkMax - AWorkCount);

потому что если закоментировать файл загружается нормально, но как исправить эту ошибку?

[Shouldercannon]

Попробуй пройти по этим четырём строкам с помощью BreakPoint

[Alex11223]

Чего там идти-то? Что он увидеть может?
Нельзя из не UI потока обращаться к UI элементам, надо как-нибудь синхронизироваться. Например, TThread.Synchronize

[lomastr_]

как я понял ошибка где-то тут:

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

[fudihet]

т.е. как то так нужно синхронизацию сделать?

   Synchronize(
      procedure
      begin
  ProgressBar1.Position := AWorkCount;
  ProgressBar2.Position := WorkMax - AWorkCount;
  CaptionDownload.Caption := SizeOfFile(AWorkCount);
  CaptionLeft.Caption := SizeOfFile(WorkMax - AWorkCount);
 end);

только не работает почему то...

[fudihet]

как сдесь правильно синхронизацию сделать? Я просто раньше не работал с потоками.

[Shouldercannon]

type
  TMyThread = class(TThread)
  private
    { Private declarations }
    i: Integer;
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;

var
  FormMain: TFormMain;
  MyThread: TMyThread;

implementation

{$R *.dfm}

procedure TFormMain.BStartClick(Sender: TObject);
begin
  MyThread := TMyThread.Create(True); // После создания поток остановлен
  MyThread.FreeOnTerminate := True; // После завершения работы поток "умрёт" сам
  MyThread.Resume; // Запуск потока
end;

procedure TMyThread.Execute;
var
  i2: Integer;
begin
  for i2 := 0 to 60 do
  begin
    if i2 > 61 then Break;
    Sleep(100);
    i := i2;
    Synchronize(SyncProc);
  end;

  Terminate;
end;

procedure TMyThread.SyncProc;
begin
  FormMain.Caption := IntToStr(i);
end;

...

procedure TMyThread.SyncProc;
begin
  FormMain.ProgressBar1.Position := AWorkCount;
  FormMain.ProgressBar2.Position := WorkMax - AWorkCount;
  FormMain.CaptionDownload.Caption := SizeOfFile(AWorkCount);
  FormMain.CaptionLeft.Caption := SizeOfFile(WorkMax - AWorkCount);
end;

[fudihet]

Shouldercannon, не совсем понятно как это использовать в моем случае?