vers, Lagervertrag

VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb

@@ -1,9 +1,10 @@
 Imports System
 Imports System.Collections.Generic
-    Imports Chilkat
+Imports Chilkat
 Imports System.Web.Script.Serialization
 Imports System.IO
 Imports System.Text
+Imports Renci.SshNet
 Public Class cTelotecAPI
 
 
@@ -346,39 +347,59 @@ Public Class cTelotecAPI
     End Sub
 
     ' FTP-Zugangsdaten
-    Dim ftpServer As String = "ftp://example.com" ' Ersetze mit deinem FTP-Server
-    Dim ftpUsername As String = "deinBenutzername"
-    Dim ftpPassword As String = "deinPasswort"
+    Dim host As String = "91.93.197.91" ' Ersetze mit deinem FTP-Server
+    Dim port As Integer = 22
+    Dim Username As String = "TELOTEC-PROD"
+    Dim Password As String = "T18Y45O1W"
+    'Username: TELOTEC-TEST
+    'Password: V15GKM48 
+    'Username: TELOTEC-PROD
+    'Password: T18Y45O1W
 
     Public Sub SaveJsonResponseTo_ATEZFTP(filePath As String)
+
+
         Try
-            ' Dateiname aus dem Pfad extrahieren
-            Dim fileName As String = System.IO.Path.GetFileName(filePath)
+            Dim remotePath As String = "/" & System.IO.Path.GetFileName(filePath)
 
-            ' FTP-Ziel-URL zusammenbauen
-            Dim ftpFullPath As String = $"{ftpServer}/{fileName}"
-
-            ' FtpWebRequest erstellen
-            Dim request As System.Net.FtpWebRequest = CType(System.Net.WebRequest.Create(ftpFullPath), System.Net.FtpWebRequest)
-            request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
-            request.Credentials = New System.Net.NetworkCredential(ftpUsername, ftpPassword)
-            request.UseBinary = True
-            request.UsePassive = True
-            request.KeepAlive = False
-
-            ' Datei lesen und in Byte-Array umwandeln
-            Dim fileContents() As Byte = System.IO.File.ReadAllBytes(filePath)
-            request.ContentLength = fileContents.Length
-
-            ' Stream öffnen und Datei senden
-            Using requestStream As System.IO.Stream = request.GetRequestStream()
-                requestStream.Write(fileContents, 0, fileContents.Length)
+            Using sftp As New SftpClient(host, port, Username, Password)
+                sftp.Connect()
+                Using fileStream As New System.IO.FileStream(filePath, System.IO.FileMode.Open)
+                    sftp.UploadFile(fileStream, remotePath)
+                End Using
+                sftp.Disconnect()
             End Using
 
-            ' Antwort vom Server holen
-            Using response As System.Net.FtpWebResponse = CType(request.GetResponse(), System.Net.FtpWebResponse)
-                Console.WriteLine("Upload abgeschlossen, Status: " & response.StatusDescription)
-            End Using
+
+            '' Dateiname aus dem Pfad extrahieren
+            'Dim fileName As String = System.IO.Path.GetFileName(filePath)
+            'Console.WriteLine("filePath: " & filePath)
+
+            '' FTP-Ziel-URL zusammenbauen
+            'Dim ftpFullPath As String = $"{ftpServer}/{fileName}"
+
+
+            '' FtpWebRequest erstellen
+            'Dim request As System.Net.FtpWebRequest = CType(System.Net.WebRequest.Create(ftpFullPath), System.Net.FtpWebRequest)
+            'request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
+            'request.Credentials = New System.Net.NetworkCredential(ftpUsername, ftpPassword)
+            'request.UseBinary = True
+            'request.UsePassive = True
+            'request.KeepAlive = False
+
+            '' Datei lesen und in Byte-Array umwandeln
+            'Dim fileContents() As Byte = System.IO.File.ReadAllBytes(filePath)
+            'request.ContentLength = fileContents.Length
+
+            '' Stream öffnen und Datei senden
+            'Using requestStream As System.IO.Stream = request.GetRequestStream()
+            '    requestStream.Write(fileContents, 0, fileContents.Length)
+            'End Using
+
+            '' Antwort vom Server holen
+            'Using response As System.Net.FtpWebResponse = CType(request.GetResponse(), System.Net.FtpWebResponse)
+            '    Console.WriteLine("Upload abgeschlossen, Status: " & response.StatusDescription)
+            'End Using
 
         Catch ex As Exception
             Console.WriteLine("Fehler beim Upload: " & ex.Message)
@@ -392,7 +413,7 @@ Public Class cTelotecAPI
 
             Directory.CreateDirectory(dayDir)
 
-            Dim fileName As String = "GetTAMessages_" & Date.Now.ToString("HHmmss") & ".json"
+            Dim fileName As String = "GetTAMessages_" & Date.Now.ToString("ddMMyyyy_HHmmss_fff") & ".json"
             filePath = Path.Combine(dayDir, fileName)
 
             File.WriteAllText(filePath, jsonText, Encoding.UTF8)