Router geht Offline, wie bekommt das ein ClientSocket mit ?

[PeterP.]

Hallo zusammen,

ich habe folgendes Problem:
Ich habe einen ClientSocket, der eine Verbindung zu einem Server ins Internet herstellt und Packete empfängt und sendet. (Ein simpler Chat)
Es klappt auch alles wunderbar, nur wenn man hinter einem Router ist und der die Verbindung nach einer bestimmten Zeit trennt, dann merkt der Client nichts davon. Und wenn man dann ein Packet mit dem Client sendet, dann baut der Router eine neue Verbindung auf und hat somit meist ja auch eine neue IP.
Hab schon versucht nach dem "send()" WSAGetLastError abzufangen, aber der bleibt auch bei 0.

Kann man das denn irgendwie prüfen, ohne daß der Router eine Verbindung aufbaut ?
Die Internet IP kann man ja auch schlecht hinter einem Router abfragen ohne eine Verbindung ins Internet zu erzwingen.

Bin für jede hilfreiche Idee dankbar.

Und nochwas:
Ich benutze nicht die Scktcmp Unit und auch keine Fenster nur eine Konsole.
Warum ?
Weil ein Freund von mir (C++ Programmierer) meinte, daß es mit Delphi nicht möglich sei einen Internet Chat Clienten kleiner als 200kb zu programmieren. Und sowas kann man ja nicht auf sich sitzen lassen. :mrgreen:
Also versuch ich den so klein wie nur möglich zu bekommen und benutze die angehängte Socket Unit, in der ja nur ein Client sein muss.

Schöne Grüsse
PeterP.

[thomasdrewermann]

Sollte man vielleicht die aktuelle WAN-IP abfragen?

Damit würde man es merken.

MFG
THomas

[Duffy]

Hallo Zusammen,
und da gab es noch das Ereignis "OnDisconnect" ...

Das schreibt die Delphi Hilfe dazu:

Das Ereignis OnDisconnect tritt auf Client-Sockets unmittelbar nach dem Schließen der Verbindung zum Server auf.

Delphi-Syntax:

property OnDisconnect: TSocketNotifyEvent;

C++ Syntax:

__property TSocketNotifyEvent OnDisconnect = {read=FOnDisconnect, write=FOnDisconnect};

Beschreibung

Schreiben Sie eine Ereignisbehandlungsroutine für OnDisconnect für den Client-Socket, damit nach dem Schließen der Verbindung zu einem Server-Socket spezielle Operationen ausgeführt werden.

bye
Claus

[PeterP.]

@thomasdrewermann
"Die Internet IP kann man ja auch schlecht hinter einem Router abfragen ohne eine Verbindung ins Internet zu erzwingen."


@Duffy
Also ungefähr so ? (Hab das mal getestet und funktioniert nicht)

Code:

type
 TSocketNotifyEvent = procedure (sender: TObject) of object;   // eingefügt

type
  TClientSocket = class(TObject)
  private
    FAddress: pchar;
    FConnected: boolean;
    FOnDisconnect: TSocketNotifyEvent;
  protected
    FSocket: TSocket;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Connect(Address: string; Port: integer);
    procedure Disconnect;

    function ReceiveBuffer(var Buffer; BufferSize: integer): integer;
    function ReceiveLength: integer;
    function SendBuffer(var Buffer; BufferSize: integer): integer;

    property Connected: boolean read FConnected;
    property Socket: TSocket read FSocket;
    property OnDisconnect: TSocketNotifyEvent read FOnDisconnect write FOnDisconnect;  // eingefügt
  end;

[jim_raynor]

Zitat:

Zitat von PeterP.

Weil ein Freund von mir (C++ Programmierer) meinte, daß es mit Delphi nicht möglich sei einen Internet Chat Clienten kleiner als 200kb zu programmieren. Und sowas kann man ja nicht auf sich sitzen lassen.

Mhh. Dann solltest du mal nach nonVCL suchen. Damit kannst du auch Guis die kleiner als 200kb sind schreiben.

[PeterP.]

@jim_raynor
Danke für den Tip, aber lies dir doch mal mein Posting durch und schau dir die SocketUnit von mir mal an. Dann wirst du merken, daß das ganze schon ohne VCL auskommt. Und somit ja schon non-VCL ist. :wink:

[thomasdrewermann]

Dafür gehört zu seiner sehr kleinen C++ Anwendung auch immer noch die Runtime. Wenn man die mit eingrechnet, dann ist das Programm noch grosser als das selbe Programm in Delphi.

MFG
Thomas

[PeterP.]

@Thomas
Ich wollte hier nun keine C++ vs. Delphi Diskussion anleiern, sondern bin eigentlich nur auf der Suche nach einer Problemlösung.

Hat denn keiner eine Idee, wie ich das Problem am besten lösen kann ?

Kann mir denn einer sagen, ob die WinSock Funktion "select()" mir bei diesem Problem weiterhelfen kann ?


mfg
PeterP.

[jim_raynor]

Zitat:

Zitat von PeterP.

@jim_raynor
Danke für den Tip, aber lies dir doch mal mein Posting durch und schau dir die SocketUnit von mir mal an. Dann wirst du merken, daß das ganze schon ohne VCL auskommt. Und somit ja schon non-VCL ist. :wink:

Mir gings auch nur daraum, dass du den Chat in der Konsole machst. Mit nonVCL meine ich also normale Windows-Formulare ohne die VCL ;)

[fiasko]

Hallo,

zu deinem Problem:

Wenn die Verbindung unterbrochen wird hast du keine Chance das mitzubekommen, erst wenn Packete gesendet werden kann ein Router so net sein und ICMP Packete zurückschicken die deinem IP-Stack sagen das die Verbindung wech ist. Dein Router scheint ein imho dummes Exemplar zu sein wenn er einfach die schon laufende TCP-Verbindung auf eine neue IP maskiert, eigentlich sollten beim offline gehen alle Verbindungen entfernt werden (und TCP Packete (ich nehme jetzt mal an du verwendest TCP) ohne SYN Flag zu maskieren halte ich im Heimbereich für sehr fragwürdig). Du könntest also höchstens dummy Packete senden um es so eher mitzubekommen, eine ordentliche Lösung sehe ich aber nicht.