Client funzt nicht mehr

[TheMiller]

!KEIN PUSH-VERSUCH!

Ich habe in ClientSocket1.OnError folgendes eingefügt:

Delphi-Quellcode:

Case ErrorCode Of
        10004 : ErrorMsg := 'Interrupted Function call.';
        10013 : ErrorMsg := 'Permission Refusée.';
        10014 : ErrorMsg := 'Mauvaise adresse.';
        10022 : ErrorMsg := 'Arguments Invalides.';
        10024 : ErrorMsg := 'Trop de fichiers ouverts.';
        10035 : ErrorMsg := 'Resource temporarily unavailable.';
        10036 : ErrorMsg := 'Operation en cours.';
        10037 : ErrorMsg := 'Operation déjà en cours.';
        10038 : ErrorMsg := 'Socket operation On non-socket.';
        10039 : ErrorMsg := 'Destination address required.';
        10040 : ErrorMsg := 'Message trop long.';
        10041 : ErrorMsg := 'Protocol wrong Type For socket.';
        10042 : ErrorMsg := 'Bad protocol option.';
        10043 : ErrorMsg := 'Protocol Not supported.';
        10044 : ErrorMsg := 'Socket Type Not supported.';
        10045 : ErrorMsg := 'Operation Not supported.';
        10046 : ErrorMsg := 'Protocol family Not supported.';
        10047 : ErrorMsg := 'Address family Not supported by protocol family.';
        10048 : ErrorMsg := 'Address already In use.';
        10049 : ErrorMsg := 'Cannot assign requested address.';
        10050 : ErrorMsg := 'Network Is down.';
        10051 : ErrorMsg := 'Network Is unreachable.';
        10052 : ErrorMsg := 'Network dropped connection On reset.';
        10053 : ErrorMsg := 'Software caused connection abort.';
        10054 : ErrorMsg := 'Connection reset by peer.';
        10055 : ErrorMsg := 'No buffer space available.';
        10056 : ErrorMsg := 'Socket Is already connected.';
        10057 : ErrorMsg := 'Socket Is Not connected.';
        10058 : ErrorMsg := 'Cannot send after socket shutdown.';
        10060 : ErrorMsg := 'Connection timed Out.';
        10061 : ErrorMsg := 'Connection refused.';
        10064 : ErrorMsg := 'Host Is down.';
        10065 : ErrorMsg := 'No route To host.';
        10067 : ErrorMsg := 'Too many processes.';
        10091 : ErrorMsg := 'Network subsystem Is unavailable.';
        10092 : ErrorMsg := 'WINSOCK.DLL version Out Of range.';
        10093 : ErrorMsg := 'Successful WSAStartup Not yet performed.';
        10094 : ErrorMsg := 'Graceful shutdown In progress.';
        11001 : ErrorMsg := 'Host Not found.';
        11002 : ErrorMsg := 'Non-authoritative host Not found.';
        11003 : ErrorMsg := 'This Is a non-recoverable error.';
        11004 : ErrorMsg := 'Valid name, no data Record Of requested Type.';
    Else
        // erreur inconnue
        ErrorMsg := 'Unknown socket error.';
    End;
    // mise en forme de la signification de l'erreur
    ErrorMsg := 'Socket Error n°' + IntToStr(ErrorCode) + ' : ' + ErrorMsg;
    // l'erreur est traitée
    ErrorCode := 0;
    // définition du type d'erreur
    Case ErrorEvent Of
        eeSend       : ErrorMsg := 'Writing '       + ErrorMsg;
        eeReceive    : ErrorMsg := 'Reading '       + ErrorMsg;
        eeConnect    : ErrorMsg := 'Connecting '    + ErrorMsg;
        eeDisconnect : ErrorMsg := 'Disconnecting ' + ErrorMsg;
        eeAccept     : ErrorMsg := 'Accepting '     + ErrorMsg;
    Else
        // erreur inconnue
        ErrorMsg := 'Unknown ' + ErrorMsg;
    End;
    Result:=ErrorMsg;
End;

Quelle: franz. Seite. URL weggeklickt. sry

Bei jedem Start kommt die Meldung Unknown Socket Error^1110:Unknown Socket Error.

Dann der zweite Test:

Delphi-Quellcode:

ClientSocket1.Open;
IF ClientSocket1.Active=True THEN ShowMessage('JA') Else ShowMessage('NEIN');
end;

zuerst kommt die Fehlermeldung, dann dick fett: NEIN


Was ist da los?!?