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

[Shouldercannon]

Пример на скорую руку

[lomastr_]

а зачем 2 IdThreadComponentа?

[fudihet]

Сообщение от Shouldercannon

Пример на скорую руку

Не компилируется

[dcc32 Error] Unit1.pas(106): E2009 Incompatible types: 'Parameter lists differ'

и как потом вернуть все функции которые там были (Определение скорости загрузки файла, размер файла и тд.)

[Shouldercannon]

type
  // Поток для скачивания файлов
  TDownLoader_Thread = class(TThread)
  private
    { Private declarations }
    Action: Integer;
    procedure HTTPWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
    procedure HTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
    TargetWin: HWND;
  end;

...

procedure TDownLoader_Thread.HTTPWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
  PostMessage(TargetWin, MY_MESS, 1, AWorkCount);
end;

procedure TDownLoader_Thread.HTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  PostMessage(TargetWin, MY_MESS, 0, AWorkCountMax);
end;

[fudihet]

а как теперь вернуть все функции?

[fudihet]

Shouldercannon, не поможете доделать?

[Shouldercannon]

Как вернуть функции пока не знаю. Проще наверное будет сделать сие с помощью Synapse (вывод скорости скачки и прочая инфа). http://www.programmersforum.ru/showp...5&postcount=27

[fudihet]

Сообщение от Shouldercannon

Как вернуть функции пока не знаю. Проще наверное будет сделать сие с помощью Synapse (вывод скорости скачки и прочая инфа). http://www.programmersforum.ru/showp...5&postcount=27

с синапсом было бы даже лучше, но только как это сделать?

[lomastr_]

Synchronize(
procedure
begin
ProgressBar1.Position := AWorkCount;
ProgressBar2.Position := WorkMax - AWorkCount;
CaptionDownload.Caption := SizeOfFile(AWorkCount);
CaptionLeft.Caption := SizeOfFile(WorkMax - AWorkCount);
end);
только не работает почему то...

конечно не работает, что такое Synchronize ?
вы в свой код посмотреть не можете как синхронизируете, или это не ваш код?

[fudihet]

Сообщение от Shouldercannon

Как вернуть функции пока не знаю. Проще наверное будет сделать сие с помощью Synapse (вывод скорости скачки и прочая инфа). http://www.programmersforum.ru/showp...5&postcount=27

Попробывал переписать код на clHTTPSendEx ну в нем не работает свойство

aWorkCountMax – Исходный размер передаваемых данных, в байтах.


возвращает 0