AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Probleme mit TIdTCPClient / TIdTCPServer
Thema durchsuchen
Ansicht
Themen-Optionen

Probleme mit TIdTCPClient / TIdTCPServer

Ein Thema von AJ_Oldendorf · begonnen am 2. Aug 2012 · letzter Beitrag vom 10. Aug 2012
Antwort Antwort
Seite 1 von 2  1 2      
AJ_Oldendorf

Registriert seit: 12. Jun 2009
385 Beiträge
 
Delphi 12 Athens
 
#1

Probleme mit TIdTCPClient / TIdTCPServer

  Alt 2. Aug 2012, 12:08
Hallo zusammen,
ich habe folgendes Problem.

Ein Scanner schickt beim Lesen einer Nummer ein String über TCP/IP.
Mit Hyperterminal habe ich eine Verbindung zu dem Gerät aufgenommen (Eingabe der IP des Gerätes und des Ports) und ich sehe die gelesenen Nummern.
Am Gerät selber kann ich nicht sagen, an welche IP er den gelesenen String schicken soll sondern nur ein Port kann man da einstellen.

Jetzt bin ich mir ehrlich gesagt nicht ganz sicher ob ich ein Client oder Server auf meinem PC nehmen muss, um die Daten zu empfangen.
Ich habe es mit dem TIdTCPClient versucht. Leider bekomme ich kein Text angezeigt.
Code sieht so aus:

Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not IdTCPClient1.Connected then
    IdTCPClient1.Connect;

  if IdTCPClient1.Connected then
  begin
    IdTCPClient1.ReadTimeout := 250;
    Memo1.Text := IdTCPClient1.IOHandler.ReadLn();
  end;

  if IdTCPClient1.Connected then
    IdTCPClient1.Disconnect;
end;
Oder welches Event müsste ich denn nehmen um die Daten abzufragen?

Gruß
Alex
  Mit Zitat antworten Zitat
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#2

AW: Probleme mit TIdTCPClient / TIdTCPServer

  Alt 2. Aug 2012, 13:04
Ich könnte mir vorstellen, dass ein TCP-Server besser wäre, weil er auf eingehende Verbindungen wartet. Der Client verbindet sich ja aktiv zu einem Server, wenn man Connect aufruft.

Gruß, Michael
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
AJ_Oldendorf

Registriert seit: 12. Jun 2009
385 Beiträge
 
Delphi 12 Athens
 
#3

AW: Probleme mit TIdTCPClient / TIdTCPServer

  Alt 2. Aug 2012, 13:08
Da ich im Scanner ja aber keine IP eingeben kann, wo er es hinschicken soll, muss ich ja ein Client auf meiner PC Seite nehmen, damit ich eine IP eingeben kann, mir der ich mich verbinden will. Beim Server kann ich die IP des Scanners ja nicht eingeben oder gibts da ein Trick?

Gruß
Alex
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.006 Beiträge
 
Delphi 2009 Professional
 
#4

AW: Probleme mit TIdTCPClient / TIdTCPServer

  Alt 2. Aug 2012, 13:59
Ein Scanner schickt beim Lesen einer Nummer ein String über TCP/IP.
Mit Hyperterminal habe ich eine Verbindung zu dem Gerät aufgenommen (Eingabe der IP des Gerätes und des Ports) und ich sehe die gelesenen Nummern
Hyperterminal unterstützt laut Wikipedia Minitel, Viewdata, VT100, VT52 als Protokoll.
Welches ist denn eingestellt, damit die Verbindung funktioniert?

Möglicherweise ist TIdTelnet dann eine passende Komponente. Sie empfängt auch Daten von der Gegenseite.
Michael Justin
habarisoft.com
  Mit Zitat antworten Zitat
AJ_Oldendorf

Registriert seit: 12. Jun 2009
385 Beiträge
 
Delphi 12 Athens
 
#5

AW: Probleme mit TIdTCPClient / TIdTCPServer

  Alt 2. Aug 2012, 14:13
Ich habe Windows 7 und da ist kein Hyperterminal mehr dabei. Ich habe mir die XP Variante aus dem Netz gezogen und da kann man eindeutig TCP/IP einstellen. Siehe Screenshot.
Dann IP und Port eintragen und glücklich sein...

Grüße
AJ
Miniaturansicht angehängter Grafiken
1.png  
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.006 Beiträge
 
Delphi 2009 Professional
 
#6

AW: Probleme mit TIdTCPClient / TIdTCPServer

  Alt 2. Aug 2012, 16:36
Ich habe Windows 7 und da ist kein Hyperterminal mehr dabei. Ich habe mir die XP Variante aus dem Netz gezogen und da kann man eindeutig TCP/IP einstellen. Siehe Screenshot.
Dann IP und Port eintragen und glücklich sein...
23 ist Standardport für Telnet.

Also TIdTelnet verwenden, IP und Port eintragen, DataAvailable Event implementieren, die Verbindung aufbauen und ... glücklich sein
Michael Justin
  Mit Zitat antworten Zitat
AJ_Oldendorf

Registriert seit: 12. Jun 2009
385 Beiträge
 
Delphi 12 Athens
 
#7

AW: Probleme mit TIdTCPClient / TIdTCPServer

  Alt 2. Aug 2012, 16:44
ich nutze aber nicht den Port 23. Ich nutze 50003 als Port. Das mit der 23 ist nur im Beispiel des Screenshots so.
Ich gucke mir mal das andere an, was du geschrieben hast.

Gruß
Alex
  Mit Zitat antworten Zitat
AJ_Oldendorf

Registriert seit: 12. Jun 2009
385 Beiträge
 
Delphi 12 Athens
 
#8

AW: Probleme mit TIdTCPClient / TIdTCPServer

  Alt 9. Aug 2012, 15:25
Ich pushe einfach mal
Hat noch keiner mit dem TIdTCPClient gearbeitet und sich einfach mit einer IP und Port verwunden und von dort etwas empfangen?

Gruß
Alex
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.006 Beiträge
 
Delphi 2009 Professional
 
#9

AW: Probleme mit TIdTCPClient / TIdTCPServer

  Alt 9. Aug 2012, 20:51
Ich pushe einfach mal
und ich quote mich selber mal

Zitat:
TIdTelnet verwenden, IP und Port eintragen, DataAvailable Event implementieren, die Verbindung aufbauen
Telnet geht natürlich auf Port 50003, genau wie auf Port 23, wenn der Telnet-Server auf diesem Port lauscht. Anhand des Screenshots ist Telnet das wahrscheinlichste Protokoll des Servers.

Oder ohne eigenen Quelltext zu schreiben einfach mal auf der Kommandozeile telnet starten und verbinden:

>telnet ipadresse 50003

und dann scannen, die Scandaten sollten dann auf der Konsole erscheinen
Michael Justin
  Mit Zitat antworten Zitat
AJ_Oldendorf

Registriert seit: 12. Jun 2009
385 Beiträge
 
Delphi 12 Athens
 
#10

AW: Probleme mit TIdTCPClient / TIdTCPServer

  Alt 10. Aug 2012, 09:27
Das mit dem Telnet Befehl geht sogar
Ich werde es dann mal mit der von dir vorgeschlagenen Komponente probieren.
Trotzdem wäre es natürlich schön, wenn es mit dem TIDTCPClient auch gehen würde

Grüße
Alex
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz