Скачать: CL | DM;

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

← →
Тимофей Юрьевич ©   (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);

---

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

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

---

← →
Virgo_Style ©   (2006-06-11 23:29) [6]

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

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

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c