Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3

Модерирует : ShIvADeSt

ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

ZyXEL



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите! У меня есть готовые и отлаженные программы написанные на паскале версии 6.0-7.0 (типовые задачи типа калькулятора).
Открываю их в Дельфи 8.0 и не могу запустить на выполнение!
Объясните почему, плз, и как исправить что бы их всех позапустить.

Всего записей: 353 | Зарегистр. 12-03-2004 | Отправлено: 00:38 23-11-2007
greenpc

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

Цитата:
Дык вот если ип адрес допустим 192.11.11.11, то шлюз должен быть 192.11.11.1.

не факт. шлюз может быть любым !
есть такой способ
1. Открываем HKEY_LOCAL_MACHINE
2. Ищем subKey = SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards
\"netcard# "
"netcard# " номер сетевой карты (обычно 1, но может быть любым у мя 9)
3. Берем значение "ServiceName"
4. Ищем subKey = SYSTEM\CurrentControlSet\Services\"ServiceName"
\Parameters\TcpIp"
5. Получаем "IpAddress"  
6. Получаем "SubnetMask"  
7. Получаем "DefaultGateway"  

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 09:15 23-11-2007
SergeBS



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

Цитата:
 Дык вот если ип адрес допустим 192.11.11.11, то шлюз должен быть 192.11.11.1.

Да ну? А вот у меня шлюзов 2: 192.168.10.40 и 192.168.10.45. Так что совсем даже не должен.

Всего записей: 272 | Зарегистр. 19-04-2005 | Отправлено: 09:21 23-11-2007
lavren



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

Цитата:
Неужели придется править последнюю цифру в айпишнике на 1 и выдавать ее за адрес шлюза?

Тебе нужен IP основного шлюза что прописан в свойствах сетевой (в свойствах Пpoтoкoл Интepнeтa (TCP/IP)) или тебе нужна подсеть которая получается при логическом умножении IP любой машины на маску подсети (192.168.0.1 and 255.255.255.0 = 192.168.0.0)?

Всего записей: 545 | Зарегистр. 29-05-2007 | Отправлено: 10:04 23-11-2007 | Исправлено: lavren, 10:05 23-11-2007
abv



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ZyXEL
 На Паскале, говоришь Ну, если графику ты в них не использовал, то попробуй скомпилировать как консольное приложение, если получится, то может и заработать (как сделать - F1 в Дельфи и читать help). Если же использовал графику - переписывай всю графическую часть.

Всего записей: 268 | Зарегистр. 23-08-2001 | Отправлено: 11:10 23-11-2007
Maks150988



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
greenpc
Дык вот как узнать то поточнее? Не вручную же указывать первый попавшийся адаптер в реестре...
SergeBS
Да у нас просто у провайдера полюбому будет такой адрес роутера. Пишу программу для прописывания маршрутов, но проблемка в определении шлюза.
lavren
Гм не знаю... Дайте примерчик если не затруднит.
 
Ну и вообще поделитесь кто-нибудь примером где определяется шлюз.

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 14:05 23-11-2007
lavren



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Maks150988
Посмотри здесь, может поможет!
И на всякий случай! Вот ссылочка на хороший калькулятор IP.
 
Добавлено:

Цитата:
Гм не знаю...

Может почитай здесь и скажи что именно хочеш узнать!

Всего записей: 545 | Зарегистр. 29-05-2007 | Отправлено: 14:59 23-11-2007
relictus

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А никто не работал не работал с граф.форматом ECW? Как к нему подступиться?

Всего записей: 3780 | Зарегистр. 19-04-2005 | Отправлено: 15:41 23-11-2007
greenpc

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

Цитата:
Дык вот как узнать то поточнее? Не вручную же указывать первый попавшийся адаптер в реестре

Что узнать поточнее?
сколько у тя сетевых карт?
или какие настройки у каждой?
мой пример дает эти данные.
фактичеки это тоже самое что и ipconfig /all
Давай пожалуйста поточнее, что ты Вы хотите.
Как говорят: правильный вопрос - половина ответа
 

Цитата:
Пишу программу для прописывания маршрутов, но проблемка в определении шлюза.  

IMHO автоматом определить какая машина является шлюзом или нет не получится
PS: а может достаточно настроить DHCP ?
 

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 15:45 23-11-2007 | Исправлено: greenpc, 16:29 23-11-2007
Maks150988



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

Цитата:
сколько у тя сетевых карт?

АДСЛ модем, плюс Езернет. Но у кого-то просто АДСЛ. То есть нельзя просто так выдрать из реестра первый попавшийся адаптер. Да плюс у кого-то есть еще Wmware со своими адаптерами...

Цитата:
PS: а может достаточно настроить DHCP

Все настроено давно уже. Просто требуется немного изменить маршрутизацию, чтобы с ВПН на денежки не попадать. Конечно практичнее запустить специально подготовленный батник и все дела, но срок аренды айпишника у нас 3 дня или ранее. Дык вот нужен адрес шлюза чтобы все "бесплатные" маршруты через него пустить...
 
Цель программы создавать этот самый батник, но уже с текущим шлюзом в нем. Дабы автоматизировать процесс и каждый раз не лазить в свойства соединения.
 
Да и вообще есть же дохрена примеров, показывающих айпишник локальный, внутренний и внешний, МАС адрес и т.д... А тут ничего толком нету...
 
lavren
В том примере написано что надо вызвать EnumInterfaces(var s string): Boolean;
А как его вызвать-то? Не умею я функции вызывать.

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 18:36 23-11-2007 | Исправлено: Maks150988, 18:56 23-11-2007
vladk1973



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ZyXEL
В тупую то конечно не запустишь.
Создай новое консольное приложение,  
что там у тя между begin и end прописано подставь
Процедуры, функции вынеси выше или в отдельный юнит.
Секцию Uses по-любому надо проверить, не должно быть никаких BGI, CRT
В целом язык то остался, мож тебе и повезет
Опять жеж, это только для консольного приложения имеет смысл, для графического - как и написал многоуважаемый abv, кроме общей идеи ничего не останется
 

Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 11:51 24-11-2007
ShamaN



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Подксажите, есть ли возможность работать из Delphi с пультом управление от TV-тюнера? Может есть какие компоненты...

Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 18:00 24-11-2007
ZyXEL



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

Цитата:
В тупую то конечно не запустишь.  
Создай новое консольное приложение,  
что там у тя между begin и end прописано подставь  

пробовал! посточно копировал, вставлял , сохранял не запускается.
уже скачал просто паскаль, работает.

----------
электрик.спб.рф
+7-921-326-22-27
Электромонтаж под ключ

Всего записей: 353 | Зарегистр. 12-03-2004 | Отправлено: 01:26 25-11-2007
nuker2015



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ZyXEL
Цитата:
пробовал! посточно копировал, вставлял , сохранял не запускается.
уже скачал просто паскаль, работает.
Код в студию! На что у тебя компилятор ругается - errors, warnings. Ключи компиляции, настройки оптимизатора.
А код в студию - однозначно.

Всего записей: 132 | Зарегистр. 26-10-2005 | Отправлено: 05:32 25-11-2007
vladk1973



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
nuker2015
Поддерживаю. Какие ошибки то выдает?
 
Добавлено:
ShamaN
А ты просто попробуй код onkeypress
обрабатывать. Вполне возможно, что пульт просто эмулирует клавиатурные комбинации, и никаких кмпонентов не понадобится

Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 09:20 25-11-2007
ShamaN



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

Цитата:
А ты просто попробуй код onkeypress  

едва ли это так.

Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 09:24 25-11-2007
vladk1973



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ShamaN
А как жеж Human Interface Device?
У меня пульт вообще никаких драйверов специфических не использует, обычная эмуляция клавиатуры

Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 09:49 25-11-2007
ShamaN



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
vladk1973
у тебя пульт от ТВ-тюнера не использует драйверов тюнера?

Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 09:54 25-11-2007
vladk1973



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ShamaN
Нет. Используется HID
Подключается через USB порт.
Сам тюнер - на PCI. Я например на нем могу пароль набрать для залогинивания в комп
Ваще то offtopic начинается, поэтому завязыаю

Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 10:05 25-11-2007
ZyXEL



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

Цитата:
Код в студию! На что у тебя компилятор ругается - errors, warnings. Ключи компиляции, настройки оптимизатора.  
А код в студию - однозначно.  

 

Код:
 
program sopr;
uses crt;
var r,c,f,z:real;
Function impedans(r:real; c:real; f:real):real;   {ошибка была f:integer}
var                                               {ошибка: не присвоено значение функции impedans}
   z:real;
   xc:real;
   impedans:real;
Begin
xc:=1/(2*3.1415926*f*c);
z:=sqrt(r*r+xc*xc);
end;
Begin
writeln('введите в одной строке сопротивление (Ом) емкость',
 '(микрофорад) и частотц (Гц) ->');
readln(r,c,f);
z:=impedans(r,c,f);
writeln('полное сопротивление',z);
Readln;
end.
 
 

 
программа не выдаёт ошибок, просто не горит кнопка запустить
просто странно из-за чего! она работает под паскалем 6.0!
операц сист ХРсп2, ПО Borland Deplhi 8.0 for the Microsoft .Net Framework Architect Edition

Всего записей: 353 | Зарегистр. 12-03-2004 | Отправлено: 14:13 25-11-2007
   

Страницы: 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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru