Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2006.01.22;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.041 c
8-1123460022
Valera
2005-08-08 04:13
2006.01.22
Проиграть AudioCD с помощью DSPack


14-1135850236
Jeer
2005-12-29 12:57
2006.01.22
Пожелание на новый год.


9-1123357108
DeadMeat
2005-08-06 23:38
2006.01.22
OpenGL поколечат в Windows Vista..?


1-1134629337
M@D
2005-12-15 09:48
2006.01.22
Печать документа Excel


14-1135511079
Ламерюга
2005-12-25 14:44
2006.01.22
Как узнать значение переменной хранящейся в другой форме!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский