RealICQClient/AppCentre/IdHttpEx.pas

unit IdHttpEx;

interface

uses
    IdHTTP,Classes,SysUtils;

type
//   TIdHTTPMethod = (hmHead, hmGet, hmPost, hmOptions, hmTrace, hmPut, hmDelete, hmConnect);

   TIdHTTPEx = class(TIdCustomHTTP)
   public
     procedure Delete(AURL: string);
   end;

implementation

{$DEFINE DELPHI2007}
{ TIdHTTPEx }

procedure TIdHTTPEx.Delete(AURL: string);
begin
{$IFDEF DELPHI2007}
  DoRequest(hmDelete, AURL, nil, nil, []);
{$ELSE}
  DoRequest(Id_HTTPMethodDelete, AURL, nil, nil, []);
{$ENDIF}
end;


end.