Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

TClientSocket 


Layet   (2001-11-07 08:13) [0]

Помогите отловить ошибку!

for a := 1 to 15 do
begin

// if Client.Active then Client.Close;
Client.Address := "192.168.1."+IntToStr(a);
Client.Open;
Client.Socket.SendText("...");
Client.Close;
end;

Пишет ошибка 10061, т.е. "Can"t change value while socket is active". Вставил прокоментированную строку, чтобы закрывал сокет если он активен - никакого результата.

ПОДСКАЖИТЕ пожалуйста что я сделал неверно



Anatoly Podgoretsky   (2001-11-07 09:28) [1]

Поставил символы "//", верни в зад
И не плохо бы было перевести сообщение.




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.014 c
6-90346           ddd-numerical TV      2001-11-05 15:12  2002.01.28  
Webserver написать...


3-90218           Алексей1              2001-12-21 19:17  2002.01.28  
DBLookupComboBox


4-90436           dXb                   2001-11-23 02:53  2002.01.28  
Как отловить перезагрузку WIN


1-90294           Vasilii               2002-01-08 10:19  2002.01.28  
Вызов консольного приложения


1-90316           apav                  2002-01-11 15:17  2002.01.28  
UTF-8