Цель:
мы хотим написать DLL с использованием VB.NET 2008, используя .Net 3.5, который выполняет HTTP-запрос
, затем мы хотим вызвать DLL из SQL Server 2005 (втриггер) и передать DLL некоторые переменные и получить возвращаемое значение.
Где я нахожусь в процессе.
Я создал DLL 'HTTPDLL.dll'
Источник:
Imports System
Imports System.Configuration
Imports System.Collections.Generic
Imports System.Text
Imports System.Net
Imports System.Security
Imports System.Security.Permissions
Imports System.IO
Imports Microsoft.SqlServer.Server
Public Class HTTPDLL
Public Function HTTPPost(ByVal URL As String, ByVal Content As String) As Boolean
Dim myURL As String = Trim(URL)
Dim mycontent As String = Trim(Content)
Dim rawOutput As String = ""
'Get Acces Right to web
Dim p As New WebPermission(NetworkAccess.Connect, myURL)
p.Assert()
'Prepare the web Request
Dim req As WebRequest = WebRequest.Create(myURL)
req.Timeout = 60000
req.Method = "POST"
req.ContentLength = mycontent.Length
req.ContentType = "application/x-www-form-urlencoded"
Dim sw As New StreamWriter(req.GetRequestStream())
sw.Write(mycontent)
sw.Close()
Dim resp As WebResponse = req.GetResponse()
Dim sr As New StreamReader(resp.GetResponseStream)
rawOutput = sr.ReadToEnd()
sr.Close()
Return True
End Function
Public Function Test() As Integer
Return 1
End Function
Public Function DllMain(ByVal hInst As Long, ByVal fdwReason As Long, _
ByVal lpvReserved As Long) As Boolean
Dim s As String = "sdfghjkolihdgjkhgiueghkyhekygigdjhgfkhsgdkhfgksjdhgkjshdgfkjhsgdkjfhgkshdgfkjhgskjdhgfkjhsdgkfhgskjdhfgkjsdhgfkshdgfkhgsdkfhgksdhfgkshdgfkshdgfkjhsgdkfhgskdhfgksjdhgfkjshgdfkhsgdkfhgskdhfgkshgdfkjhgskdjg"
s &= "kjhdgjkshkdjfhklsjdhfljhgkhvbfiuvbli klrfgliu ghliebliuhdflivbdkljhgljuhfvliuhdf"
Return True
End Function
End Class
Я поместил DLL в папку SQL Server c: / Windows / System
Я загрузил эти сборки
HelloWorld System.Core System.XML.Linq
с использованием этих команд
EXEC sp_configure 'show advanced options' , '1';
go
reconfigure
go
EXEC sp_configure 'clr enabled' , '1'
go
sp_configure 'Ole Automation Procedures', '1'
GO
RECONFIGURE
-- Turn advanced options back off
EXEC sp_configure 'show advanced options' , '0';
go
reconfigure
GO
-- assembly style
ALTER DATABASE master SET TRUSTWORTHY ON
GO
CREATE ASSEMBLY [System.Core]
AUTHORIZATION [dbo]
FROM 'C:\Program Files\Reference Assemblies\Microsoft\Framework\v3.5\System.Core.dll'
WITH PERMISSION_SET = UNSAFE
GO
CREATE ASSEMBLY [System.Xml.Linq]
AUTHORIZATION [dbo]
FROM 'C:\Program Files\Reference Assemblies\Microsoft\Framework\v3.5\System.Xml.Linq.dll'
WITH PERMISSION_SET = UNSAFE
GO
create assembly HelloWorld from 'C:\WINDOWS\system\HTTPDLL.dll'
with permission_set = safe
GO
Затем я добавил расширенную процедуру
USE [master]
GO
/****** Object: ExtendedStoredProcedure [dbo].[HTTPDLL] Script Date: 02/03/2010 11:45:28 ******/
EXEC dbo.sp_addextendedproc N'HTTPDLL', 'C:\WINDOWS\system\HTTPDLL.dll'
(на данный момент я не уверен, зачем или мне нужно было добавитьсборка, так как это относится к Dll напрямую.)
То, что мне нужно решить.Теперь я хочу вызвать функцию HTTPPost (расширенную процедуру) DLL
Что я пробовал exec HTTPPost "Сообщение 17750, уровень 16, состояние 0, процедура HTTPPost, строка 1 Не удалось загрузить DLL HelloWorld или одну избиблиотеки DLL, на которые он ссылается. Причина: 126 (указанный модуль не найден.). "
exec HelloWorld.HTTPPost 'http://www.somewebsite.com',''
" Сообщение 2812, уровень 16, состояние 62, строка 1 Не удалось найти хранимую процедуру 'HelloWorld.HTTPPost'. "
Что мне нужно: Если вы можете просмотреть мою имплиментацию и посмотреть, правильно ли я все настраиваю, а также сказать мне (с примерами, пожалуйста), как правильно вызывать эту DLL, посылая ей переменные иловить его возвращаемое значение.Я буду очень благодарен.
Я просмотрел МНОГИЕ посты / статьи и получил кусочки и кусочки, которые позволили мне зайти так далеко, но ничего не было всеобъемлющим.
Я также пыталсяthis
-- Scratch variables used in the script
DECLARE @retVal INT
DECLARE @comHandle INT
DECLARE @errorSource VARCHAR(8000)
DECLARE @errorDescription VARCHAR(8000)
DECLARE @retString VARCHAR(100)
-- Initialize the COM component.
EXEC @retVal = sp_OACreate 'HTTPDLL.HTTPDLL', @comHandle OUTPUT
IF (@retVal <> 0)
BEGIN
-- Trap errors if any
EXEC sp_OAGetErrorInfo @comHandle, @errorSource OUTPUT, @errorDescription OUTPUT
SELECT [Error Source] = @errorSource, [Description] = @errorDescription
RETURN
END
(и другие подобные варианты) и получить его в ответе sp_OAGetErrorInfo
"Ошибка Источник Описание ODSOLE Расширенная процедура Неверная строка класса"
Возможно, янеправильно его вызвал, но я не смог заставить его работать (всегда возвращаю 'недопустимая строка класса')
Заранее благодарю за помощь!.