Don't like ads? PRO users don't see any ads ;-)
Guest

Untitled

By: a guest on May 9th, 2012  |  syntax: None  |  size: 1.10 KB  |  hits: 16  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. issue with webservice and ssl
  2. Imports System.ServiceModel
  3.        
  4. <OperationContract()>
  5. Public Function DoWork(oTypingTestResults As List(Of Dempsey.TypingTestData_Queries)) As String
  6.     ' Add your operation implementation here
  7.     Dim mProc As New Dempsey.TypingTestData_Queries
  8.     mProc._StoreIndividualTestResults(oTypingTestResults)
  9.  
  10.     If mProc.mErrMsg Is Nothing Then
  11.         Return oTypingTestResults.Count.ToString
  12.     Else
  13.         Return mProc.mErrMsg
  14.     End If
  15.  
  16. End Function
  17.  
  18. ' Add more operations here and mark them with <OperationContract()>
  19.        
  20. <bindings>
  21.   <customBinding>
  22.     <binding name="TypingTest.customBinding0">
  23.       <binaryMessageEncoding />
  24.       <httpTransport />
  25.     </binding>
  26.   </customBinding>
  27. </bindings>
  28. <serviceHostingEnvironment aspNetCompatibilityEnabled="true"
  29.   multipleSiteBindingsEnabled="true" />
  30. <services>
  31.   <service name="TypingTest">
  32.     <endpoint address="~/Test.svc" binding="customBinding" bindingConfiguration="TypingTest.customBinding0"
  33.       contract="Test" />
  34.     <endpoint address="mex" binding="mexHttpBinding" contract="IMetadataExchange" />
  35.   </service>
  36. </services>