Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 243079 (4515)
  Suchen
 Zurück zur Übersicht
 AutorThema: TCP/IP dll
Armin Ulrich
Datum:02.04.02 16:24 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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