Многопоточность и прогресс

[Horus92]

Здравствуйте я пишу менеджер закачек на курсовую и использую такой вариант скачивания:

function GetInetFile(const fileURL, FileName: string): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
  sAppName: string;
begin
  Result:=False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
  INTERNET_OPEN_TYPE_PRECONFIG,
  nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession,PChar(fileURL),nil,0,0,0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer,
        SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen)
      until
        BufferLen = 0;
      CloseFile(f);
      Result:=True;
    finally
      InternetCloseHandle(hURL)
    end;
  finally
    InternetCloseHandle(hSession)
  end;
end;

Эта функция реализована через wininet.
с прогрессом загрузки разобрался через HTTPQueryINFO.
А вот как сделать многопоточную закачку***

[Horus92]

Натолкните хотя бы на мысль как реализовать многопоточность то что я пока понял это получать range из http и как -то через него скачивать кусок файла.

[Пепел Феникса]

как минимум TThread используйте + синхронизацию(сообщения отменно подходят)

[Horus92]

Пока вот что вышло это обычное скачивание. В данный момент тут TThread сделан для паузы закачки так как закачка вешала форму.
Кнопка запуска:

procedure TForm1.Button1Click(Sender: TObject);
var FileOnNet, LocalFileName: string; b:real;
NewThread: TNewThread;
begin
 NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
  NewThread.Resume;
end;

Тело потока:

procedure TNewThread.Execute;
var FileOnNet, LocalFileName: string; b:real;
begin

  FileOnNet:=form1.Edit1.text;
  LocalFileName:='save.mp3';

  if GetInetFile(FileOnNet, LocalFileName,form1.PBar1) = true then
    ShowMessage('Download successful')
  else
    ShowMessage('Error in file download');
    end;

Функция скачивания файла:

function GetInetFile(const fileURL, FileName: string;Pbar:Tprogressbar): boolean;             //Скачивание
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
  fsize,tmpsz,sp,pp:integer;
  sAppName: string;

begin
  Result:=False;
  fsize:=GetUrlSize(fileURL);
  tmpsz:=0;
  sp:=fsize div 100; // Вычисляем цену деления progressbar
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
  INTERNET_OPEN_TYPE_PRECONFIG,
  nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession,PChar(fileURL),nil,0,0,0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
      if pause then //обработка нажатия паузы
      repeat
      until not pause else
        begin
          InternetReadFile(hURL, @Buffer,
          SizeOf(Buffer), BufferLen);
          BlockWrite(f, Buffer, BufferLen);
          tmpsz:=tmpsz+BufferLen;
          pp:=tmpsz div sp;  //Получаем сколько % скачано
          if pp>100
          then pp:=0;
          Pbar.Position:=pp;
          form1.Label1.Caption:=inttostr(pp)+' %';
          end;
      until
        BufferLen = 0;
      CloseFile(f);
      Result:=True;
    finally
      InternetCloseHandle(hURL)
    end;
  finally
    InternetCloseHandle(hSession)
  end;
end;

[ImmortalAlexSan]

Horus92, ваш поток рабочий должен быть синхронизирован с главным потоком. Феникс правильно вам подсказал, используйте PostMessage(<объект кому надо отправить>, <сообщение(обычно резервируется как константа с уникальным идентификатором)>, WParam, LParam);
А сам поток поставьте в критическую секцию, или используйте мьютексы.
А для того, чтобы обработать сообщение для объекта, нужно написать процедуру обработки:

... в типе формы в привате пишите
procedure TakeMsg(Var msg:Tmessage); message <ваша константа>;
...
procedure TakeMsg(Var msg:Tmessage);
begin
<тут выполняете нужную вам работу>
end;

[Horus92]

А что даст синхронизация? и как она вобще выполняется.
И помогите все же как мне примерно реализовать алгоритм многопоточности а то у меня есть однопоточная загрузка через функцию указанную выше а многопоточность я понял реализуется сза счет скачивания файла несколькими потоками с разных мест определенный кусок и потом соединение воедино.
Так как видоизменить мою функцию для скачивания файла с определнного места??