salve ragazzi ho implementato il seguente codice
UdpSocket1.SendBuf(mess,2);
Sleep (500);
if (UdpSocket1.ReceiveBuf(str,3)=3) then
begin
connected:=true;
colorbutton9.ForeColor := clgreen;
colorbutton10.ForeColor := clblack;
Timer1.Enabled:=True;
end
else
begin
MessageDlg ('ERRORE: dispositivo non connesso', mtError, [mbOK], 0);
connected:=false;
end
adesso però dovrei implementare usando le eccezioni così che da poter eliminare l'attesa di 500ms ed adattare tutto ad una condizione di ritardi in rete dinamici.
ho provato con delle eccezioni personalizzate ma non le riconosce.
non ho trovato niente sulla gestione delle eccezioni dei socket.
Qualcuno può darmi una mano???