TcpServer ----> TcpClient senden und empfangen

[Johannes.Leupold]

Hi,

ich versuche mich auch gerade am TCP/IP-Datenaustausch mit TTcpServer und TTcpCLient.

Ich habe auch alle Ratschläge hier befolgt, aber bei mir wird bei TCustomIpClient.SendLn('string') nicht das Ereignis OnReceive beim Client ausgelöst.

Delphi-Quellcode:

procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
...
ClientSocket.Sendln('Test');
end;

Delphi-Quellcode:

procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
  var DataLen: Integer);
begin
  Memo2.Lines.Add('Test');
end;

Diese Testausgabe erscheint nicht. Was hab ich falsch gemacht?

[rollstuhlfahrer]

Ich würde mal auf die Firewall tippen, sodass gar keine Verbindung entsteht.
Andernfalls würde ich den Umstieg auf die Indy-Komponenten vorschlagen, da ich mit diesen gute Erfahrungen gemacht habe.

Bernhard

[Johannes.Leupold]

Die Verbindung kommt zustande, denn der Server emüfängt Daten vum Client, aber beim Client kommen keine vom Server an...

Die Firewall blockt das Programm nach einigen Einstellungen nicht mehr.

Und ich bekomme immer den Socket Error 10054 (Connection reset by peer).

Weiß irgendjemand Rat?

[jokerfacehro]

ich seh schon du hast ahnung ^^
das mit dem MyReceive klappt wunderbar, allerdings kann ich mit ReceiveLn leichter die bebfehle
herausfiltern ^^, da ich ja nicht nur text zum anzeigen senden will

ich habe irgendwie noch nicht den wurm raus mit dem send vom server zum client, ich habe
beim OnAccept einfach mal zum schluss ClientSocket.SendLn('hallo'); reingeschrieben,
doch das OnReceive Event beim client wird nicht ausgelöst :/

[jokerfacehro]

geil find ich auch, wenn ma im OnAccept des Servers vor dem ReceivLn also dem lesen der gesendeten Client Daten, SendLn macht sind die ganzen daten vom Client futsch xD

Edit: bzw. er liest unendlich viel leigt am endzeichen ^^

[jokerfacehro]

hallo,
ich bin mit dem senden vom server zum client kein stück weiter.
irgendwie habe ich es vorhin einmal hingekriegt, dass das Onreceive Event vom Client ausgelöst wird.
doch ich kriege es nicht mehr hin.

ich sende vom client aus text per SendLn an den Server und warte danach perWaitForData(5000) auf Daten vom Server bevor ich die verbindung schließe.
Das OnAccept Event des Servers wird dann aufgerufen und ich führe darin bloß ClientSocket.SendLn('hallo'); aus.
und das ergebnis: Onreceive wird nicht ausgelöst im client argh

was mache ich flasch???? wenn ich was falsch mache

[Aenogym]

also ich sitz grad auf arbeit und kann daher leider nicht mal eben nachvollziehen
prinzipiell solltest du alles richtig machen. am besten nochmal in der delphihilfe nachlesen und einfach ein bisschen rumprobieren

aeno

[jokerfacehro]

ich lasse das ganze per localhost auf einem rechner laufen, kann es sein dass es daran liegt ?

der client selbst hat die netzwerk ip-adresse: 10.10.10.34
der server hat 127.0.0.1

ich verbinde vom client natürlich zu 127.0.0.1 funktioniert auch,
kann es sein, dass der server nicht an die 10.10.10.34 senden kann?

ich hab das problem wenn ich dem server über IdIPWatch seine Ipadresse zuweise hat er natürlich 10.10.10.34, und vom client aus kann ich dann nicht auf 10.10.10.34 connecten.

keine ahnung warum


Edit: ich sollte das ganze mal mit 2 rechnern testen

[Aenogym]

also mit 127.0.0.1 sollte es keine probleme geben. habe ich damals auch erfolgreich auf einem rechner laufen gelassen

[jokerfacehro]

hmmm ich werde wohl noch einige tage brauchen