- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
procedure TForm1.RegHttpRedirect(Sender: TObject; var dest: String;
var NumRedirect: Integer; var Handled: Boolean;
var VMethod: TIdHTTPMethod);
begin
Log('Redirect № ' + IntToStr(NumRedirect)+ ' - '+ Dest , true, MainClr);
end;
procedure TForm1.HTTPCoreStatus(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
begin
Log('Статус: '+ AStatusText, true, MainClr);
end;
{procedure TForm1.RegHttpW0rk(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
end;}