kann man unter OOo Basic Ports ansprechen?

[wega]

Hallo zusammen,

kann man unter OOo-Basic den Parallel-Port ansprechen, so wie das unter VB und QB möglich ist?

für einen Hinweis wäre ich sehr dankbar, da ich bisher noch nichts gefunden habe.

mit Gruß
Werner

[wega]

Hallo zusammen,

ich nopch mal.

Zum seriellen Port habe ich schon mal was gefunden.

Code: Alles auswählen

Sub Main
  oFSO  = createUnoService("com.sun.star.bridge.OleObjectFactory").createInstance("Scripting.FileSystemObject") 

  f = oFSO.OpenTextFile("COM1:9600,N,8,1", 1) 'for Reading
'  f = oFSO.OpenTextFile("COM1:9600,N,8,1", 2) 'for Writing
'  f.write("abc")
  f.close

End Sub

Jetzt fehlt nur noch eine Aussage zum parallelen Port.

Gruß
Werner