Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 243079 (4515)

| Suchen
| Zurück zur Übersicht

Autor | Thema: TCP/IP dll
Armin Ulrich
| Datum:02.04.02 16:24 (armin.ulrich@gmx.at) |
Ich habe mir heute die TCP/IP dll runtergeladen und möchte nun wissen ob und vor allem wie ich damit z.b.: ein profan-programm auf meinem computer mit einem programm auf dem Computer eines bekannter uber internet zum daten austausch bringe?? ich möchte es so machen das ich die IP des anderen eingebe und dann die verbindung aufgebaut wird! wie könnte das gehen? danke! Armin Ulrich
Thorsten
| Datum:02.04.02 18:56 (mrk@mrk-soft.de) |
Hallo, Bei der DLL sind ja sehr viele Beispiele dabei, unter anderem ein MINI-Chat-Programm für 2 Teilnehmer. Ändert man die IP von Lokal (127.0.0.1) auf eine eines Rechners im Internet , so empfängt dieser dann die Daten. Der Quellcode zeigt das vorgehen, um mit der DLL zu arbeiten. Im grunde muss das Profan Programm nur mittels TCP_INITSERVER für das Empfangen von TCP-Nachrichten gesetzt werden, die DLL sendet dann eine Messsage nach Profan, das etwas empfangen wurde. im Bereich ist dann das ergebniss zu finden. Programm 2 kann mittels EASY_SEND dann sehr schnell und einfach direkt den Rechner eine TCP Nachricht senden. Ansonsten frag einfach Speziell nochmal nach ... Thorsten
Thorsten
| Datum: 02.04.02 19:10 (mrk@mrk-soft.de) |
Wichtig: Es wird Profan ab 7.0 DRINGEND benötigt, wegen der User-Messages, mindestens jedoch ein 32 BIT Profan ...... Ältere Versionen, unter 7.0, würde zwars auch Funktionieren, das Programm müste dann aber in regelmässigen abständen die Bereichsvariable prüfen, ist dort ein String grösser als NULL, diesen Auslesen und in Variable sichern, den Bereich wieder auf NULL setzen, den String dann auswerten, und wieder von neuem überprüfen. Ab 7.0 ist es natürlich einfacher, indem die Usermessage einfach ausgewertet wird. Bsp:
     UserMessages $2654

     WaitInput
     If %Usermessage = $2564
      Print "Es wurde etwas auf TCP empfangen ..."
      print string(tcpbuffer1#,0)
     Endif
Hier, wie es mit Profan unter 7.0 (also 6.6, 6.5 opder gar 5.0) Funktioniert, jedoch nicht empfohlen. 32 BIT Profan MUSS es jedoch sein !!!!!!!
     SetTimer 1000    'jede secunde Testen ...

     While equ(ende%,0)
      WaitInput
      testvar$ = trim$(String$(tcpbuffer1#,0))
      IfNot equ$(testvar$,"")
       Clear tcpbuffer1#
       String tcpbuffer1#,0=""

       Print "Es wurde etwas auf TCP empfangen ..."
       print testvar$
      Endif

     Wend
Thorsten

| Zurück zur Übersicht