Статья: Web Services и MS Visual FoxPro Часть 6

Imports System
Imports System.Data
Imports System.Web.Services
Imports System.Data.OleDb

<System.Web.Services.WebService(Namespace:="http://tempuri.org/ws_net/Service1")> _
Public Class Service1
    Inherits System.Web.Services.WebService

    <WebMethod(Description:="Standard login operation.")> _
    Public Function login(ByVal lclog As String, ByVal lcpsw As String) As String
          Dim myConnString As String
          myConnString = System.Configuration.ConfigurationSettings.AppSettings("ws_net_String")
          Dim conSessionID As OleDbConnection = New OleDbConnection(myConnString)
          Dim paramReturnValue As OleDbParameter
          Dim cmdSessionID As OleDbCommand = New OleDbCommand _
          ("sp_user_login_xml('" + Trim(lclog) + "','" + Trim(lcpsw) + "')", conSessionID)
          conSessionID.Open()
          Dim strreturn As String = cmdSessionID.ExecuteScalar()
          conSessionID.Close()
          Return strreturn
    End Function

    <WebMethod(Description:="Some operations for message program.")> _
    Public Function message_read(ByVal lckey_word As String, ByVal lcUser_nick As String, _
      ByVal lcpassword As String, ByVal lcparameter1 As Object, ByVal lcparameter2 As Object, _
      ByVal lcparameter3 As Object, ByVal lcparameter4 As Object, _
      ByVal lcparameter5 As Object, ByVal lcparameter6 As Object) As Object
          Dim myConnString As String
          myConnString = System.Configuration.ConfigurationSettings.AppSettings("ws_net_String")
          Dim conSessionID As OleDbConnection = New OleDbConnection(myConnString)
          Dim paramReturnValue As OleDbParameter
          Dim strreturn As Object
          Dim cmd As OleDbCommand
          strreturn = -1
          Select Case lckey_word
            Case "READ_MESSAGES_START"
             cmd = New OleDbCommand("sp_message_read", conSessionID)
             cmd.CommandType = CommandType.StoredProcedure
             cmd.Parameters.Add("@lcparameter1", OleDbType.Date).Value = lcparameter1
             cmd.Parameters.Add("@lcUser_nick", OleDbType.VarChar, 10).Value = lcUser_nick
             cmd.Parameters.Add("@lcpassword", OleDbType.VarChar, 10).Value = lcpassword
             cmd.Parameters.Add("@lcparameter2", OleDbType.Integer).Value = lcparameter2
           Case "READ_ALL_USERS"
             cmd = New OleDbCommand("sp_users_read_xml", conSessionID)
             cmd.CommandType = CommandType.StoredProcedure
             cmd.Parameters.Add("@lcUser_nick", OleDbType.VarChar, 10).Value = lcUser_nick
             cmd.Parameters.Add("@lcpassword", OleDbType.VarChar, 10).Value = lcpassword
           Case "ADD_NEW_MESSAGE"
             cmd = New OleDbCommand("sp_new_message_add", conSessionID)
             cmd.CommandType = CommandType.StoredProcedure
             cmd.Parameters.Add("@lcUser_nick", OleDbType.VarChar, 10).Value = lcUser_nick
             cmd.Parameters.Add("@lcpassword", OleDbType.VarChar, 10).Value = lcpassword
             cmd.Parameters.Add("@lcparameter1", OleDbType.Integer).Value = lcparameter1
             cmd.Parameters.Add("@lcparameter2", OleDbType.VarChar, 100).Value = lcparameter2
             cmd.Parameters.Add("@lcparameter3", OleDbType.LongVarChar).Value = lcparameter3
           Case "READ_THREAD_START"
             cmd = New OleDbCommand("sp_thread_read", conSessionID)
             cmd.CommandType = CommandType.StoredProcedure
             cmd.Parameters.Add("@lcUser_nick", OleDbType.VarChar, 10).Value = lcUser_nick
             cmd.Parameters.Add("@lcpassword", OleDbType.VarChar, 10).Value = lcpassword
             cmd.Parameters.Add("@lcparameter1", OleDbType.Integer).Value = lcparameter1
           Case "ADD_EXISTS_MESSAGE"
             cmd = New OleDbCommand("sp_existed_message_add", conSessionID)
             cmd.CommandType = CommandType.StoredProcedure
             cmd.Parameters.Add("@lcUser_nick", OleDbType.VarChar, 10).Value = lcUser_nick
             cmd.Parameters.Add("@lcpassword", OleDbType.VarChar, 10).Value = lcpassword
             cmd.Parameters.Add("@lcparameter1", OleDbType.LongVarChar).Value = lcparameter1
             cmd.Parameters.Add("@lcparameter1", OleDbType.Integer).Value = lcparameter2
           Case "DELETE_THREAD"
             cmd = New OleDbCommand("sp_message_delete", conSessionID)
             cmd.CommandType = CommandType.StoredProcedure
             cmd.Parameters.Add("@lcUser_nick", OleDbType.VarChar, 10).Value = lcUser_nick
             cmd.Parameters.Add("@lcpassword", OleDbType.VarChar, 10).Value = lcpassword
             cmd.Parameters.Add("@lcparameter1", OleDbType.Integer).Value = lcparameter1
           Case "DELETE_ANSWER"
             cmd = New OleDbCommand("sp_answer_delete", conSessionID)
             cmd.CommandType = CommandType.StoredProcedure
             cmd.Parameters.Add("@lcUser_nick", OleDbType.VarChar, 10).Value = lcUser_nick
             cmd.Parameters.Add("@lcpassword", OleDbType.VarChar, 10).Value = lcpassword
             cmd.Parameters.Add("@lcparameter1", OleDbType.Integer).Value = lcparameter1
             cmd.Parameters.Add("@lcparameter2", OleDbType.Integer).Value = lcparameter2
            Case "READ_PROFILE_USERS"
             cmd = New OleDbCommand("sp_users_profile_read_xml", conSessionID)
             cmd.CommandType = CommandType.StoredProcedure
             cmd.Parameters.Add("@lcUser_nick", OleDbType.VarChar, 10).Value = lcUser_nick
             cmd.Parameters.Add("@lcpassword", OleDbType.VarChar, 10).Value = lcpassword
             cmd.Parameters.Add("@lcparameter1", OleDbType.Integer).Value = lcparameter1
            Case "ADD_NEW_USER"
             cmd = New OleDbCommand("sp_users_add_edit", conSessionID)
             cmd.CommandType = CommandType.StoredProcedure
             cmd.Parameters.Add("@lcUser_nick", OleDbType.VarChar, 10).Value = lcUser_nick
             cmd.Parameters.Add("@lcpassword", OleDbType.VarChar, 10).Value = lcpassword
             cmd.Parameters.Add("@lcparameter1", OleDbType.Integer).Value = lcparameter1
             cmd.Parameters.Add("@lcparameter2", OleDbType.LongVarChar).Value = lcparameter2
          End Select
          conSessionID.Open()
          strreturn = cmd.ExecuteScalar()
          conSessionID.Close()
          Return strreturn
    End Function
End Class

<!-- Web.Config Configuration File -->
<configuration>
 <system.web>
  <customErrors mode="Off" />
  <compilation debug="true" />
  <httpRuntime maxRequestLength="8192" />
  <globalization requestEncoding="windows-1251" responseEncoding="windows-1251" 
  culture="ru-Ru" uiCulture="ru-Ru" />
  <authorization>
   <allow users="*" />
  </authorization>
 </system.web>
 <appSettings>
  <add key="ws_net_String" value="provider=vfpoledb.1;
  Data Source=C:\ws_message\server\DBWS.dbc;Mode=ReadWrite|Share Deny None;" />
 </appSettings>
</configuration>

Если коротко ответить - то "да". Дело в том, что Web Service использует протокол HTTP и порт 80 (как и Ваш Browser через который Вы просматриваете Web Sites в Internet). То есть теоретически проблем быть на должно. На практике есть нюансы. Если у Вас установлены, например, продукты компании Microsoft - Win Proxy, ISA 2000 или ISA 2003, то Вам необходимо установить на Ваш компьютер клиента, который идет в комплекте с этим программным обеспечением. Нельзя забывать и о том, что эти клиенты не совместимы между собой. То есть при установке ISA 2003 надо удалить предыдущую версию в ручную.

Если Ваш сетевой администратор все правильно установил (что бывает, увы не всегда в силу довольно низкой их зарплаты и как следствие низкой квалификации с непомерными амбициями) Вы должны видеть сетевой каталог в котором находится программа для установки этого FireWall клиента на Вашей машине. Если этого нет, то спросите своего админа об этом. Если Вы единственный IT специалист в компании - то посмотрите на дистрибутиве или скачайте из Internet.

Клиент ISA 2003 делает всю работу для Вас - там есть специальная кнопка "настроить Browser". Для предыдущих версий Вам необходимо прописать имя этого Proxy Server и указать его порт для внутренних рабочих станций (по умолчению 8080) плюс обходить Proxy для локальных адресов. То есть приблизительно вот такая картинка:

Это очень комплексный вопрос. Прежде всего на Вашем сервере и на рабочих станциях должен быть установлен Ваш национальный язык как основной. Если у Вас на сервере не установлена полная версия VFP на период эксплуатации - необходимо, чтобы рядом с Runtime Library VFP были библиотеки поддержки Вашего национального языка. Насчет файла config.fpw с явным указанием кодовой страницы - я не могу дать точного ответа на это вопрос, так-как WS вызывает COM Server на основе VFP и директорием по умолчанию для Windows 200 будет WINNT\System32 (для WINXP Windows\System32) и читает ли он config.fpw трудно сказать. В 7 версии VFP я столкнулся с тем, что пришлось в двоичном редакторе менять код внутри VFP Runtime Library, чтобы кодовой страницей по умолчанию стала 1251. Надеюсь, что в 9 версии этого делать не надо, так-как при тестировании все работало стабильно.