Здравствуйте.
Как остановить скачивание в компоненте THTTPClient?
procedure TThreadDownload.Execute;
var
h : THTTPClient;
r : IHTTPResponse;
begin
if FileExists(_OutputFileName) then
DeleteFile(_OutputFileName);
Stream := TFileStream.Create(_OutputFileName, fmCreate or fmOpenWrite);
h := THTTPClient.Create;
h.OnReceiveData := EventWork;
try
r := h.Get(Url, Stream, []);
fErrorCode := r.StatusCode;
except
fErrorCode := 400;
end;
h.Free;
fCompleted := True;
end;
procedure TThreadDownload.EventWork(const Sender: TObject;
AContentLength: Int64; AReadCount: Int64; var Abort: Boolean);
begin
TThread.Synchronize(nil, procedure
var
Percent : Real;
begin
Percent := 100 / AContentLength * AReadCount;
_Frame.lblProgress.Caption := FormatFloat('0.00', Percent) + '%';
_Frame.pbDownload.Position := Round(Percent);
end );
end;