Мультипотоковая проверка доступности порта

[igh0st]

Требуется обеспечить проверку доступности порта набора адресов. Проверяю прекрасно с помощью Indy компонента TIdTCPClient:

IdTCPClient1.Host := '192.168.0.1';
IdTCPClient1.Port := 8080;
IdTCPClient1.Timeout := 50;
try
    IdTCPClient1.Connect;
except
end;

if IdTCPClient1.Connected then
    begin
        ShowMessage('Порт доступен');
        IdTCPClient1.Disconnect;
    end;

Но когда адресов много, то всё это дело занимает довольно продолжительное время. В общем, надо проверку отправлять в треды, а мне если честно так не хочется разбираться с этой мерихлюндией, да потом еще отлавливать ошибки... Други, если есть у кого рабочий код, киньте пожалуйста, буду премного благодарен.

[Человек_Борща]

Но когда адресов много, то всё это дело занимает довольно продолжительное время.

Список IP:PORT разбирается потоками по 20% списка на поток, остаток отдаётся последнему потоку. Все.

Посчитать, сколько это 20% от 4775 строк - математика школьной программы.

если чисто порты, то строк 65535

а мне если честно так не хочется разбираться с этой мерихлюндией, да потом еще отлавливать ошибки... Други, если есть у кого рабочий код, киньте пожалуйста, буду премного благодарен.

Волков бояться - в лес не ходить.
Тогда зачем ты вообще в программмирование пошёл?

[igh0st]

Сообщение от Человек_Борща

Волков бояться - в лес не ходить.
Тогда зачем ты вообще в программмирование пошёл?

С таким подходом надо весь код самому рисовать от начала до конца.

Вот решение, мож кому сгодиться:

unit OPingThread;

interface

uses
Classes, IdIcmpClient;

type
TPingNotify = procedure (AHost: string; ClientStatus: TReplyStatus)
of object;

TPingThread = class(TThread)
private
FIcmpClient: TIdIcmpClient;
FRunning: boolean;
FOnAfterPing: TPingNotify;
FHost: string;
{ Send result of ping to display it. }
procedure DoAfterPing;
protected
procedure Execute; override;
public
{ Thread that ping a TCllient host and send result to APingNotifyProc }
//constructor Create(Host: TClient; APingNotifyProc: TPingNotify);
reintroduce;
constructor Create(Host: string; APingNotifyProc: TPingNotify);
reintroduce;
destructor Destroy; override;
property Running: boolean read FRunning write FRunning;
property OnAfterPing: TPingNotify read FOnAfterPing write FOnAfterPing;
end;

implementation

uses
SyncObjs;

{ TPingThread }

constructor TPingThread.Create(Host: string; APingNotifyProc: TPingNotify);
begin
inherited Create(True);
FreeOnTerminate := True;
FIcmpClient := TIdIcmpClient.Create(nil);
//FIcmpClient.Host := Host.Address;
FIcmpClient.Host := Host;
FHost := Host;
FOnAfterPing := APingNotifyProc;
FRunning := false;
Resume;
end;

destructor TPingThread.Destroy;
begin
FIcmpClient.Free;
inherited;
end;

procedure TPingThread.DoAfterPing;
begin
if Assigned(FOnAfterPing) then
FOnAfterPing(FHost, FIcmpClient.ReplyStatus);
end;

procedure TPingThread.Execute;
var
doesPing: boolean;
nbPing: integer;
begin
doesPing := true;
nbPing := 0;
FRunning := true;

while not Terminated do
begin
FIcmpClient.Ping;
Inc(nbPing);
if (FIcmpClient.Host = FIcmpClient.ReplyStatus.FromIpAddress) and
(FIcmpClient.ReplyStatus.BytesReceived > 0) then
doesPing := false;

if (not doesPing) or (nbPing > 3) then
Terminate;
end;
FRunning := false;
Synchronize(DoAfterPing);
end;

end.

[Человек_Борща]

С таким подходом надо весь код самому рисовать от начала до конца.

В 90% случаев, так и происходит, ибо готового кода с гулькин нос