}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: d11fe7bb Описание: Код загружен: 13 июля 2011, 19:04 (Моисеев Евгений Леонидович)

  1. unit Unit8;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, Sockets, StdCtrls;
  8.  
  9. type
  10. TForm8 = class(TForm)
  11. Label1: TLabel;
  12. Edit1: TEdit;
  13. Label2: TLabel;
  14. Edit2: TEdit;
  15. memo1: TMemo;
  16. Button1: TButton;
  17. TcpClient1: TTcpClient;
  18. procedure Button1Click(Sender: TObject);
  19. private
  20. { Private declarations }
  21. public
  22. { Public declarations }
  23. end;
  24.  
  25. var
  26. Form8: TForm8;
  27.  
  28. implementation
  29.  
  30. {$R *.dfm}
  31.  
  32. procedure TForm8.Button1Click(Sender: TObject);
  33. var
  34. i:Integer;
  35. ip:String;
  36. begin
  37. ip:='127.0.0.1'; //По умолчанию сканируем себя
  38. if not InputQ
  39. if not InputQuery('Attention','Enter IP-address',ip) then exit; //i:=StrToInt(Edit1.Text) to StrToInt(Edit2.Text) do //Запускаем цикл
  40. begin
  41. TcpClient1.RemotePort:=IntT
  42. begin
  43. TcpClient1.RemotePort:=IntToStr(i); // if TcpClient1.Connected then Memo1.Lines.Add(IntToStr(i)+' open'); //Если удалось, то сообщаем об этом
  44. TcpClient1.Close; //Закрываем порт.
  45. end;
  46. end;
  47. end.</code>
  48.  

Ссылка на данный код:

На главную страницу сервиса обмена кодом »