Export to Azure Blob (via SIC)

SIC Rule

Public Shared Function RunOperation() As Byte()
			
	Dim sftpHost As String = "localhost" ' Replace with your SFTP server address
    Dim sftpPort As Integer = "20541"
    Dim sftpUsername As String = "user" ' Replace with your SFTP username
    Dim sftpPassword As String = "pass" ' Replace with your SFTP password
    Dim remoteFilePath As String = "path"	
		Dim fileBuffer As Byte()
        Dim tempFilePath As String = Path.GetTempFileName()

        ' Setup session options
        Dim sessionOptions As New SessionOptions
		With sessionOptions
            .Protocol = Protocol.Sftp
            .HostName = sftpHost
            .PortNumber = sftpPort
            .UserName = sftpUsername
            .Password = sftpPassword
        End With
		

        Using session As New Session()
            ' Connect to the SFTP server
            session.Open(sessionOptions)
            

            ' Setup transfer options
            Dim transferOptions As New TransferOptions With {
                .TransferMode = TransferMode.Binary
            }

            ' Download the file to a temporary file
            session.GetFiles(remoteFilePath, tempFilePath, False, Nothing)

            ' Read the temporary file into a memory buffer
            fileBuffer = File.ReadAllBytes(tempFilePath)

            ' Delete the temporary file
            File.Delete(tempFilePath)
			
            ' Disconnect from the SFTP server
            session.Close()
            
        End Using
Return fileBuffer
        
    End Function

Dim objGatewayDetails As GatewayDetails = BRApi.Utilities.GetGatewayConnectionInfo(si,"azureblob")
				
				' Setup the objects to read Gateway Details from BRAPIs

Dim objRemoteRequestResultDto As RemoteRequestResultDto =BRApi.Utilities.ExecRemoteGatewayBusinessRule(si, "AzureBlobSFTP", Nothing, objGatewayDetails.GatewayName,"RunOperation","AzureBlobSFTP", True, 600)
If (objRemoteRequestResultDto.RemoteResultStatus = RemoteMessageResultType.Success) Then
    Dim bytesFromFile As Byte()
	bytesFromFile = objRemoteRequestResultDto.ObjectResultValue
 	Dim groupFolderPath As String = BRAPi.Utilities.GetFileShareFolder(si,FileShareFolderTypes.BatchHarvest, api)
	Using sw As StreamWriter = New StreamWriter(groupFolderPath &"\Azurefile.csv")
		sw.Write(bytesFromFile)
		sw.Close()
	End Using
	
	
Else

  brapi.ErrorLog.LogMessage(si, "No data received.")
	
End If