трабл с циклом

← →
Тимофей Юрьевич © (2006-06-10 12:12) [0]

все доброго времени суток,т.е. дня;)
у меня такая проблема не получается создать цикл
имеется
var
MyStream: TMemoryStream;
i:integer;
begin
MyStream := TMemoryStream.Create;
NMStrm1.Port := 6711;
for i:=1 to listbox1.Count do
NMStrm1.Host := inttostr(i);
NMStrm1.FromName := "User";
MyStream.LoadFromFile(edit1.Text);
NMStrm1.PostIt(MyStream);
MyStream.Free;

в listbox"e находится список ipшников,нужно чтобы каждому ip посылался файл

← →
tesseract © (2006-06-10 12:15) [1]

for i:=0 to listbox1.count-1 do
begin
NMStrm1.Host := inttostr(i);
NMStrm1.FromName := "User";
MyStream.LoadFromFile(edit1.Text);
NMStrm1.PostIt(MyStream);
end;

← →
Тимофей Юрьевич © (2006-06-10 12:45) [2]

чет не то,ругается на null adress

← →
tesseract © (2006-06-10 12:48) [3]

значит чего-то не создал, или ip не задан.

← →
Галинка © (2006-06-11 22:11) [4]

Рискны предположить что

NMStrm1.Host := inttostr(i+1);

Элементы в листбоксе нумеруются с 0 до каунт-1, а вот адреса у автора вероятно с первого.

Галинка © (11.06.06 22:11) [4]

Я так мыслю, что из

> в listbox"e находится список ipшников

следует, что в Host должны попадать аккурат они, а не некое i... так что, думается мне, .Host := ListBox.Items[i];

трабл с циклом Найти похожие ветки