1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| procedure TForm1.sckClientConnect(Sender: TObject; Socket: TCustomWinSocket);
var
KeepAliveEnabled: BOOL; // not Boolean!
begin
ListMessage('Connected to: ' + Socket.RemoteAddress);
if ckbUseKA.Checked then
begin
ListMessage('Activating Keepalive');
KeepAliveEnabled := True;
WinSock.SetSockOpt(Socket.SocketHandle, SOL_SOCKET, SO_KEEPALIVE,
PChar(@KeepAliveEnabled), SizeOf(KeepAliveEnabled));
end;
stxLED.Color := clLime;
btnDisconnect.Enabled := true;
btnConnect.Enabled := false;
end; |
Partager