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

← →
linuxoid (2010-07-26 13:42) [40]

> Тебе столько написали, что ты уже должен был сделать сразу
> несколькими
> путями.

можете наглядный алгоритм написать. пытаюсь но что то у мя выходит

← →
Anatoly Podgoretsky © (2010-07-26 13:52) [41]

Вроде уже в самом начале ЮЗ представил алгоритм в виде кода.
1. Проход по базе, от начала до конца; 2. Выборка ИП для пинга из базы; 3. Вызов пинга (в потоке или последовательно); 4. переход к следующей иттерации.

Каждый кусок по отдельности уже фигурировал, собирай в целое. Это запускать внутри цикла таймера.

← →
linuxoid (2010-07-26 14:11) [42]

>
> Каждый кусок по отдельности уже фигурировал, собирай в целое.
> Это запускать внутри цикла таймера.

procedure TForm1.Timer1Timer(Sender: TObject);

begin
Application.Processmessages;
new1 := TThreadScan.create(true);
new1.freeonterminate := true;
form1.table.Open;
form1.table.First;
while not form1.table.Eof do begin
adress:=pchar(form1.table.Fields.FieldByName("nodeip").AsString);
new1.resume;
form1.table.Next;
end;
end;

вот собрал. но здесь он по циклу не проходит. берет только последнее значение из базы.

← →
Anatoly Podgoretsky © (2010-07-26 14:45) [43]

> linuxoid (26.07.2010 14:11:42) [42]

Как будто ничего не говорили, не проходит по циклу, поскольку это у тебя вне
цикла.

← →
linuxoid (2010-07-26 14:51) [44]

>
> Как будто ничего не говорили, не проходит по циклу, поскольку
> это у тебя вне
> цикла.

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

← →
Anatoly Podgoretsky © (2010-07-26 14:53) [45]

> linuxoid (26.07.2010 14:51:44) [44]

Поток.поле := значение
Поток.свойство := значение

← →
linuxoid (2010-07-26 15:07) [46]

> Поток.поле := значение
> Поток.свойство := значение

а как это будет в коде выглядить?

← →
Dennis I. Komarov © (2010-07-26 15:12) [47]

new1.adrees:=Dataset.FieldByName("adress").AsString;

← →
linuxoid (2010-07-26 15:22) [48]

> > Поток.свойство := значение

какое свойство должно описываться?

← →
Юрий Зотов © (2010-07-26 15:35) [49]

> linuxoid (26.07.10 15:22) [48]

Может быть, прежде, чем заниматься объектно-ориентированным программированием в Delphi, есть смысл прочитать хотя бы одну книжку по нему?

Можете поверить - даже самая простая книга, даже уровня "для начинающих" сняла бы у Вас огромную кучу вопросов и сэкономила бы массу времени.

← →
Anatoly Podgoretsky © (2010-07-26 15:46) [50]

> linuxoid (26.07.2010 15:07:46) [46]

Так и будет выглядеть, только замени на английский

← →
Anatoly Podgoretsky © (2010-07-26 15:47) [51]

> linuxoid (26.07.2010 15:22:48) [48]

Я тебе уже говорил, не лезь во свойства, тебе это тяжело, используй поля

← →
sniknik © (2010-07-26 15:51) [52]

> Можете поверить - даже самая простая книга, даже уровня "для начинающих" сняла бы у Вас огромную кучу вопросов и сэкономила бы массу времени.
и опять, почти дословно, тот же совет ему дают ... "а воз и нынче там" ;)

← →
linuxoid (2010-07-26 16:02) [53]

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";

← →
Dennis I. Komarov © (2010-07-26 16:11) [54]

> linuxoid (26.07.10 16:02) [53]

Значит у тебя ошибка в программе...

← →
linuxoid (2010-07-26 16:32) [55]

> > linuxoid (26.07.10 16:02) [53]
>
> Значит у тебя ошибка в программе...

а какая может быть ошибка и тем более возникает через минут 5?

← →
Юрий Зотов © (2010-07-26 16:35) [56]

Это срабатывает внутренний таймер VCL.

← →
linuxoid (2010-07-26 16:39) [57]

чтобы исправить эту ошибку нужно что-то дописать или в коде исправить какие то моменты?

Чтобы работать с потоками надо понимать их... а ты пишешь не понимая того, что пишешь...

> linuxoid (26.07.10 16:02) [53]

Тебя уже спрашивали про эти странные переменные

form1 new1
Ты же никаких выводов из этого не сделал.

← →
linuxoid (2010-07-27 08:23) [60]

вот два листинга программы.

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.

← →
linuxoid (2010-07-27 08:26) [61]

это второй листинг.
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.

> вот два листинга программы.

и нафига они нам?

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

И откуда такое чудо вычитано?

> linuxoid (27.07.10 08:23) [60]
>
> вот два листинга программы.

Не вижу листингов, только маразматические испражнения...

> Плохиш (28.07.2010 01:17:03) [63]

А нафига тебе листинги без вопросов?

как правильнее составить цикл? Найти похожие ветки