Благодаря ти за идеята
Хубава идея :), ама е трънлив орех :)
Трябва да намеря начин да я реализирам

В действителност, новото проектче е минимална версия и прави изключенията.
Старият проект е голям и ги отряботва.
Ще започна малко по малко да разкарвам наследници от стария проект и да гледам какво става.
Но ще трябва време.

А относно трите начина - грешките на сокетите се прехващат и с още една функция:
Unit ScktComp
Category
exception handling routines
type TSocketErrorProc = procedure(ErrorCode: Integer);
function SetErrorProc(ErrorProc: TSocketErrorProc): TSocketErrorProc;

Съдържаниет е скрито
Влезте за да го видите