Anonyme Pipes unter VB.NET richtig anwenden!

Cheffboss · 9. Februar 2021, 13:04

Moin!

Erstmal möchte ich mich entschuldigen, weil ich in letzter Zeit viele neue Beitrage geöffnet habe.
Und nicht das Forum zu spammen möchte.
Wie ihr vielleicht schon wisst, möchte ich den Inhalt aus einer Listbox einer fremden Anwendung ausgelesen werden.
Gestern habe ich den Begriff „Anonyme Pipes“ kennen gelernt.
Und das könnte die Lösung meines Problems sein.
Leider habe ich wenig Infos gefunden, nur ein Projekt in C#.
Als ich dieses umschreiben wollte in VB.NET komme ich nicht weiter…
Ich habe den Client bereits in VB.NET umgeändert.
Beim Server habe ich das Problem, es sind 3 Zeilen, die mir das Leben schwer machen.
Freue mich auf eure Hilfe!
BIG THX

Bilder.

Projekte im Anhang!
Altes VB.NET Projekt gelöscht, C# Code noch verfürgbar!

PipesServerTestC#.zip

nafets · 9. Februar 2021, 14:57

Die +=-Sachen, wo bei dir Fehler angezeigt werden, sid eigentlich AddHandler-Aufrufe. In C# sind die beide += und der Converter kann das nicht unterscheiden.

Edit: Und -= ist im Event-Kontext RemoveHandler.

Cheffboss · 9. Februar 2021, 15:31

@nafets
Danke, für deine Antwort.
Jetzt könnte ich die zwei Fehler los werden.
Aber wie ich den dritten Fehler los bekomme, weiß ich noch nicht!?

VB.NET-Quellcode

'_pipeServer.PipeMessage += New DelegateMessage(AddressOf PipesMessageHandler)
AddHandler _pipeServer.PipeMessage, New DelegateMessage(AddressOf PipesMessageHandler)

VB.NET-Quellcode

' _pipeServer.PipeMessage -= New DelegateMessage(AddressOf PipesMessageHandler)
AddHandler _pipeServer.PipeMessage, New DelegateMessage(AddressOf PipesMessageHandler)

Fehlerzeile:

VB.NET-Quellcode

PipeMessage.Invoke(stringData)

nafets · 9. Februar 2021, 15:38

Mach da mal einfach das .Invoke weg und schau, ob das dann funktioniert. Das ist ein Delegatenaufruf, den man in C# mit .Invoke() machen kann, wobei das dort optional ist. Ich nehme jetzt mal an, dass das in VB.NET wohl nur ohne das .Invoke geht.

Cheffboss · 9. Februar 2021, 15:43

@nafets
Super, das wars. Vielen Dank! :thumbup:

Ich versuche den Code saube zu machen und hier zu posten, für die anderen.
Danke

Cheffboss · 9. Februar 2021, 17:01

@nafets
Vielen Dank, ich habe es nun soweit geschaft.
Das Projekt für alle Im Anhang zum runterladen...
Das einzige was schade ist, das man im Debugger-Modus ausirgendeinen Grund,
keine Daten in die Listbox eintragen kann.
Wer den Code optimieren will gerne...

VB.NET-Quellcode

Private Sub _pipeServer_NeueDateien(wert As String) Handles _pipeServer.NeueDateien
If Debugger.IsAttached Then
MsgBox("nicht im debuger!")
Else
Me.ListBox1.Items.Add(wert)
End If
End Sub

edit2:
Da der Code noch nicht gut war und noch ein Fehler drin ist, habe ich diesen wieder gelöscht!
Die neue Version folgt!

Out of Memory · 9. Februar 2021, 21:16

Hallo,
was willst du mit Pipes?
Du kannst vielleicht eine rauchen, aber nicht damit in Windows programmieren.
Pipes sind Interprozess-Connections und Du wirst damit nie bis gar nie was zu tun haben.

Wenn Du Listboxen fremder Programme auslesen willst must du trotzdem etwas tun.
Du musst ermitteln zu welchem Window die Listbox gehört.
Hast Du das Handle zu diesem Window kannst Du es subclassen oder es nach seinen
Childs durchsuchen. Die Listbox hat die Klasse: Listbox (wer hätte das gedacht ).
Aber dieses Windwo könnte viele solcher Klassen als Childs haben - welches ist
nun deins?

VaporiZed · 9. Februar 2021, 21:41

Out of Memory schrieb:

aber nicht damit in Windows programmieren.
Pipes sind Interprozess-Connections und Du wirst damit nie bis gar nie was zu tun haben.

Eh, doch. Schaust Du in seine anderen Threads. Er hat 2 Programme, bei denen er einen Weg gesucht hat, wie die beiden miteinander reden können. Ohne TCP/IP. Auf dem selben PC. Ohne Datenbank. Ohne Dateien. Mach einen Gegenvorschlag, wie man sowas noch besser lösen kann. Ohne Pipes. Und ohne fremde Prozesse auszulesen. Weil: Das ist, wenn es eben gar nicht mehr anders geht.

##########

@Cheffboss: Der VB6-Namespace ist bei Dir wohl nicht rauszukriegen oder? Und Option Strict Off kann man auch in den Projekteigenschaften einstellen, dann musst Du es nicht in jede Datei einzeln schreiben.
Zum Debugger-Problem:

VB.NET-Quellcode

Private Sub _pipeServer_NeueDateien(wert As String) Handles _pipeServer.NeueDateien
Me.Invoke(Sub() Me.ListBox1.Items.Add(wert.Replace(Microsoft.VisualBasic.vbNullChar, Nothing)))
End Sub

ErfinderDesRades · 10. Februar 2021, 04:12

Kinners, ist das nervig!
Im ThreadTitel steht, es gehe um anonyme Pipes - was immer das auch sein mag.
Und jetzt guck ich zufällig mal Bildle - was seh ich: NamedPipes.
Jo, zu NamedPipes hätte ich Samples zu gehabt, auch eine klein Server-Client-Anwendung, aber nun wohl nicht mehr nötig.

VaporiZed · 10. Februar 2021, 06:02

Höhö, da haste recht. Also, dass hier n Beispiel mit NamedPipes gegeben wurde.

ErfinderDesRades schrieb:

was immer das auch sein mag

Hmm … ne Pipe ohne Namen? Daher auch nur PC-lokal nutzbar.
Dann hier was mit anonymen auf Konsole.
Die entstehende PipeClient.Exe muss im selben Verzeichnis sein wie die PipeServer.Exe. Kann man natürlich auch (im Code) ändern.
Achtung, unidirektional:

Server

VB.NET-Quellcode

Imports System.IO
Imports System.IO.Pipes
Module Module1
Sub Main()
Call New PipeServer().Main()
End Sub
End Module
Friend Class PipeServer
Private ReadOnly PipeClientProcess As New Process
Friend Sub Main()
Using PipeServer As New AnonymousPipeServerStream(PipeDirection.Out, HandleInheritability.Inheritable)
PrepareClientApp(PipeServer)
CommunicateWithClient(PipeServer)
End Using
TerminateConnection()
End Sub
Private Sub PrepareClientApp(PipeServer As AnonymousPipeServerStream)
PipeClientProcess.StartInfo.FileName = "pipeClient.exe" 'die PipeClient.Exe muss daher im selben Verzeichnis sein wie die PipeServer.Exe
PipeClientProcess.StartInfo.Arguments = PipeServer.GetClientHandleAsString()
PipeClientProcess.StartInfo.UseShellExecute = False
PipeClientProcess.Start()
PipeServer.DisposeLocalCopyOfClientHandle()
End Sub
Private Sub CommunicateWithClient(PipeServer As AnonymousPipeServerStream)
Try
Using StreamWriter As New StreamWriter(PipeServer)
StreamWriter.AutoFlush = True
StreamWriter.WriteLine("SYNC")
PipeServer.WaitForPipeDrain()
Do
Console.Write("[SERVER] Enter text: ")
StreamWriter.WriteLine(Console.ReadLine())
PipeServer.WaitForPipeDrain()
Loop
End Using
Catch IOEx As IOException
Console.WriteLine("[SERVER] Error: {0}", IOEx.Message)
End Try
End Sub
Private Sub TerminateConnection()
PipeClientProcess.WaitForExit()
PipeClientProcess.Close()
PipeClientProcess.Dispose()
End Sub
End Class

Client

VB.NET-Quellcode

Imports System.IO
Imports System.IO.Pipes
Module Module1
Sub Main(CommandLineArguments As String())
Call New PipeClient().Main(CommandLineArguments)
WaitForInput()
End Sub
Private Sub WaitForInput()
Console.Write("[CLIENT] Press Enter to continue …")
Console.ReadLine()
End Sub
End Module
Friend Class PipeClient
Private PipeClient As AnonymousPipeClientStream = Nothing
Private StreamReader As StreamReader = Nothing
Public Sub Main(CommandLineArguments As String())
PossiblyCreatePipeClientWith(CommandLineArguments)
RunPipeInputLoop()
End Sub
Private Sub PossiblyCreatePipeClientWith(CommandLineArguments As String())
If CommandLineArguments.Count = 0 Then Return
PipeClient = New AnonymousPipeClientStream(PipeDirection.In, CommandLineArguments(0))
End Sub
Private Sub RunPipeInputLoop()
If PipeClient Is Nothing Then Return
CreateStreamReader()
ReportStatus()
ReportAndWaitForServerData()
ProcessPipeData()
DestroyStreamReader()
DestroyPipeClient()
End Sub
Private Sub CreateStreamReader()
StreamReader = New StreamReader(PipeClient)
End Sub
Private Sub ReportStatus()
Console.WriteLine("[CLIENT] Current TransmissionMode: {0}.", PipeClient.TransmissionMode)
End Sub
Private Sub ReportAndWaitForServerData()
Do
Console.WriteLine("[CLIENT] Wait for sync...")
Loop Until StreamReader.ReadLine() = "SYNC"
End Sub
Private Sub ProcessPipeData()
Do
Dim IncomingData = StreamReader.ReadLine()
If IncomingData Is Nothing OrElse IncomingData = "" OrElse IncomingData = "Quit" Then Exit Do
Console.WriteLine("[CLIENT] Echo: " & IncomingData)
Loop
End Sub
Private Sub DestroyStreamReader()
StreamReader.Dispose()
StreamReader = Nothing
End Sub
Private Sub DestroyPipeClient()
PipeClient.Dispose()
PipeClient = Nothing
End Sub
End Class

Cheffboss · 12. Februar 2021, 17:21

@an alle
Ich habe ein neues Problem und verstehe es einfach nicht.

Ich arbeite mit Anonyme Pipes, so weit geht alles ganz gut.
Aber wenn ich den String mit „Path.GetFileName“ verarbeiten möchte, kommt folgender Fehler: „Illegales Zeichen im Pfad.“.
Ich habe mir zuerst den Client angeschaut, dieser sendet alles ganz ok.
Dann bin ich auf die Idee gekommen, dass es vielleicht ein Converterproblem ist, deshalb habe ich da alles ausprobiert(UTF8, UNICODE, ANSI).
Diese habe ich beim Server und Client beider seitig ausprobiert!
Ich habe den String der empfangen wurden ist, mit Notepad ++ untersucht, dort findet man kein verbotenes/versteckte Zeichen.
Wenn ich im Event „NeueDateien“ bin und den Wert in die Listbox1 einfüge geht es....
Aber sobald ich System.IO.Path.GetFileName(wert) verwende, kommt diese Fehlermeldung!
Das Projekt habe ich hochgeladen, freue mich wenn mir jemand sagen kann, warum das Problem da ist, und vorallem wie ich es lösen kann.
BIG THX

VB.NET-Quellcode

Private Sub pipeServer_NeueDateien(wert As String) Handles pipeServer.NeueDateien
Dim test() As String = wert.Split(CType("|", Char()))
Me.ListBox1.Items.Add(test(1)) ' <----- So gehts... Warum?
Me.ListBox1.Items.Add(System.IO.Path.GetFileName(test(1))) ' <----- Fehlerquelle!
End Sub

Projekt:
Bug Projekt gelöscht - unten die neue Version!

RodFromGermany · 12. Februar 2021, 17:49

@Cheffboss Machst Du zunächst:

VB.NET-Quellcode

Dim test() As String = wert.Split("|"c)

Und dann gibst Du mal aus, was in test(1) drinne steht.
Ich denke mal, dass Du dann sofort siehst, warum der Fehler kommt.
Lerne, Dein Programm zu debuggen!
Debuggen, Fehler finden und beseitigen

Cheffboss · 12. Februar 2021, 17:52

@RodFromGermany
Danke, aber leider ist der Bug noch vorhanden....

edit2
Super, Vielen Dank.

edit3:
@an alle
@RodFromGermany
Danke, ich könnte das Problem nun lösen.

Im Anhang befindet sich der Code.
Einfach nur dies verändert und es läuft perfekt...

VB.NET-Quellcode

Dim stringData As String = Encoding.UTF8.GetString(buffer, 0, buffer.Length).Replace(vbNullChar, "")

Projekt:
Anonyme Pipes -VB.NET.zip (geupdatet...)

RodFromGermany · 12. Februar 2021, 18:09

@Cheffboss OHa, da kam ein C-String an, dwe wird mit einem 0-Char beendet.
Das kannst Du auchg mit einem .TrimEnd("0"c) erledigen, das ist übersichtlicher.

ErfinderDesRades · 12. Februar 2021, 19:38

.TrimEnd("0"c)

Vorsicht!
Die berühmte C&P - Bremse!

RodFromGermany · 13. Februar 2021, 07:24

@ErfinderDesRades Glückwunsch, gefunden. :thumbsup:

Anonyme Pipes unter VB.NET richtig anwenden!

Anonyme Pipes unter VB.NET richtig anwenden!

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Out of Memory schrieb:

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

6 Benutzer haben hier geschrieben