Цитата(Exception @ 11.1.2006, 07:13  ) | | Глянь сюда: |
Протестить веб-метод можно только с локального компа. Можно, конечно, и клиент написать на дотнете  , вот как приаттаченный внизу.
Добавлено @ 21:23
З.Ы. прикольно, а ведь действительно работает. Reflector у них там на сайте лежит, что ли ... На VB.NET сроду ни строки кода не писал, а вот же прикольно посмотреть, что получается из шарпа.
| Код | Imports System
Imports System.IO
Imports System.Windows.Forms
Imports TranslatorService = ConsoleApplication5.CSharpToVBTranslator.CSharpToVBTranslator
Namespace ConsoleApplication5
_
Class Program
'Entry point which delegates to C-style main Private Function
Public Overloads Shared Sub Main()
Main(System.Environment.GetCommandLineArgs())
End Sub
Overloads Shared<STAThread()> _
Sub Main(args() As String)
Dim odlg As New OpenFileDialog()
odlg.Filter = "C# source files (*.cs)|*.cs"
odlg.Title = "Выберите файл исходного кода C#"
If odlg.ShowDialog() = DialogResult.Cancel Then
Return
End If
Dim code As String
Try
code = New StreamReader(odlg.FileName).ReadToEnd()
Catch
End Try
Try
code = New TranslatorService().TranslateCSharpToVB(code)
Catch ex As Exception
MessageBox.Show("Не удалось вызвать Web-метод. Причина:" + Environment.NewLine + ex.ToString(), "ошибка")
End Try
Dim sdlg As New SaveFileDialog()
sdlg.Filter = "VB.NET source files (*.vbx)|*.vbx"
sdlg.Title = "Выберите имя для сохранения файла VB.NET"
sdlg.AddExtension = True
If sdlg.ShowDialog() = DialogResult.Cancel Then
Return
End If
Dim writer As New StreamWriter(sdlg.FileName)
writer.Write(code)
writer.Flush()
writer.Close()
End Sub 'Main
End Class 'Program
End Namespace 'ConsoleApplication5 |
|
