From fc68ce2ec5b0957784d9dc7536de3a9c92bbfcc9 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 23 Jan 2013 08:52:18 +0000
Subject: [PATCH] * Implemented a HEAD class method

git-svn-id: trunk@23503 -
---
 packages/fcl-web/src/base/fphttpclient.pp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/packages/fcl-web/src/base/fphttpclient.pp b/packages/fcl-web/src/base/fphttpclient.pp
index 8a399debed..ded3731775 100644
--- a/packages/fcl-web/src/base/fphttpclient.pp
+++ b/packages/fcl-web/src/base/fphttpclient.pp
@@ -127,6 +127,8 @@ Type
     Procedure FileFormPost(const AURL, AFieldName, AFileName: string; const Response: TStream);
     // Simple form of Posting a file
     Class Procedure SimpleFileFormPost(const AURL, AFieldName, AFileName: string; const Response: TStream);
+    // Get HEAD
+    Class Procedure HEAD(AURL : String; Headers: TStrings);
   Protected
     // Before request properties.
     // Additional headers for request. Host; and Authentication are automatically added.
@@ -1159,6 +1161,17 @@ begin
     end;
 end;
 
+class procedure TFPCustomHTTPClient.HEAD(AURL : String; Headers: TStrings);
+begin
+  With Self.Create(nil) do
+    try
+      HTTPMethod('HEAD', AURL, Nil, [200]);
+      Headers.Assign(ResponseHeaders);
+    Finally
+      Free;
+    end;
+end;
+
 
 end.