Загрузка картинки (двоичного файла) в базу (MSSQL) из интернета

Ёжик`

Сваял функцию, может будут иные рекомендации?И как бы эту функцию переписать в виде хранимки на MSSQL 2005?...
call BlobLoadFromURL("http://img.yandex.net/i/www/logo.png","logo.png")

'-------------------------------------

Public Function BlobLoadFromURL(ByVal URL As String, ByVal FileName As String)
On Error GoTo er
Dim Http
'Set Http = CreateObject("Msxml2.ServerXMLHTTP.4.0")
Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
Http.Open "GET", URL, False
'Http.setProxy 2, "192.168.99.11:3128"
'Http.setProxyCredentials "user", "password"
Http.send

Dim mstream As ADODB.Stream
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write Http.ResponseBody
mstream.Position = <b>0</b>

'с проксей не работает
'mstream.Open "URL=" + URL, adModeRead, adOpenStreamUnspecified

Dim cm As New ADODB.Command
With cm
 .ActiveConnection = Application.CurrentProject.Connection
 .CommandType = adCmdStoredProc
 .CommandText = "aa.BlobNew"
 .Parameters.Append .CreateParameter("@FileName", adVarChar, adParamInput, <b>250</b>, FileName)
 .Parameters.Append .CreateParameter("@FileBlob", adBinary, adParamInput, mstream.Size, mstream.Read)
 .Execute
End With

mstream.Close
Set mstream = Nothing

Set cm = Nothing
Set Http = Nothing

ex: Exit Function
er: MsgBox Err.Description, vbCritical, Err.Number
End Function
2 ответа

Ёжик`

Ёжик`,переписывать на серверную хранимку либо по-старинке через sp_OA... процедурыили для 2005 возможно написать clr


Ёжик`

Сенкс.А я надеялся на встроенный функционал...