VPF::Indy передача текста по сети - Форум программистов

zhefran

Дата 2.10.2007, 10:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 237
Регистрация: 27.9.2007
Где: Винница-Киев-Ирпе нь-?, Украина

Репутация: нет
Всего: нет

Программа записывает результаты по сети. Как правильно описать except, что бы она работала если соединения в сети нет, тоисть не зависимо есть ли соединение или нет. smile

клиент такой:

Код


  TCPClient.Host:=IPEdit.Text;
TCPClient.Port:=6052;
 try
  TCPClient.Connect;

  try
  WriteLn(datetostr(date)+' '+timetostr(time)+': Работает норм');
 except on E:Exception do begin
                fName := CurrntDir+'\log.txt';
                AssignFile(f, fName);
                Append(f);  
                writeln(f, datetostr(date)+' '+timetostr(time)+'нет сети');
                CloseFile(f); 
  end
  end;
  finally
  TCPClient.Disconnect;

  end;

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

Snowy

Дата 2.10.2007, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Работать с сетью в параллельном треде или асинхронно, т.к. реальную задержку убрать нельзя - винда ж не знает, а вдруг у тебя пинг 10000мс... Всякое может быть...

zhefran

Дата 2.10.2007, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

можеш показать на примере? smile

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

zhefran

Дата 2.10.2007, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Я описал except - все пипчит! Но все равно покажи на примере, вдруг будет глючить.

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

Snowy

Дата 2.10.2007, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Просто переведи из блокирующего режима в неблокирующий.
А все проверки и обработки делай в событиях.

dumb

Дата 2.10.2007, 18:08 (ссылка)

(голосов:1)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 5
Всего: 158

в индейцах вроде как нет неблокирующего режима.
ps. на меня тупняк напал, или я утратил телепатические способности - перестал понимать вопросы. smile

посему по делу ничего не скажу...

MetalFan

Дата 2.10.2007, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

Цитата(zhefran @ 2.10.2007, 10:38

)

Как правильно описать except, что бы она работала если соединения в сети нет, тоисть не зависимо есть ли соединение или нет.

а теперь еще раз внятно и по-русски. я из вопроса однозначно не понял что тебе нужно

--------------------

There are always someone smarter than you...

zhefran

Дата 3.10.2007, 09:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Цитата

а теперь еще раз внятно и по-русски. я из вопроса однозначно не понял что тебе нужно

У меня прога пишет лог на моем компе и по сети. Когда сервак не был запущен выдавало connection timeout or connection refused. Это уже работает.
У меня есть еще один вопросик. Как сделать - если есть соединение с серваком,то записать все предыдущие состояния + текущее.

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

zhefran

Дата 12.10.2007, 11:41 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Вопрос снят.

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »