使用存储过程将文件URL转换为文件字节？

CREATE PROCEDURE ConvertURLToBytes
    @fileURL VARCHAR(255),
    @fileBytes VARBINARY(MAX) OUTPUT
AS
BEGIN
    DECLARE @objectToken INT
    DECLARE @hr INT
    DECLARE @fileSize INT
    DECLARE @fileStream VARBINARY(MAX)

    -- 创建一个HTTP请求对象
    EXEC @hr = sp_OACreate 'MSXML2.ServerXMLHTTP', @objectToken OUT
    IF @hr <> 0
    BEGIN
        RAISERROR('Failed to create HTTP request object.', 16, 1)
        RETURN
    END

    -- 发送HTTP请求获取文件内容
    EXEC @hr = sp_OAMethod @objectToken, 'open', NULL, 'GET', @fileURL, 'false'
    IF @hr <> 0
    BEGIN
        EXEC sp_OADestroy @objectToken
        RAISERROR('Failed to open HTTP request.', 16, 1)
        RETURN
    END

    EXEC @hr = sp_OAMethod @objectToken, 'send'
    IF @hr <> 0
    BEGIN
        EXEC sp_OADestroy @objectToken
        RAISERROR('Failed to send HTTP request.', 16, 1)
        RETURN
    END

    -- 获取文件内容并关闭HTTP请求
    EXEC @hr = sp_OAGetProperty @objectToken, 'responseBody', @fileStream OUT
    IF @hr <> 0
    BEGIN
        EXEC sp_OADestroy @objectToken
        RAISERROR('Failed to get response body.', 16, 1)
        RETURN
    END

    EXEC @hr = sp_OADestroy @objectToken
    IF @hr <> 0
    BEGIN
        RAISERROR('Failed to destroy HTTP request object.', 16, 1)
        RETURN
    END

    -- 获取文件字节长度
    SET @fileSize = DATALENGTH(@fileStream)

    -- 返回文件字节
    SET @fileBytes = @fileStream
END