Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Сентябрь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 226
от 02.09.2005, 19:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 231, Экспертов: 48
В номере:Вопросов: 3, Ответов: 13

Вопрос № 25433: Как можно определить скорость подключения к интернету и вывести в ***,* Кб/сек?...
Вопрос № 25443: Многие эксперты мне прислали ответы с использованием mod, но в моем коде --------------------------------------------------------------------------------------------- var C, Hours, Minutes: Real; AvalibleTime: String; begin c:...
Вопрос № 25445: Как можно сделать так чтобы при щелчке по кнопке закрыть в заголовке окна форму можно было бы спрятать!...

Вопрос № 25.433
Как можно определить скорость подключения к интернету и вывести в ***,* Кб/сек?
Отправлен: 28.08.2005, 11:10
Вопрос задал: Малярчук Андрей (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: sir henry
Здравствуйте, Малярчук Андрей!
"К интернету" - это значит скорость доступа до провайдера? :)
Скорость до каждого сайта будет разная. Когда Ваш модем подключился к провайдеру и показал скорость, например, 50 кбсек, не верьте ему. Реальная скорость будет ниже. :) Если принудительно ограничить скорость подключения, например, до 33 кбсек, то скорость загрузки файлов может быть выше, чем при показаниях Вашего модема в 50 кб. :) Это из-за того, что при высокой скорости подключения он чаще переспрашивает пакеты.
А теперь к сути вопроса. :) Команда PING дает Вам время отклика того узла, который Вы пингуете. Посылает пинг пакеты по 32 байта. Отсюда вывод: скорость=кол-во_байт/время_отклика. :)
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 28.08.2005, 11:38
Оценка за ответ: 2
Отвечает: Denisss
Здравствуйте, Малярчук Андрей!
Попробуйте netmon (http://forum.codenet.ru/attachment.php?s=a31dd485180ff9acf8252a9c6cc9e526&postid=25036 [17.7K] или http://users.pandora.be/dirk.claessens2/downloads/netmon.zip)
Или http://users.pandora.be/dirk.claessens2/downloads/tcpipmon15.zip [24K]
В обеих программах реализован подсчет скорости траффика. еще есть где-то в интернете файл traffic_mon.zip (не помню где скачал, поисковики ничего не дают), там тоже считается скорость.
Ответ отправил: Denisss (статус: Студент)
Отправлен: 28.08.2005, 19:56
Оценка за ответ: 5

Вопрос № 25.443
Многие эксперты мне прислали ответы с использованием mod, но в моем коде
---------------------------------------------------------------------------------------------
var
C, Hours, Minutes: Real;
AvalibleTime: String;
begin
c:=StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text);
AvalibleTime:=FormatFloat('0', c);
Hours:=StrToFloat(AvalibleTime) / 60;
Minutes:=StrToFloat(AvalibleTime) mod 60;
Label1.Caption :=FloatToStr(Hours)+' џчас '+FloatToStr(Minutes)+' минут';
end;
--------------------------------------------------------------------------------------
у меня получается всегда 0 часов и "значение(которое посути должно обозначать часы)" В чем проблема? И еще вопрос:
Есть ли замена mod при деление на Real
у меня не компилирует
AvalibleTime: String;
Minutes: Real;
Minutes:=StrToFloat(AvalibleTime) mod 60;
Отправлен: 28.08.2005, 14:37
Вопрос задал: Малярчук Андрей (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Ballon
Здравствуйте, Малярчук Андрей!

Пиши так

Minutes:=StrToFloat(AvalibleTime) / 60;
Ответ отправил: Ballon (статус: 4-ый класс)
Отправлен: 28.08.2005, 14:45
Отвечает: Ерёмин Андрей
Здравствуйте, Малярчук Андрей!
Функция Trunc() отбрасывает дробную часть вещественного числа. С помощью неё Вы можете получить количество часов.
Функция Frac() - наоборот, возвращает только дробную часть числа (ту, что после запятой). С помощью этой функции Вы сможете найти минуты. К примеру, если у Вас 2.8 часов, то Trunc(2.8) даст 2, т.е. количество часов, а Frac(2.8) даст 0.8 - количество минут как долю от часа. После этого выполняем 0.8 * 60 = 48 минут. Всё очень просто.
---------
Мышка побежала, xвостиком махнула - cервер упал...
Ответ отправил: Ерёмин Андрей (статус: Практикант)
Отправлен: 28.08.2005, 15:18
Оценка за ответ: 5
Комментарий оценки:
То что надо.
Отвечает: Баркин Алексей
Здравствуйте, Малярчук Андрей!
Я вроде в прошлый раз говорил, что MOD не работает с REAL или др. дробями.

Я делал так: Значение времени держал в секундах и мне никакие REAL не понадобились.

Можно конечно их дробного числа вытащить два INTEGER вот в приложении.

Приложение:

Ответ отправил: Баркин Алексей (статус: 1-ый класс)
Отправлен: 28.08.2005, 17:15

Вопрос № 25.445
Как можно сделать так чтобы при щелчке по кнопке закрыть в заголовке окна форму можно было бы спрятать!
Отправлен: 28.08.2005, 15:19
Вопрос задал: Малярчук Андрей (статус: Посетитель)
Всего ответов: 8
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Ерёмин Андрей
Здравствуйте, Малярчук Андрей!
Нужно обработать событие OnClose() формы. Если Вы хотите не закрывать форму, а например свернуть, то нужно сначала установить CanClose:=False; - это даст программе понять, что закрывать форму не нужно. А затем подписать например: Application.Minimize; - форма свернётся. Однако не забудьте, что форму обязательно нужно иметь возможность закрыть, иначе придётся завершать приложение через диспетчер задач. Удачи!
---------
Мышка побежала, xвостиком махнула - cервер упал...
Ответ отправил: Ерёмин Андрей (статус: Практикант)
Отправлен: 28.08.2005, 15:26
Оценка за ответ: 5
Отвечает: John Freeman
Здравствуйте, Малярчук Андрей!
form1.onclosequery событие обработать.
---------
Ik bin ulien spiegel!
Ответ отправил: John Freeman (статус: Профессор)
Отправлен: 28.08.2005, 15:31
Отвечает: X
Здравствуйте, Малярчук Андрей!
В обработчике OnClose изменить значение Action.
Например:
Action:=caHide;

Приложение:

Ответ отправил: X (статус: 8-ой класс)
Отправлен: 28.08.2005, 15:35
Оценка за ответ: 4
Отвечает: Tsechoev Bagaudin
Здравствуйте, Малярчук Андрей!
Для собятия формы CloseQuery:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Visible:= False;
CanClose:= False;
end;

Удачи!
---------
Есть только одно зло - невежество, и только одно благо - знания
Ответ отправил: Tsechoev Bagaudin (статус: 10-ый класс)
Отправлен: 28.08.2005, 16:14
Отвечает: Zubex
Здравствуйте, Малярчук Андрей!
Обработать событие OnClose:

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caHide;
end;

Только если это главная форма необходимо предусмотреть возможность вновь ее показать (например кликом по значку в трее)
Ответ отправил: Zubex (статус: 2-ой класс)
Отправлен: 28.08.2005, 16:47
Отвечает: Баркин Алексей
Здравствуйте, Малярчук Андрей!
Есть в событии FormCloseQuery флаг CanClose если его поставить в FALSE,
то приложение не закроется пока не Флаг не поставить обратно в TRUE.

Приложение:

Ответ отправил: Баркин Алексей (статус: 1-ый класс)
Отправлен: 28.08.2005, 17:09
Отвечает: sir henry
Здравствуйте, Малярчук Андрей!
Что значит "спрятать"?
- минимизировать, свернуть в панель задач?
- не удаляя из памяти сделать так, чтобы окно не было видно на экране?
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 28.08.2005, 19:37
Отвечает: Козлов Николай Николаевич
Здравствуйте, Малярчук Андрей!
Используй событие OnCloseQuery у формы.

Приложение:

Ответ отправил: Козлов Николай Николаевич (статус: 1-ый класс)
Отправлен: 30.08.2005, 13:45

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Яндекс

Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus 		Отписаться
Вспомнить пароль
В избранное