WEBサービスの圧縮について

 

IIS 6.0 設定ファイル

C:\WINDOWS\system32\inetsrv\MetaBase.xml



<IIsCompressionScheme	Location ="/LM/W3SVC/Filters/Compression/deflate"

		HcCompressionDll="%windir%\system32\inetsrv\gzip.dll"

		HcCreateFlags="1"

		HcDoDynamicCompression="TRUE"

		HcDoOnDemandCompression="TRUE"

		HcDoStaticCompression="TRUE"

		HcDynamicCompressionLevel="0"

		HcFileExtensions="htm

			html

			txt"

		HcOnDemandCompLevel="10"

		HcPriority="1"

		HcScriptFileExtensions="asp

			dll

			exe

                           asmx"

	>

</IIsCompressionScheme>

<IIsCompressionScheme	Location ="/LM/W3SVC/Filters/Compression/gzip"

		HcCompressionDll="%windir%\system32\inetsrv\gzip.dll"

		HcCreateFlags="1"

		HcDoDynamicCompression="TRUE"

		HcDoOnDemandCompression="TRUE"

		HcDoStaticCompression="TRUE"

		HcDynamicCompressionLevel="0"

		HcFileExtensions="htm

			html

			txt"

		HcOnDemandCompLevel="10"

		HcPriority="1"

		HcScriptFileExtensions="asp

			dll

			exe

                            asmx"

	>

</IIsCompressionScheme>

<IIsCompressionSchemes	Location ="/LM/W3SVC/Filters/Compression/Parameters"

		HcCacheControlHeader="max-age=86400"

		HcCompressionBufferSize="8192"

		HcCompressionDirectory="%windir%\IIS Temporary Compressed Files"

		HcDoDiskSpaceLimiting="FALSE"

		HcDoDynamicCompression="TRUE"

		HcDoOnDemandCompression="TRUE"

		HcDoStaticCompression="TRUE"

		HcExpiresHeader="Wed, 01 Jan 1997 12:00:00 GMT"

		HcFilesDeletedPerDiskFree="256"

		HcIoBufferSize="8192"

		HcMaxDiskSpaceUsage="99614720"

		HcMaxQueueLength="1000"

		HcMinFileSizeForComp="1"

		HcNoCompressionForHttp10="TRUE"

		HcNoCompressionForProxies="TRUE"

		HcNoCompressionForRange="FALSE"

		HcSendCacheHeaders="FALSE"

	>

</IIsCompressionSchemes>



--------------------------------------------------------------------------



WebServiceプログラム側

Global.asax.vb



    Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)

        ' 各要求の開始時に呼び出されます。

        Dim acceptEncoding As String = Request.Headers.Item("Accept-Encoding")

        Debug.WriteLine ( acceptEncoding )

    End Sub





--------------------------------------------------------------------------



クライアント側：



　　　　Dim srv As WebServiceTest.ServiceTest = Nothing

        Try



            srv = New WebServiceTest.ServiceTest

            Debug.Write("Default WebService.EnableDecompression : " & srv.EnableDecompression)

            srv.EnableDecompression = True  '' 重要

            srv.Url = "http://localhost/XXServiceTest/ServiceTest.asmx"



            '' 解凍不要　…（省略）

            dim ds As System.Data.DataSet = srv.CallFunction (xxxxx) 

　　　　　　'' ......................



        Catch ex As Exception

        Finally

            If srv Is Nothing = False Then

                srv.Dispose() : srv = Nothing

            End If

        End Try