Apache OpenOffice Community Forum

Code: Select all

Sub Main
  Dim oConnector                'Connection-Objekt
  Dim oConnection               'Die aufzubauende Verbindung
  Dim sConDesc As String     'Verbindungsbeschreibungen
  Dim nOrder(5) As Integer      'Container für die Anfrage an Server
  Dim nReceived() As Integer   'Container für Antwort vom Server
  Dim nBytesSended As Long      'Anzahl der gesendeten Bytes
  Dim nBytesReceived As Long    'Anzahl empfangener Bytes
  Dim i As Integer
  Dim n As Integer              'Index der Verbindungsbeschreibungen
  Dim dValue As Double          'Long ist zu klein
  Dim sResult As String         'Die Antwort als String
  
  'Verbindungsbeschreibung
  'enthält die Beschreibung der Verbindung als kommagetrennte Werteliste
  'z.B. socket,host=localhost,port=2345 für eine TCP/IP-Verbindung. 
  
  sConDesc = "socket,host=localhost,port=6315"
  
  'Objekt für den Verbindungsaufbau erzeugen
  oConnector = CreateUnoService("com.sun.star.connection.Connector")
  
  On Local Error Goto Error
  'Erstellt eine neue Verbindung zur Interprozesskommunikation.
  'Exception: NoConnectException, ConnectionSetupException
  oConnection = oConnector.connect(sConDesc)
  
  'Anfrage senden
  nOrder(0)= asc("M")
  nOrder(1)= asc("E")
  nOrder(2)= asc("A")
  nOrder(3)= asc("S")
  nOrder(4)= asc("?")
   
  nByteSended = oConnection.write(nOrder(),6)
  'Antwort empfangen
  'xray oConnection
  'Länge des Datenfeldes lesen
  nBytesReceived = oConnection.read(nReceived(),2)
  
  Dim j As Integer
  j = nReceived(0)
  
  nBytesReceived = oConnection.read(nReceived(),j)
  'xray nBytesReceived
 
  
  'Verbindung schließen
  oConnection.close()
  
  'sResult = "Anzahl empfangener Bytes: " & nBytesReceived & CHR$(10) & _
   '    "Byte 0: " & nReceived(0) & CHR$(10) & _
    '   "Byte 1: " & nReceived(1) & CHR$(10) & _
     '  "Byte 2: " & nReceived(2) & CHR$(10) & _
      ' "Byte 3: " & nReceived(3)
  
  'Byte array To string     
  For i = 0 To j-1
    sResult = sResult + chr(nReceived(i))
  next
 
  
  MsgBox sResult
  Exit Sub
  
Error:
  MsgBox "Server error."
 
End Sub

Code: Select all

# coding: utf-8
from __future__ import unicode_literals
import uno
import unohelper
import socket

CTX = uno.getComponentContext()
SM = CTX.getServiceManager()
desktop = XSCRIPTCONTEXT.getDesktop()
ODOC = desktop.getCurrentComponent()
        
def testTcp(*args):
	client = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
	client.connect(("localhost", 6315))
	client.sendall(b"MEAS?")
	data = client.recv(1024)
	client.close()
	print('Received',repr(data))
	sheet = ODOC.CurrentController.ActiveSheet
	A2 = sheet.getCellRangeByName('A2')
	A2.setString(data.decode('utf-8'))