TIcmpSendEcho(hICMP, FIPAddress, pReqData, FSize, @IPOpt, pIPE, BufferSize, TimeOut);
If pIPE.DataSize > 0 Then
If String(pIPE.Options.OptionsData) = Msg Then
Result := True;
FreeMem(pRevData);
FreeMem(pIPE);
end;
destructor TPing.Destroy;
begin
inherited Destroy;
_INI_PING;
end;
procedure TPing.CheckPing;
Var
ConnectTT: Boolean;
begin
ConnectTT := Ping(hCSocket.Address, 'Test Connect CDXX', 4000);
If ConnectTT Then
Begin
If Not hCSocket.Active Then //如果没连通
hCSocket.Active := True; //连通
End Else Begin
PlaySound(Nil, 0, SND_PURGE);
PlaySound(PChar('s3.wav'), 0, SND_ASYNC or SND_FILENAME);
If hCSocket.Active Then
hCSocket.Active := False;
End;
end;