1:1 Router unter Delphi

[Berens]

Hallo!
Ich brauche dringend einen "Router" unter Delphi der mir alles Byte genau weiterschickt. Ich habe in meinem Form einen TClientSocket und einen TServerSocket. Wenn sich ein Programm auf meinen Server verbindet, verbindet sich mein Client automatisch an den Zielserver. Wird der Client getrennt, wird der Server geschlossen.

Wenn mein Client etwas liesst (string := socket.receivetext), versendet es der Server direkt weiter (server.socket.connection[0].sendtext(string)). Liesst der Server etwas sendet es der Client weiter.

Tja, ansich sollte das soweit funktionieren, tut es aber leider nicht. Ich habe schon versucht, den gelesenen String in ein Array zu wandeln vom Typ Char und das ganze dann mit Sendbuf zu senden, klappt aber auch nicht, denn irgendwie tut der Zielserver nicht antworten, da wohl irgendwie die Bytes "verfälscht" werden. Bsp: Ich verbinde mit mit Telnet auf meinen Server, will also quasi direkt sehen was auf dem Zielserver passiert.

Je Tastendruck in Telnet erkennt mein Server 4 Bytes, und das kann ja nicht stimmen (liegt vielleicht auch an Telnet), aber auf jedenfall kommt nie ein Text vom Server zurück... Ab dem 3ten Buchstaben den ich in Telnet drücke sagt Delphi dann auch "Fehler bei Api 'send'.

Kann wer helfen, oder hat jemand vielleicht ein Beispielprogramm?

Für schnelle Hilfe wäre ich unendlich dankbar!

Mfg Mathias Berens

[MrSaint]

hast du bei dem router den richtigen port eingestellt? Sonst kanns net funzen. und das ist auch das prioblem beim router. der routermüsste ALLE prots berücksichtigen....



MrSaint

[Berens]

Es soll auch nur ein Port voll weitergeleitet werden. Ich habe genau den Port als Server bereitgestellt der auch beim Zielserver als einziges offen ist, und wenn sich jemand an den von mir verbindet, verbindet sich mein Programm zum Zielserver.

[MrSaint]

okay..... dann hab ich keine ahnung....

[MR321]

Also ich hab zwar auch nicht "die" Ahnung von TCP/IP, aber dort gibt es doch verschiedene Methoden um die Daten zu senden.

Ich habe zB versucht mit einem Perl-Programm zu kommunizieren:
Ich habe SendText verwendet, und mit Perl alle unterstützten Methoden versucht um etwas zu empfangen. Nie kam was an!

Wäre auch daran interessiert wie man das macht.