2 Eigenene Aber Externe Programme kommunizieren lassen!

    • VB.NET

    Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von BiedermannS.

      2 Eigenene Aber Externe Programme kommunizieren lassen!

      Ich habe eine sehr leicht Art gefunden Befehle von einem Programm(Beide Programme müssen selbstgemacht sein) zum Anderen zu senden!

      Ich habe das so Aufgebaut!

      Eine Programm speichert das was das andere Programm empfangen soll in einer TXT datei ab! Beide Programme kennen den Pfad der Txt datei!


      Nun speichert das Erste Programm den Txt über einen Timer Alle 100Ms ab! Das 2 Programm bracht nun nurnoch die Text auszulessen!

      Hier der Code vom 1.) Programm! >>>( Der Text was gesendet werden soll wird in die Textbox 1 geschrieben)


      VB.NET-Quellcode

      1. Public Class Form1
      3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      4. Timer1.Start()
      5. End Sub
      7. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      8. Dim savef As New System.IO.StreamWriter("C:\Users\mcandy007\Desktop\Reden.txt")
      9. savef.Write(TextBox1.Text + ControlChars.NewLine)
      10. savef.Close()
      11. End Sub
      12. End Class



      Hier der Code vom 2.) Programm! >>>( Der Text was empfangen wird dir auch in einer Textbox angezeigt)

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      4. Timer1.Start()
      5. End Sub
      7. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      8. Dim Lesen As String = IO.File.ReadAllText("C:\Users\mcandy007\Desktop\Reden.txt")
      9. TextBox1.Text = Lesen
      10. End Sub
      11. End Class





      > Ein Tipp noch das Programm 1 muss zuerst geöffnet werden da die Txt datei erst erstellt werden muss!

      --------------

      So ich hoffe ich konnte etwas helfen!

      Es ist nicht sehr schwer! und ich bitte keinen dummen Sprüche weil es nicht die eleganteste Weise ist! ;)

      Bei Fehler bitte mich korigieren! :P

      Da sind dann immer noch 3 Hacken:

      1. Du schafst es nicht, dass das zweite Programm genau zum richtigen Zeitpunkt gestart wird

      2. Irgendwann fallen alle Intervalle zusammen (außer du hast das gleiche Intervall, aber dann siehe 1.)

      3. Es dauert länger als 100 ms etwas abzuspeichern und die Datei wieder zu schließen (und dann laden und schließen soll in der Zeit doppelt geschehen!)


      Und wenn man nur einmal auslesen soll, wieso speicherst du es dann alle 100 ms (geht das überhaupt so oft) ab.

      Alteran

      Hi.
      Oder man macht es ordentlich und benutzt Windows Messages (WM):
      devsource.com/c/a/Using-VS/Wor…indows-Messages-in-NET/2/
      devsource.com/c/a/Using-VS/Wor…indows-Messages-in-NET/3/

      ~ Chris
      To make foobar2000 a real random music player, I figured out the only way to achieve this is to use Windows Media Player.

      “At some point in time, you recognize that knowing more does not necessarily make you more happy.”

      dine intervalle können noch so unterschiedlich sein, noch so abgepasst...noch so gesteuert sein:
      i-wann kommt der punkt, andem beide programme zur selben zeit den zugriff wagen...warum?

      ein interval von 100 wird zwar als 100ms bezeichnet, jedoch sind es nicht genau 100ms...desweiteren spielen andere faktoren eine rolle, die den internen timer eines programmes stören. schleifendurchläufe, mal einen hänger, oder selbst wenn das lesen oder speichern mal etwas länger dauert, weil die platte grad aktiv von einem anderen programm genutzt wird, kann es sein, das der timer beim neuen anlauf länger als 100ms braucht....

      also diese methode ist..hm...nicht wirklich zu gebrauchen, nicht proffesionell..eher pfusch...

      Wie wäre es wenn du ein TextChange nimmst für das reinschreiben beim anderen bleibt woll nur der Timer...
      Dort könntest du einen Hash berechnen lassen und schauen ob dieser sich geändert hat (wenn in die Datei geschrieben wird!), wenn ja dann ließ es ein!
      Wäre jetzt mir spontan durch den Kopf gegangen...

      Kevin das bringt uns aber nicht wirklich weiter, wenn du viele guten Lösungen hast dann schreibe diese doch hier rein, damit können wir alle mehr anfangen als mit "bor ist das schlecht, ich kanns viel besser!"
      Wir wollen ihm ja dabei helfen Fortschritte zu machen!

      EDIT: Pipes gibt's erst am FW 3.5 !

      Mal als Ansatz (!!!):

      VB.NET-Quellcode

      1. Imports System.ComponentModel
      2. Imports System.IO.Pipes
      4. Public Class ClassPipeReceiver
      5. Public Event GotData(ByVal msg As String)
      7. Private WithEvents bw As New BackgroundWorker
      8. Private pname As String = String.Empty
      10. Public Sub New(ByVal pipename As String)
      11. pname = pipename
      12. bw.WorkerReportsProgress = True
      13. bw.WorkerReportsProgress = True
      14. End Sub
      16. Public Sub Run()
      18. If bw.IsBusy Then Exit Sub
      19. bw.RunWorkerAsync()
      21. End Sub
      23. Public Sub [Stop]()
      24. If bw.IsBusy Then bw.CancelAsync()
      25. End Sub
      27. Private Sub bw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bw.DoWork
      29. Dim p As New IO.Pipes.NamedPipeServerStream(pname, PipeDirection.In, 100, PipeTransmissionMode.Byte, PipeOptions.Asynchronous)
      30. Dim bgw As BackgroundWorker = CType(sender, BackgroundWorker)
      31. Dim b(4095) As Byte, i As Integer, s As String
      33. Do
      34. If Not p.IsConnected Then
      35. p.BeginWaitForConnection(New System.AsyncCallback(AddressOf connected), p)
      36. While Not p.IsConnected
      37. If bgw.CancellationPending Then Exit Do
      38. End While
      39. End If
      41. While i = 0
      42. If bgw.CancellationPending Then Exit Do
      43. i = p.Read(b, 0, 4096)
      44. System.Threading.Thread.Sleep(10)
      45. End While
      46. If i > 0 Then
      47. s = System.Text.Encoding.ASCII.GetString(b, 0, i)
      48. bgw.ReportProgress(1, s)
      49. End If
      50. i = 0
      51. p.Disconnect()
      52. Loop Until bgw.CancellationPending
      54. Try
      55. If p.IsConnected Then
      56. p.Disconnect()
      57. End If
      58. p.Dispose()
      59. Catch ex As Exception
      60. ' öm?
      61. End Try
      63. End Sub
      65. Private Sub connected(ByVal i As IAsyncResult)
      66. CType(i.AsyncState, IO.Pipes.NamedPipeServerStream).EndWaitForConnection(i)
      67. End Sub
      69. Private Sub bw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bw.ProgressChanged
      70. Dim s As String = CType(e.UserState, String)
      71. RaiseEvent GotData(s)
      72. End Sub
      73. End Class
      76. Public Class ClassPipeSender
      77. Public Event GotData(ByVal msg As String)
      79. Private WithEvents bw As New BackgroundWorker
      80. Private pname As String = String.Empty
      82. Public Sub New(ByVal pipename As String)
      83. pname = pipename
      84. bw.WorkerReportsProgress = True
      85. bw.WorkerReportsProgress = True
      86. End Sub
      88. Public Sub Run()
      90. If bw.IsBusy Then Exit Sub
      91. bw.RunWorkerAsync()
      93. End Sub
      95. Private Sub bw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bw.DoWork
      97. Dim p As New IO.Pipes.NamedPipeClientStream(".", pname, PipeDirection.Out)
      98. Dim b As BackgroundWorker = CType(sender, BackgroundWorker)
      99. p.Connect(10)
      101. Dim w As New System.IO.StreamWriter(p)
      102. w.AutoFlush = True
      103. w.Write("Hello")
      104. w.Close()
      105. w.Dispose()
      107. p.Close()
      108. p.Dispose()
      110. End Sub
      111. End Class


      Nutzung zb:

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private WithEvents snd As New ClassPipeReceiver("mypipe")
      5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      7. Dim snd As New ClassPipeSender("mypipe")
      8. snd.Run()
      10. End Sub
      12. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      13. snd.Run()
      14. End Sub
      16. Private Sub snd_GotData(ByVal msg As String) Handles snd.GotData
      17. Debug.Print("Got: " & msg)
      18. End Sub
      19. End Class


      Fehlt noch jede Menge Feintuning, aber besser als "Textdateien" ist es IMHO allemal und dem einen oder anderen mag es ja als Startpunkt dienen

      Kevin das bringt uns aber nicht wirklich weiter, wenn du viele guten
      Lösungen hast dann schreibe diese doch hier rein, damit können wir alle
      mehr anfangen als mit "bor ist das schlecht, ich kanns viel besser!"
      Es ist aber erstens schlecht und zweitens habe ich bereits zwei Lösungsvorschläge beigetragen -> Pipes/Socket (Auf die sich kevin89's Beitrag bezieht).