Imports System.IO
Imports CleverComponents.InetSuite
 
Public Class clsTestPosting
    Public Sub startPost()
        Dim co_Test1 As New co_Test
        co_Test1.SubOrFunc__HttpPostAndSaveAsFile_SSL( _
          "https://data.electronicpartner.com/stock_v1/dede/content.php", 443, _
          120000, "MyUserName", "MyPassword", "C:\TestEP.txt", "C:\TestEP.xml")
    End Sub
End Class
 
Public Class co_Test
    Private WithEvents HttpSSL1 As CleverComponents.InetSuite.Http
    Friend WithEvents CertificateStore1 As New _
      CleverComponents.InetSuite.CertificateStore
 
    Public Function SubOrFunc__HttpPostAndSaveAsFile_SSL(ByVal ServerPath As _
      String, ByVal Port As Integer, ByVal Timeout As Integer, ByVal User As _
      String, ByVal Passwort As String, ByVal DestPathAndFileName As String, _
      ByVal FilePathToPost As String) As Boolean
        Dim ReturnValue As Boolean = True
        Dim curFielStreamB As FileStream
        Dim sw As StreamWriter
        Try
            'FileStream initializing (e.g. a xml-file)
            curFielStreamB = System.IO.File.Open(FilePathToPost, FileMode.Open, _
              FileAccess.Read, FileShare.ReadWrite)
            'Request initializing (uses the file to post)
            Dim HttpRequest1 As New CleverComponents.InetSuite.HttpRequest
            HttpRequest1.RequestStream = curFielStreamB
            'Filestream get's content/awnser of the postrequest
            sw = New StreamWriter(DestPathAndFileName)
            Dim str As String = SubOrFunc_HTTP_GET_SSL(ServerPath, Port, _
              Timeout, User, Passwort, HttpRequest1)
            If str = "" Then
                ReturnValue = False
            Else
                'write the data down
                sw.Write(str)
            End If
        Catch ex As Exception
            ReturnValue = False
            'Me.Co_SystemComponent1.ErrorMail("co_Test", New StackFrame( 
            ' ).GetMethod().Name, ex, "", False, False, False, False)
            MsgBox(ex.Message)
        Finally
            Try
                curFielStreamB.Close()
            Catch ex As Exception
            End Try
            Try
                sw.Close()
            Catch ex As Exception
            End Try
        End Try
        Return ReturnValue
    End Function