!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?!?