Вопросы по Delphi - [100] :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi

Модерирует : ShIvADeSt
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

EZH Advanced Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору reenoip Ты выложи нам скрин своего чудо-интерфейса, всем же интересно...
	Всего записей: 1738 \| Зарегистр. 02-09-2004 \| Отправлено: 18:11 15-04-2006

reenoip Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору EZH, ))) что, чек-боксы вместо радио-батонов не видел? lol ))) Выложил бы, да не могу. Копирайт Да и сам проект мне ещё сдать нужно, прежде чем раздавать
	Всего записей: 1768 \| Зарегистр. 10-03-2006 \| Отправлено: 18:40 15-04-2006

EZH

Advanced Member

reenoip
Да видел, просто интересно что уж там такого, я сам много занимаюсь проектированием интерфейсов. Сам проект не надо, просто скрин формы, даже надписи можешь заменить чтобы не понятно было о чем. Впрочем как занешь... не хочешь - не надо

Всего записей: 1738 | Зарегистр. 02-09-2004 | Отправлено: 18:59 15-04-2006 | Исправлено: EZH, 19:00 15-04-2006

valerka78

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:

тут ты не прав, это дело заказчика, как он скажет так и должно быть

Конечно, я согласен

если заказчик скажет: "Значит радиобуттоны мне так, а чекбоксы так!". Но, как правило, так не говорят.

Цитата:

Кажется, я напоролся (нечаянно!) на консерватора "Win 3.1"

Где-то я с тобой согласен

reenoip

Цитата:

нужно открыть папку с установленными сетевыми подключениями.

Уточни плиз, тебе именно "Сетевое окружение", или просто список станций в сети?

Всего записей: 248 | Зарегистр. 16-01-2006 | Отправлено: 20:14 15-04-2006

reenoip

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Нет, valerka78, мне в XP нужно открыть именно "Сетевые подключения" (не "Окружение..."). Это тот самый каталог, где лежат "1394 Connection", "Local Area Connection", ярлыки запуска диалапа и т.д. и т.п. (он же - через "Панель управления").

Всего записей: 1768 | Зарегистр. 10-03-2006 | Отправлено: 21:51 15-04-2006

gpi Alone Wanderer	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору reenoip uses ShellApi; ShellExecute(Handle, nil, 'Control.exe', 'ncpa.cpl', nil,sw_ShowNormal); или просто WinExec('Control.exe ncpa.cpl',SW_RESTORE);
	Всего записей: 432 \| Зарегистр. 30-05-2004 \| Отправлено: 23:25 15-04-2006 \| Исправлено: gpi, 23:27 15-04-2006

reenoip

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

gpi, угу, спасибо!

А вот ещё: нужно определить активность соединения с интернетом (диалап, gprs, adsl - с учётом всех видов подключения). Т.е. перед показом формы нужно проверить, есть ли доступ в Сеть, чтобы, скажем, проверить наличие некоторых файлов.
Кроме пинга какого-нибудь IP другим путём можно это реализовать, нет?

Всего записей: 1768 | Зарегистр. 10-03-2006 | Отправлено: 00:24 16-04-2006 | Исправлено: reenoip, 00:35 16-04-2006

gpi

Alone Wanderer

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

reenoip
Цитата из Delphi World http://delphiworld.narod.ru
Кстати, сборник сделан твоим соотечественником

Цитата:

uses
WinInet;

{...}

function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsConnectedToInternet then
ShowMessage('Connected.')
else
ShowMessage('Not Connected.')
end;

Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 00:39 16-04-2006

reenoip

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Нет, немного не то - 'Connected' показывается всегда, даже в том случае, если фактически присутствует доступ лишь в локалку, а не в интернет.
Но всё равно спасибо

И соотечественнику моему тоже )))

Кстати, почитал инфу об определении активности доступа... Короче, без пинга, как оказалось, никуда, так что пришлось накручивать трафик. Хотя, платить за него заказчику, фиг с ним )))

Всего записей: 1768 | Зарегистр. 10-03-2006 | Отправлено: 02:03 16-04-2006

SPeller Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Угу, никакие ухищрения кроме пинга нужного узла (узлов) не ответят - подключен комп к инету или нет.
	Всего записей: 259 \| Зарегистр. 11-01-2006 \| Отправлено: 03:57 16-04-2006

valerka78

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:

Угу, никакие ухищрения кроме пинга нужного узла (узлов) не ответят - подключен комп к инету или нет.

Ну ну. А конект не прокатит?

reenoip
Не спеши делать выводы

Отсутствие пинга не означает отсутствие подлючения к инету.

Всего записей: 248 | Зарегистр. 16-01-2006 | Отправлено: 09:07 16-04-2006

2Polkan

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

люди... имеет смысл переходить с Делфи 7 на что-то более мощное? как я понял, делфи 2005 для .NET, это мне нафиг не надо... А 2006ой? Всё-таки Делфи 7 уже не продается даже...

----------
Автор благодарит алфавит за любезно предоставленные буквы.

Всего записей: 435 | Зарегистр. 20-11-2004 | Отправлено: 09:16 16-04-2006

ArtemiyUO Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Я считаю стоит, если ПК позволяет ну и если ты не совсем консерватор. Я лично перешел, мне нравится. Кроме того и работает быстрей и среда и программы.
	Всего записей: 539 \| Зарегистр. 12-12-2005 \| Отправлено: 09:34 16-04-2006

gpi Alone Wanderer	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору reenoip Попробуй выкинуть INTERNET_CONNECTION_LAN +
	Всего записей: 432 \| Зарегистр. 30-05-2004 \| Отправлено: 10:10 16-04-2006

SPeller

Member

valerka78
Вариант 1: Мой комп соединён сеткой со вторым компом, то коннект есть, но интернета нет и небыло никогда.

Вариант2: Мой комп подключен ко второму, а второй, в свою очередь, является шлюзом, и раздает инет и мне. Коннект и инет есть.

Вопрос: Как в обоих случаях программно определить, есть интернет или нет?

Всего записей: 259 | Зарегистр. 11-01-2006 | Отправлено: 10:21 16-04-2006 | Исправлено: SPeller, 10:22 16-04-2006

RomanTim Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору 2Polkan Почитай страницу 95 - там reenoip спрашивал по поводу выбора версии делфи
	Всего записей: 375 \| Зарегистр. 11-09-2003 \| Отправлено: 11:09 16-04-2006

SPeller

Member

Цитата:

Всё-таки Делфи 7 уже не продается даже

Продаётся даже 5-я версия у реселлеров. При желании можно найти

Всего записей: 259 | Зарегистр. 11-01-2006 | Отправлено: 11:19 16-04-2006

DroN_S

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:

При желании можно найти

а что искать то, заходишь на сайт borland'а, находиши линк и какчаешь, качаешь, качаешь

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 16:30 16-04-2006

jsnjack Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Есть текстовый файл. Как в какую-нить переменную загнать количество строк в этом файле?
	Всего записей: 318 \| Зарегистр. 10-02-2005 \| Отправлено: 18:28 16-04-2006

ArtemiyUO

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

каким методом открываеш файл
Если AssignFile
то моджно сделать функцию возвр кол-во строк
count := 0;
while not eof(f) do
inc(count);
end;

а лучше забыть про эти функции и юзать спец классы, например TStringList.
там тебе и лоад, и коунстрок
var
s: tstringlist;
begin
s:= tstringlist.create;
s.loadfromfile('c:\file.txt');
s.count - кол-во сток
s.item[] - строка
s.free;
end;
Вообщем юзучай и юзай ВСЛ, его писали не дураки и написано там очень много хорошего.

Всего записей: 539 | Зарегистр. 12-12-2005 | Отправлено: 19:07 16-04-2006

Страницы: 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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC