| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как правильнее составить цикл?

Страницы:   < 1 2 3 4 >

linuxoid ©   (2010-07-26 08:26:00) 

Здравствуйте!

Имеется код программы(параллельный поток), которая пингует хост. теперь нужно сделать так, чтобы адреса хостов она вытаскивала из базы. как теперь это организовать в цикле?

unit thrd;

interface

uses
 Windows,  SysUtils,  Classes,
 StdCtrls, winsock;

type
 TThreadScan = class(TThread)
 private
 msg,msg2: string;
 procedure addstr;
   { Private declarations }
 protected
   procedure Execute; override;
 end;

 type
   ip_option_information = packed record  // Информация заголовка IP (Наполнение
       // этой структуры и формат полей описан в RFC791.
       Ttl : byte;   // Время жизни (используется traceroute-ом)
       Tos : byte;   // Тип обслуживания, обычно 0
       Flags : byte;  // Флаги заголовка IP, обычно 0
       OptionsSize : byte;  // Размер данных в заголовке, обычно 0, максимум 40
       OptionsData : Pointer; // Указатель на данные
   end;

  icmp_echo_reply = packed record
       Address : u_long;        // Адрес отвечающего
       Status : u_long;       // IP_STATUS (см. ниже)
       RTTime : u_long;       // Время между эхо-запросом и эхо-ответом
            // в миллисекундах
       DataSize : u_short;        // Размер возвращенных данных
       Reserved : u_short;        // Зарезервировано
       Data : Pointer;    // Указатель на возвращенные данные
       Options : ip_option_information; // Информация из заголовка IP
   end;

   PIPINFO = ^ip_option_information;
   PVOID = Pointer;

       function IcmpCreateFile() : THandle; stdcall; external 'ICMP.DLL' name 'IcmpCreateFile';
       function IcmpCloseHandle(IcmpHandle : THandle) : BOOL; stdcall; external 'ICMP.DLL'  name 'IcmpCloseHandle';
       function IcmpSendEcho(
                         IcmpHandle : THandle;    // handle, возвращенный IcmpCreateFile()
                         DestAddress : u_long;    // Адрес получателя (в сетевом порядке)
                         RequestData : PVOID;     // Указатель на посылаемые данные
                         RequestSize : Word;      // Размер посылаемых данных
                         RequestOptns : PIPINFO;  // Указатель на посылаемую структуру
                                           // ip_option_information (может быть nil)
                         ReplyBuffer : PVOID;     // Указатель на буфер, содержащий ответы.
                         ReplySize : DWORD;       // Размер буфера ответов
                         Timeout : DWORD          // Время ожидания ответа в миллисекундах
                        ) : DWORD; stdcall; external 'ICMP.DLL' name 'IcmpSendEcho';

implementation

uses Unit1;

procedure TThreadScan.addstr;
begin
Form1.ListBox1.Items.Add(msg);
end;

procedure TThreadScan.Execute;
var
  hIP : THandle;
   pingBuffer : array [0..31] of Char;
   pIpe : ^icmp_echo_reply;
   pHostEn : PHostEnt;
   wVersionRequested : WORD;
   lwsaData : WSAData;
   error : DWORD;
   destAddress : In_Addr;
   i, count:integer;
   //adress : array [1..30] of pansichar;
   IPReply: string;
begin
  // Создаем handle
   hIP := IcmpCreateFile();

   GetMem( pIpe,
           sizeof(icmp_echo_reply) + sizeof(pingBuffer));
   pIpe.Data := @pingBuffer;
   pIpe.DataSize := sizeof(pingBuffer);

   wVersionRequested := MakeWord(1,1);
   error := WSAStartup(wVersionRequested,lwsaData);

  // начало цикла
pHostEn := gethostbyname(adress[i]);
    destAddress := PInAddr(pHostEn^.h_addr_list^)^;

   IcmpSendEcho(hIP,
                destAddress.S_addr,
                @pingBuffer,
                sizeof(pingBuffer),
                Nil,
                pIpe,
                sizeof(icmp_echo_reply) + sizeof(pingBuffer),
                100);

   error := GetLastError();
   if (error <> 0) then
   begin

        msg:=(adress[i]+'  N/A');
      synchronize(addstr);
        //continue;
   end else begin

   msg:=(adress[i]+'  Reply time: '+IntToStr(pIpe.RTTime)+' ms');
   synchronize(addstr);
   end;

//конец цикла
   IcmpCloseHandle(hIP);
   WSACleanup();
   FreeMem(pIpe);

end;

end.

---

Anatoly Podgoretsky   (2010-07-26 10:01:00) [61]

> linuxoid  (26.07.2010 09:31:04)  [4]

Поскольку это поток, то там цикл не нужен. Он должен быть внешним.

---

linuxoid   (2010-07-26 09:31:00) [62]

> Здесь нет цикла.


вот и я хочу чтоб, то что там написано внутри цикла...

---

Anatoly Podgoretsky   (2010-07-26 09:17:00) [63]

// начало цикла
//конец цикла

Здесь нет цикла.

---

linuxoid   (2010-07-26 09:07:00) [64]

и еще вопрос? у меня процесс постоянен и закинут в таймер и пингует через определенный интервал.
а если я буду добавлять новые хосты в базу, программа будет их тоже в процессе пинговать?

---

Юрий Зотов   (2010-07-26 08:53:00) [65]

with Query do
begin
 Text := 'select IP from ... where ...';
 Open;
 while not EoF do
   пинг(FieldByName(IP).As...)
end;

---

Страницы:   < 1 2 3 4 >

Наверх