Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Сети > Сканер сети


Автор: KaRTmaN 29.7.2007, 13:54
Всем привет! У меня появилась идеянаписать программу, которая бы сканировала бы сеть на какой-нибудь порт, чтобы узнать у кого из сети например запущен сервак кс или ещё какой- нибудь демон. Сначала я писал на простом TCPClient'e, но потом мне сказали, чтобы быстрее сканить - нужно чтобы прога работала с потоками. Вот что я написал.
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Sockets;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    ListBox1: TListBox;
    TcpClient1: TTcpClient;
    procedure Button1Click(Sender: TObject);
    procedure TcpClient1Connect(Sender: TObject);
    procedure TcpClient1Error(Sender: TObject; SocketError: Integer);
    procedure TcpClient1Disconnect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
TMyThread = class(TThread)
procedure Execute; override;
private
public
end;
var
  Form1: TForm1;
   Thread:TMyThread;
   i:integer;
implementation

{$R *.dfm}

Procedure TMyThread.Execute;
begin
for i:=1 to 254 do
begin
Form1.Label1.Caption:='10.11.1.'+inttostr(i);
Form1.TcpClient1.RemoteHost:='10.11.1.'+inttostr(i);
Form1.TcpClient1.Open;
Form1.TcpClient1.Close;
end;
Self.Terminate;
Exit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Thread:= TMyThread.Create(False);
Thread.FreeOnTerminate := True;

end;

procedure TForm1.TcpClient1Connect(Sender: TObject);
begin
ListBox1.Items.Add(inttostr(i));
end;

procedure TForm1.TcpClient1Error(Sender: TObject; SocketError: Integer);
begin
TcpClient1.Close;
end;

procedure TForm1.TcpClient1Disconnect(Sender: TObject);
begin
TcpClient1.Close;
end;

end.

Так программа при сканировании уже не виснет, но все - равно сканит каждый отдельный IP очень долго.
Вопрос такой: Как сделать, чтобы новое соединение к новому IP открывалось в новом потоке? И в общем как ускорить его работу?

Автор: MetalFan 29.7.2007, 15:05
ужос. почитай, что такое потоки и с чем их едят. удивляюсь, как вообще этот код фунцыклирует

Автор: ne0n 29.7.2007, 15:52
Цитата(MetalFan @  29.7.2007,  15:05 Найти цитируемый пост)
почитай, что такое потоки и с чем их едят


Ага, почитай вот тут http://forum.vingrad.ru/forum/topic-60076.html

А вообще быстрее это будет работать если писать будешь на WinSock!!!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)