Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.22;
Скачать: CL | DM;

Вниз

Пингование по базе данных   Найти похожие ветки 

 
Drizhenko ©   (2005-11-24 11:51) [0]

Помогите, пожалуйста решить следующую задачу.
В базе данных есть IP адресса, при нажатии на кнопку все адреса начинают по очереди пинговаться, если адресс не пингуется, то ячейка заливается красным цветом, иначе зеленым.
Помогите поставить нужные строки вместо коментариев. Используются компоненты: ics, ehLib.
unit Unit1;
interface
uses                
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, DB, ADODB, GridsEh, DBGridEh, Ping, StdCtrls;
type
 TForm1 = class(TForm)
   DBGridEh2: TDBGridEh;
   Ping1: TPing;
   Button1: TButton;
   procedure DBGridEh2GetCellParams(Sender: TObject; Column: TColumnEh;
     AFont: TFont; var Background: TColor; State: TGridDrawState);
   procedure DBGridEh2DrawColumnCell(Sender: TObject; const Rect: TRect;
     DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
   procedure FormCreate(Sender: TObject);
   procedure Ping1EchoReply(Sender, Icmp: TObject; Error: Integer);
   procedure Ping1EchoRequest(Sender, Icmp: TObject);
   procedure Button1Click(Sender: TObject);
   
 private
   { Private declarations }
 public
   { Public declarations }
 end;
var
 Form1: TForm1;
implementation
uses DataModule;
{$R *.dfm}
procedure TForm1.DBGridEh2GetCellParams(Sender: TObject; Column: TColumnEh;
 AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
 if Column.Field.DataSet.Fields[0].AsInteger > 0 then begin
   AFont.Color := clWhite;
   Background := clGray;
 end;
   DBGridEh2.OptionsEh := DBGridEh2.OptionsEh + [dghRowHighlight];
end;
procedure TForm1.DBGridEh2DrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumnEh;
 State: TGridDrawState);
 begin
   IF  gdSelected   IN State
   Then Begin
           DBGridEh2.Canvas.Brush.Color:= $000000;
       End;
       DBGridEh2.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
procedure TForm1.Ping1EchoReply(Sender, Icmp: TObject; Error: Integer);
 var
   Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState;
    begin
        if error = 0 then
          begin
              //ячейка делается красной
          end;
        if error <> 0 then
           begin
              //ячейка делается зеленой
           end;
    end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 ping1.ping;
end;
end.


 
ANB ©   (2005-11-24 12:08) [1]

//ячейка делается красной
//ячейка делается зеленой
- Это должно быть в DBGridEh2DrawColumnCell
А в Ping1EchoReply нужно изменять какое нибудь поле. Его потом и анализируешь при рисовании.
ЗЫ. Поле может быть фиктивным - если надо.



Страницы: 1 вся ветка

Текущий архив: 2006.01.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.042 c
6-1129205876
Kimer
2005-10-13 16:17
2006.01.22
Отправка e-mail


14-1135341979
IAmDanil
2005-12-23 15:46
2006.01.22
Input-Output


1-1134665188
toxa_2006
2005-12-15 19:46
2006.01.22
бинарные деревья


2-1135845650
azl
2005-12-29 11:40
2006.01.22
Корректное завершение работы программы при выключении ПК


2-1136395219
maxim123
2006-01-04 20:20
2006.01.22
WinAPI проблема с type