Pages

Monday, November 16, 2009

compress your http response

 add this code on global.ascx PreRequestHandlerExecute events


<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.IO.Compression" %>

Friday, November 6, 2009

useing web service without webrefrence

Imports System.CodeDom


Imports System.CodeDom.Compiler

Imports System.Security.Permissions

Imports System.Web.Services.Description

Imports System.Reflection





Public Function CallWebService(ByVal webServiceAsmxUrl As String, _

ByVal serviceName As String, ByVal methodName As String, _

ByVal args() As Object) As Object



Try

Dim client As System.Net.WebClient = New System.Net.WebClient()



'-Connect To the web service

Dim stream As System.IO.Stream = _

client.OpenRead(webServiceAsmxUrl + "?wsdl")



'Read the WSDL file describing a service.

Dim description As ServiceDescription = ServiceDescription.Read(stream)



'LOAD THE DOM'''''''''''''''''''''''''''



'--Initialize a service description importer.

Dim importer As ServiceDescriptionImporter = New ServiceDescriptionImporter()

importer.ProtocolName = "Soap12" ' Use SOAP 1.2.

importer.AddServiceDescription(description, Nothing, Nothing)



'--Generate a proxy client.



importer.Style = ServiceDescriptionImportStyle.Client

'--Generate properties to represent primitive values.

importer.CodeGenerationOptions = _

System.Xml.Serialization.CodeGenerationOptions.GenerateProperties



'Initialize a Code-DOM tree into which we will import the service.

Dim nmspace As CodeNamespace = New CodeNamespace()

Dim unit1 As CodeCompileUnit = New CodeCompileUnit()

unit1.Namespaces.Add(nmspace)



'Import the service into the Code-DOM tree.

'This creates proxy code that uses the service.



Dim warning As ServiceDescriptionImportWarnings = _

importer.Import(nmspace, unit1)



If warning = 0 Then



'--Generate the proxy code

Dim provider1 As CodeDomProvider = _

CodeDomProvider.CreateProvider("VB")

'--Compile the assembly proxy with the // appropriate references

Dim assemblyReferences() As String

assemblyReferences = New String() {"System.dll", _

"System.Web.Services.dll", "System.Web.dll", _

"System.Xml.dll", "System.Data.dll"}

Dim parms As CompilerParameters = New CompilerParameters(assemblyReferences)

parms.GenerateInMemory = True '(Thanks for this line nikolas)

Dim results As CompilerResults = provider1.CompileAssemblyFromDom(parms, unit1)



'-Check For Errors

If results.Errors.Count > 0 Then



Dim oops As CompilerError

For Each oops In results.Errors

System.Diagnostics.Debug.WriteLine("========Compiler error============")

System.Diagnostics.Debug.WriteLine(oops.ErrorText)

Next

Throw New System.Exception("Compile Error Occured calling webservice.")

End If



'--Finally, Invoke the web service method

Dim wsvcClass As Object = results.CompiledAssembly.CreateInstance(serviceName)

Dim mi As MethodInfo = wsvcClass.GetType().GetMethod(methodName)

Return mi.Invoke(wsvcClass, args)



Else

Return Nothing

End If



Catch ex As Exception

Throw ex

End Try

End Function

Calling

Call this web service in a Webform or wndows form or method etc... as below:

Collapse

Dim WebserviceUrl As String = "http://www.abc.com/lgl/test/webservice/v1_00/security.asmx"



'specify service name

Dim serviceName As String = "SecurityAndSessionManagement"



'specify method name to be called

Dim methodName As String = "Session_Start"



'Paraments passed to the method

Dim arArguments(1) As String

arArguments(0) = "abc"

arArguments(1) = "xxxx"



Dim objCallWS As New DynamicWebService

sSessionID = objCallWS.CallWebService(WebserviceUrl, serviceName, _

methodName, arArguments)

MsgBox("new SessionID: " & sSessionID)

Friday, October 30, 2009

Posting form data from <a href="http://ASP.NET">ASP.NET</a> page to another URL

Introduction.

Sometime you need to post a form to an different url from asp.net pages, for example you might need to send user to third party payment processing system using post method, asp.net does not provide any straight forward way to accomplish this task.

Problem which most users faces with server side form in aspx page are, you are not allowed to change action of form and you are allowed to use only one server side form per page.

Possible Solutions.

1. One possible solution to this problem is to Create your own form control and use it on page this will allow you to change action of form, but again what if you do not want some existing input elements in current page to go to post.

2. There is good way to post form data using HttpWebResponse & HttpWebRequest class if you want to post data behind the scenes, but if you want to post data using user browser then you are stuck.

Our Solution.

I will try to show you one possible way to accomplish this task, we will create 1)component that will create form with required fields and post the form to specified url, 2) web page that will use that component to post data and 3) page which will receive that data and display posted data.
















A) RemotePost Class.

Public Class RemotePost
Private Inputs As System.Collections.Specialized.NameValueCollection = New System.Collections.Specialized.NameValueCollection

Public Url As String = ""
Public Method As String = "post"
Public FormName As String = "form1"
Public Sub Add(ByVal name As String, ByVal value As String)
Inputs.Add(name, value)
End Sub
Public Sub Post()
System.Web.HttpContext.Current.Response.Clear()System.Web.HttpContext.Current.Response.Write("")System.Web.HttpContext.Current.Response.Write(String.Format("", FormName))System.Web.HttpContext.Current.Response.Write(String.Format("", FormName, Method, Url))
Dim i As Integer = 0
Do While i < Inputs.Keys.Count
System.Web.HttpContext.Current.Response.Write(String.Format("", Inputs.Keys(i), Inputs(Inputs.Keys(i))))
i += 1
Loop
System.Web.HttpContext.Current.Response.Write("")System.Web.HttpContext.Current.Response.Write("")System.Web.HttpContext.Current.Response.End()
End Sub
End Class

Properties of our component.

1. "Url" which is action of our form.
2. "Method" which is Method of our form, default is Post but you can also use Get.
3. "FormName" which is name of form.

Methods of our component.

1. "Add" which will be used to add form input name and value. and

2. "Post" which will render html on page to do actual posting, most important part of this method is onload event of rendered html's body which will post form to specified URL.

3. Private field Inputs which will hold name value pair collection of all inputs that goes into form.

4. You can compile this class to dll and use in your project but for simplicity I am including that class directly into page itself.

B) Sample Page.

Following is sample page code which posts form to specified url.

Dim myremotepost As RemotePost = New RemotePost
myremotepost.Url = htttp://www.jigar.net/demo/HttpRequestDemoServer.aspx"myremotepost.Add("field1", "Huckleberry")
myremotepost.Add("field2", "Finn")
myremotepost.Post()

C) Receiving Page.

Following is sample page code which posts form to specified url.

This is the page where posting will occur for simplicity we will just write posed value so that we can know what was posted.

If Not Request.Form("field1") Is Nothing Then
Response.Write("field1 : " & Request.Form("field1") & "")
End If
If Not Request.Form("field2") Is Nothing Then
Response.Write("field2 : " & Request.Form("field2") & "")
End If

Run Sample

Click "http://www.jigar.net/demo/RemotePost.aspx" target="new">here to run sample

There will be cases where you will need to tweak the code to suit your requirement. you will also need to check scenario where user uses back button of browser(from posted p
in reference to:
"Posting form data from ASP.NET page to another URL"
- Posting form data from ASP.NET page to another URL (view on Google Sidewiki)