Auf ein Neues : Winsock Control

[Don Pasquale]

Hallo Leute,

ich versuche eine Winsock Verbindung zu einem Rechner aufzubauen. Diesmal mit dem bei in Lotus OLE Klassen
sichtbaren : Microsoft Winsock Control 6.0 (SP5)

Ich bekomme den Fehler : Adressgruppe nicht unterstützt.
Kennt das jemand ?

Ciao
Don Pasquale

Hier mein Code :

Dim Winsock1 As Variant
Dim status As Integer   

Set Winsock1 = CreateObject("MsWinsock.Winsock")
Winsock1.Close
   
For i = 1 To 1000
      
winsock1.Protocol = 1
winsock1.connect localhost,4444
Status = Winsock1.State
      
Select Case Status
         
Case 1 :
Print "1- Open"
   Winsock1.SendData("13|155|0000000020" & Chr$(10))         
      Case 2 : Print 2
      Case 3 : Print 3
      Case 4 : Print 4
      Case 5 : Print 5
      Case 6 : Print 6
      Case 7 : Print 7
      Case 8 : Print 8
      Case 9 : Print 9
      Case Else
         
End Select
winsock1.Close
Next i

[Hoshee]

Yoo,

warum machst Du das denn:

Code

Set Winsock1 = CreateObject("MsWinsock.Winsock")
Winsock1.Close

Anschließend sprichst Du das Objekt wieder an. Das kann nicht funktionieren.

Gruss ...

Hoshee

[Don Pasquale]

Hi Hoshee,

ich bin zwar nicht ganz Deiner Meinung, aber
selbst wenn ich das Winsock.Close rausnehme ändert sich nichts.

Je nach Protocol ( 0 oder 1 ) bekomme ich einen
Status von 6 oder 9.
Und bei Beiden kann/darf ich kein SendData ausführen.

ratlos

Don Pasquale

[Hoshee]

Yoo,

ich hocke zu Hause und deswegen kann ich nicht testen. Mein Noti ist von den Gören in beschlag genommen worden.

Bekommst Du bei 'winsock1.connect localhost,4444' eigentlich einen Return? Normal sollte hier doch der Handle der Socketverbindung zurückgegeben werden. Oder liege ich da falsch? Habe die Syntax nicht im Kopf.

Gruss ...

Hoshee

[Ralf_M_Petter]

Entschuldigung nur eine bescheidene Anmerkung, für solche IP Kommunikationssachen ist Lotusscript nicht gerade die erste Wahl. Viel bequemer lässt sich das mit einem Java Agenten machen. Ich steuere so z.B. die Access-Listen unser Cisco PIX Firewall über eine Notesdatenbank.  In der Java Klassenbibliothek ist nämlich Kommuniktaion über diverse IP Protokolle schon fix eingebaut und das ganze funktioniert auch in R5 schon ganz ordentlich.

Wie gesagt nur eine Anmerkungen.

Grüße

Ralf

[Don Pasquale]

@Hoshee :

Nope, kein Rückgabewert
eine Zeile wie
handle = Winsock1.Connect
gibt einen Automation Fehler

@Ralf M Petter

Hast Du vieleicht Code mit dem ich zumindest nur das obige Minimalbeispiel ausprobieren könnte ?
Also einen Verbindungsaufbau und bei erfolgreichem Connect einen String zu senden ?
Auf´s geratewohl das medium zu wechseln finde ich etwas kühn

Gruß
Don Pasquale

[Ralf_M_Petter]

Hier der Code den ich schnell zusammgestöpselt habe. Hoffe er funktioniert, denn ich habe momentan keine Zeit zum Testen.

import lotus.domino.*;
import java.net.*;
import java.io.*;
public class JavaAgent extends AgentBase {

   public void NotesMain() {
         try{
         Session session = getSession();
         AgentContext agentContext = session.getAgentContext();
         Socket s =new Socket(InetAddress.getByName("172.16.2.60"),23);
         s.setSoTimeout(2000);
         BufferedReader sInput=new BufferedReader(new InputStreamReader(s.getInputStream()));
         PrintWriter sOutput= new PrintWriter(new OutputStreamWriter(s.getOutputStream()));
         sOutput.println("Text der verschickt wird");
         String puffer=new String();
         // in puffer steht dann die Antwort des Kommunikationspartners   
         gelesen=sInput.read(puffer);
         s.close();         
      }
   
      catch(Exception e) {
         e.printStackTrace();
      }
   }
}

Probier in einfach mal aus und poste eventuelle Probleme. Übrigens die 23 beim eröffnen der Socket Verbindung ist das Protokoll. z.B. Telnet.

Grüße

Ralf

[Axel_Janssen]

genau  

@Ralf: [totale Kleinigkeit]: Ich glaube es ist aus irgendwelchen kleinlichen und hier vielleicht gar nicht ins Gewicht fallenden Gründen besser Socket-Verbindungen mit ByteStreams und nicht mit CharacterStreams auszulesen (weiss ungefähr wo das steht, werde nachschauen).

@all: In Kapitel 45.2 des "Handbuchs der Java-Programmierung"  (frei herunterladbar unter http://www.javabuch.de ) gibt es Erläuterungen und Beispielcode zum Thema.

 

[Ralf_M_Petter]

Das ist möglich, der Code stammt aus meinem ersten Java Versuch mit Lotus Notes und ist daher schon uralt, da gibt es sicher Sachen die man besser machen könnte.  Ein Problem mit den Chraktern tritt sicher dort auf, wenn auch Steurzeichen übertragen werden, das ist aber bei meinem Code nicht der Fall, da hier nur PlainText übertragen wurde.

Grüße

Ralf

[Don Pasquale]

Vielen Dank,

eine eroor Meldung habe ich :
Undefined variable gelesen
das sollte wohl ein Char werden.

Wie definiere ich Char in Java ?


Gruß
Don Pasquale

[Ralf_M_Petter]

Sorry wie ich es mir gedacht habe, haben sich beim kopieren ein paar Fehler eingeschlichen. Hier nochmal der Code, der jetzt einwandfrei kompilieren müsste:

import lotus.domino.*;
import java.net.*;
import java.io.*;
public class JavaAgent extends AgentBase {

   public void NotesMain() {
         try{
         Session session = getSession();
         AgentContext agentContext = session.getAgentContext();
         Socket s =new Socket(InetAddress.getByName("172.16.2.60"),23);
         s.setSoTimeout(2000);
         BufferedReader sInput=new BufferedReader(new InputStreamReader(s.getInputStream()));
         PrintWriter sOutput= new PrintWriter(new OutputStreamWriter(s.getOutputStream()));
         sOutput.println("Text der verschickt wird");
         char[] puffer=null;
         // in puffer steht dann die Antwort des Kommunikationspartners  
         int gelesen=sInput.read(puffer);
         s.close();        
      }
   
      catch(Exception e) {
         e.printStackTrace();
      }
   }
}

Damit er etwas sinnvolles macht, muß man natürlich noch die IP Adresse, Protokoll ändern und eventuell etwas sinnvolles schicken.

Grüße

Ralf

[Don Pasquale]

@Ralf

Super, da tut sich was !
Ergänzen mußte ich um die 4444 ( das ist der Port)
und um folgende Zeile
        sOutput.flush();

Das ist der aktuelle Code,
aber wie bekomme ich angezeigt was in dem Puffer steht ?
Das SENDEN funktioniert !!!

import lotus.domino.*;
import java.net.*;
import java.io.*;
public class JavaAgent extends AgentBase {

  public void NotesMain() {
        try{
        Session session = getSession();
        AgentContext agentContext = session.getAgentContext();
        Socket s =new Socket(InetAddress.getByName("localhost"),4444);
        s.setSoTimeout(60);
        BufferedReader sInput=new BufferedReader(new InputStreamReader(s.getInputStream()));
        PrintWriter sOutput= new PrintWriter(new OutputStreamWriter(s.getOutputStream()));
        sOutput.println("1|153|0000000011\n\r");
        sOutput.flush();
      
        char[] puffer=null;
        // in puffer steht dann die Antwort des Kommunikationspartners  
        int gelesen=sInput.read(puffer);
        s.close();        
      }
 
      catch(Exception e) {
        e.printStackTrace();
      }
  }
}

[Ralf_M_Petter]

Ich habe den Code ergänzt, dass er das Ergebnis auf die Java Konsole ausgibt. Siehe Kommentar. Konnte leider nicht testen, da ich keinen Server habe der auf diesem Port in der von dir gewünschten Weise antwortet. Aber probier mal und poste eventuelle Probleme.

import lotus.domino.*;
import java.net.*;
import java.io.*;
public class JavaAgent extends AgentBase {

  public void NotesMain() {
        try{
        Session session = getSession();
        AgentContext agentContext = session.getAgentContext();
        Socket s =new Socket(InetAddress.getByName("localhost"),4444);
        s.setSoTimeout(60);
        BufferedReader sInput=new BufferedReader(new InputStreamReader(s.getInputStream()));
        PrintWriter sOutput= new PrintWriter(new OutputStreamWriter(s.getOutputStream()));
        sOutput.println("1|153|0000000011\n\r");
        sOutput.flush();
        StringBuffer Erg=new StringBuffer();
       char[] puffer=null;
        // in puffer steht dann die Antwort des Kommunikationspartners
        // Diese wird so lange zum Ergebnis hinzugefügt, bis keine Antwort mehr kommt. Dann wird das Ergebniss über die Javakonsole ausgegeben.
        // Um diese anzuzeigen  Menü Datei>Extras>Java Debug Console
      while (sInput.read(puffer)!=-1){
         Erg.append(puffer);
      }
      System.out.println("Ergebnis: "+Erg.toString());
        s.close();      
      }
 
      catch(Exception e) {
        e.printStackTrace();
      }
  }
}

[Axel_Janssen]

ich habe etwas scheinbar funktionierendes hinbekommen basierend auf code aus dem "Handbuch der Javaprogrammierung".

Verbinde mit Tomcat. Sende ihm über http die Nachricht von Don (was keinen Sinn macht) und erhalte eine HTTP 200 als Rückmeldung (sieht normal aus).


hier ist code (musst natürlich noch den port ändern.
Es dauert relativ lange .
WICHTIG: Um das Ergebnis und eventuelle Fehlermeldungen sehen zu können, brauchst du die Java Debug Console (File | Tools | Show Java Debug Console ... genau unter Debug Lotus Script).  
Öffne die Konsole, bevor du den Agenten startest.

Code

import lotus.domino.*;
import java.net.*;
import java.io.*;
public class JavaAgent extends AgentBase {

  public void NotesMain() {
        try{
           int len = 0;
           // notes stuff
           Session session = getSession();
           AgentContext agentContext = session.getAgentContext();
      
      // socket - Verbindung generieren. 
           Socket sock =new Socket(InetAddress.getByName("localhost"), 8080);
           InputStream in = sock.getInputStream();
      OutputStream out = sock.getOutputStream();
      
      // an Socket Verbindung schreiben. 
      out.write("1|153|0000000011\n\r".getBytes());
      out.flush();
      
      // von socket Verbindung lesen
      byte[] b = new byte[100];
          try {
            while ((len = in.read(b)) != -1)             
                 System.out.write(b, 0, len);
         } catch (InterruptedIOException e) { 
           //nochmal versuchen
         }
        sock.close();       
      }
      catch(Exception e) {
        e.printStackTrace();
      }
  }
}

das ist ein schneller hack und sicher nicht optimal

Gruss Axel

[Don Pasquale]

@AXEL_JANNSEN


 


Vielen Dank.

Nun funktioniert´s.