Sin duda esperar dos semanas para obtener un resultado es algo deprimente; creo que el problema no es la función o componente, sino cómo estas abordando el problema...
Código Delphi
[-]
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure Found(var Message: TMessage); message WM_USER;
public
end;
var
Form1: TForm1;
implementation
{$r *.dfm}
uses WinSock;
var IP, Port, Threads: Integer;
function Scan(hWnd: Integer): Integer; stdcall;
var Addr: TSockAddr; hSocket: Integer;
label Back;
begin
Addr.sin_family := AF_INET;
Addr.sin_addr.S_addr := IP;
InterlockedIncrement(Threads);
SetThreadPriority(DWORD(-2), THREAD_PRIORITY_IDLE);
repeat Result := InterlockedIncrement(Port);
Addr.sin_port := htons(Result);
hSocket := socket(AF_INET, SOCK_STREAM, 0);
if connect(hSocket, Addr, Sizeof(Addr)) <> SOCKET_ERROR then
PostMessage(hWnd, WM_USER, IP, Result);
closesocket(hSocket);
until Port = $FFFF;
InterlockedDecrement(Threads);
end;
procedure TForm1.Button1Click(Sender: TObject);
var Thread: Word;
begin
Port := -1;
ListBox1.Clear;
IP := inet_addr('212.34.137.175'); for Thread := 1 to 1024 do
CreateThread(nil, 1024, @Scan, Ptr(Handle), 0, PDWORD(0)^);
end;
procedure TForm1.FormCreate(Sender: TObject);
var WSData: TWSAData;
begin
WSAStartup($0202, WSData);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
WSACleanup;
end;
procedure TForm1.Found(var Message: TMessage);
begin
ListBox1.AddItem(IntToStr(Message.LParam), nil);
end;
Si la anterior solución no te satisface puedes considerar "configurar" los sockets creados con la API
setsockopt, opción
SO_SNDTIMEO si el equipo remoto usa alguna plataforma de M$.
Claro que depende mucho de la forma en que el equipo remoto responda ante un escaneado, en tal caso el uso de hilos te permite forzar a un hilo "rezagado" a terminar en un determinado tiempo y crear otro en reemplazo del mismo, eso depende (como ya insinué) de
la forma en que abordes el problema.
Edito: Si el proceso de escaneado está siendo depurado notificará al depurador cada vez que cree un nuevo hilo, esto afectará considerablemente en el rendimiento del sistema.
Es importante comprender que las variables globales
Port y
Threads son inicializadas automáticamente en 0, y no deben ser manipuladas directamente por el programador (al igual que la variable
IP durante el escaneado).
La variable
Threads, ha sido implementada como método de notificación de "escaneado activo" e inactivo.
Finalmente considero que el rango razonable de hilos por proceso para este tipo de aplicaciones es de 256 a 1024.
Saludos