| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как правильнее составить цикл?
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-28 08:38:00) [1]> Плохиш (28.07.2010 01:17:03) [63]
А нафига тебе листинги без вопросов?
Германн (2010-07-28 01:50:00) [2]
> Плохиш © (28.07.10 01:17) [63]
>
>
Я уже давно плюнул на эти испражнения.
Плохиш (2010-07-28 01:17:00) [3]
> linuxoid (27.07.10 08:23) [60]
>
> вот два листинга программы.
Не вижу листингов, только маразматические испражнения...
Dennis I. Komarov (2010-07-27 15:43:00) [4]
> вот два листинга программы.
и нафига они нам?
> procedure TThreadScan.addstr;
> begin
> Form1.ListBox1.Items.Add(msg);
> end;
И откуда такое чудо вычитано?
linuxoid (2010-07-27 08:26:00) [5]это второй листинг.
thrd
unit thrd;
interface
uses
Windows, SysUtils, Classes,
StdCtrls, winsock;
type
TThreadScan = class(TThread)
adress: string;
private
msg: string;
procedure addstr;
{ Private declarations }
protected
procedure Execute; override;
end;
type
ip_option_information = packed record
Ttl : byte;
Tos : byte;
Flags : byte;
OptionsSize : byte;
OptionsData : Pointer;
end;
icmp_echo_reply = packed record
Address : u_long;
Status : u_long;
RTTime : u_long;
DataSize : u_short;
Reserved : u_short;
Data : Pointer;
Options : ip_option_information;
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;
DestAddress : u_long;
RequestData : PVOID;
RequestSize : Word;
RequestOptns : PIPINFO;
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:integer;
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(pchar(adress));
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();
IPReply:=('Reply from '+
IntToStr(LoByte(LoWord(pIpe^.Address)))+'.'+
IntToStr(HiByte(LoWord(pIpe^.Address)))+'.'+
IntToStr(LoByte(HiWord(pIpe^.Address)))+'.'+
IntToStr(HiByte(HiWord(pIpe^.Address))));
if (error 0) then
begin
msg:=(IPReply+' N/A');
synchronize(addstr);
exit;
end;
msg:=(IPReply+'Reply time: '+IntToStr(pIpe.RTTime)+' ms');
synchronize(addstr);
IcmpCloseHandle(hIP);
WSACleanup();
FreeMem(pIpe);
end;
end.
linuxoid (2010-07-27 08:23:00) [6]вот два листинга программы.
main
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, thrd, DB, ADODB, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
conn: TADOConnection;
table: TADOTable;
tablenodeid: TAutoIncField;
tableparentid: TIntegerField;
tablenodename: TWideStringField;
tablenodetype: TIntegerField;
tablenodeip: TWideStringField;
tablenodeother: TWideStringField;
Timer1: TTimer;
ListBox1: TListBox;
dstable: TDataSource;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
new1:TThreadScan;
hThread:array of array of Cardinal;
{ Public declarations }
end;
var
Form1: TForm1;
//adress: array [1..30] of pansichar;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
table.Open;
table.First;
while not form1.table.Eof do begin
Application.Processmessages;
new1 := TThreadScan.create(true);
new1.freeonterminate := true;
new1.adress:=pchar(form1.table.Fields.FieldByName('nodeip').AsString);
new1.Resume;
table.Next;
end;
end;
end.
Anatoly Podgoretsky (2010-07-26 20:18:00) [7]
> linuxoid (26.07.10 16:02) [53]
Тебя уже спрашивали про эти странные переменные
form1
new1
Ты же никаких выводов из этого не сделал.
Dennis I. Komarov (2010-07-26 17:14:00) [8]Чтобы работать с потоками надо понимать их... а ты пишешь не понимая того, что пишешь...
linuxoid (2010-07-26 16:39:00) [9]чтобы исправить эту ошибку нужно что-то дописать или в коде исправить какие то моменты?
Юрий Зотов (2010-07-26 16:35:00) [10]Это срабатывает внутренний таймер VCL.
linuxoid (2010-07-26 16:32:00) [11]
> > linuxoid (26.07.10 16:02) [53]
>
> Значит у тебя ошибка в программе...
а какая может быть ошибка и тем более возникает через минут 5?
Dennis I. Komarov (2010-07-26 16:11:00) [12]
> linuxoid (26.07.10 16:02) [53]
Значит у тебя ошибка в программе...
linuxoid (2010-07-26 16:02:00) [13]procedure TForm1.Timer1Timer(Sender: TObject);
begin
Application.Processmessages;
form1.table.Open;
form1.table.First;
while not form1.table.Eof do begin
new1 := TThreadScan.create(true);
new1.freeonterminate := true;
new1.adress:=pchar(form1.table.Fields.FieldByName('nodeip').AsString);
new1.Resume;
form1.table.Next;
end;
end;
вот попробовал сделать так. работает около 5 минит затем выскакивает сообщение с ошибкой "access violation at address 06783007 in module "bordbk70.dll". read of address 0b880000";
sniknik (2010-07-26 15:51:00) [14]> Можете поверить - даже самая простая книга, даже уровня "для начинающих" сняла бы у Вас огромную кучу вопросов и сэкономила бы массу времени.
и опять, почти дословно, тот же совет ему дают ... "а воз и нынче там" ;)
Anatoly Podgoretsky (2010-07-26 15:47:00) [15]> linuxoid (26.07.2010 15:22:48) [48]
Я тебе уже говорил, не лезь во свойства, тебе это тяжело, используй поля
Anatoly Podgoretsky (2010-07-26 15:46:00) [16]> linuxoid (26.07.2010 15:07:46) [46]
Так и будет выглядеть, только замени на английский
Юрий Зотов (2010-07-26 15:35:00) [17]
> linuxoid (26.07.10 15:22) [48]
Может быть, прежде, чем заниматься объектно-ориентированным программированием в Delphi, есть смысл прочитать хотя бы одну книжку по нему?
Можете поверить - даже самая простая книга, даже уровня "для начинающих" сняла бы у Вас огромную кучу вопросов и сэкономила бы массу времени.
linuxoid (2010-07-26 15:22:00) [18]
> > Поток.свойство := значение
какое свойство должно описываться?
Dennis I. Komarov (2010-07-26 15:12:00) [19]
new1.adrees:=Dataset.FieldByName('adress').AsString;
linuxoid (2010-07-26 15:07:00) [20]
> Поток.поле := значение
> Поток.свойство := значение
а как это будет в коде выглядить?
| |
Страницы: 