Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Тимофей Юрьевич © (2006-06-10 12:12:00)
все доброго времени суток,т.е. дня;)
у меня такая проблема не получается создать цикл
имеется
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 посылался файл

Virgo_Style (2006-06-11 23:29:00) [1]
Галинка © (11.06.06 22:11) [4]

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

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

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

Галинка (2006-06-11 22:12:00) [2]
Элементы в листбоксе нумеруются с 0 до каунт-1, а вот адреса у автора вероятно с первого.

Галинка (2006-06-11 22:11:00) [3]
Рискны предположить что

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

tesseract (2006-06-10 12:48:00) [4]
значит чего-то не создал, или ip не задан.

Тимофей Юрьевич (2006-06-10 12:45:00) [5]
чет не то,ругается на null adress

tesseract (2006-06-10 12:15:00) [6]
for i:=0 to listbox1.count-1 do
begin
NMStrm1.Host := inttostr(i);
NMStrm1.FromName := 'User';
MyStream.LoadFromFile(edit1.Text);
NMStrm1.PostIt(MyStream);
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »