Вопрос № 21140: Как получать вопросы для возможности отвечать, а не только вопрос-ответ?...Вопрос № 21149: Здраствуйте Ув. Эксперты!
У меня к вам большая просьба вы немогли бы поделится электоронной книгой, или книгами, по которой можно было бы выучить Delphi. Был бы за это вам очень признателен.
Если вы захотите поделится электронной книгой, или ...Вопрос № 21163: Уже писал насчет LPT порта. Всеравно ничего не получается. Запрограмировать немогу. Напишите плиз рабочий пример,
с коментариями: "Надо установить +5V на 17`ой ножке, потом считать с 10,11,12,13 и 15 ножек". Если кто пояснит сравнивая ...
Вопрос № 21140
Как получать вопросы для возможности отвечать, а не только вопрос-ответ?
Отправлен: 21.05.2005, 16:54
Вопрос задал: Gin (статус: 2-ой класс)
Всего ответов отправлено: 7
Отвечает: Jadd
Здравствуйте, Gin!
А по-русски можно? Ну ничего не понятно из того, что ты написал.
Ответ отправил: Jadd (статус: 4-ый класс)
Отправлен: 21.05.2005, 17:12
Отвечает: X
Здравствуйте, Gin!
Вопрос-ответ - это ты имеешь ввиду FAQ рассылки?
Надо просто стать стать экспертом этой рассылки(рядом с галочкой "читатель", поставить ещё галоку "эксперт"). Эту информацию можно найти на rusfaq.ru.
Ответ отправил: X (статус: 5-ый класс)
Отправлен: 21.05.2005, 17:21 Оценка за ответ: 4 Комментарий оценки: Здравствуйте, X. Поставил, но вопросы не приходили. Сейчас один пришел. Регистрация экспертом делается чуть-чуть по другому - в разделах. С Уважением, Gin.
Отвечает: Stamm
Здравствуйте, Gin!
Заходишь на главную страницу сайта
Далее регистрируешься.
Затем в регистрационной карте.... ищешь что тебе надо
Ответ отправил: Stamm (статус: 3-ий класс)
Отправлен: 21.05.2005, 19:25
Отвечает: CJ
Здравствуйте, Gin!
Это вы про рассылку? Так на русфаке около соответствующей рассылки поставьте галочку около поля Эксперт. :)
Ответ отправил: CJ (статус: Студент)
Отправлен: 21.05.2005, 22:47 Оценка за ответ: 5 Комментарий оценки: Спасибо, CJ, уже сделал. С Уважением, Gin.
Отвечает: sir henry
Здравствуйте, Gin!
На сайте rusfaq.ru можно каждому эксперту персонально послать письмо. Единственная незадача - дальше самого сайта это письмо не уйдет, так что если эксперты регулярно не смотрят свои ящики на сайте, то увы... :)
Можно в комментариях к ответу дать свой адрес.
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 23.05.2005, 08:47 Оценка за ответ: 4 Комментарий оценки: Здравствуйте, sir henry. Спасибо. С Уважением, Gin.
Отвечает: VBA
Здравствуйте, Gin!
Подпишись на эксперта.
Это в списке рассылок.
Ответ отправил: VBA (статус: 3-ий класс)
Отправлен: 23.05.2005, 11:45 Оценка за ответ: 4 Комментарий оценки: Здравствуйте, VBA. Уже! Спасибо. С уважением, Gin.
Отвечает: And1
Здравствуйте, Gin!
Стань экспертом. Просто зайди под соим аккаунтом на rusfaq.ru и в разделе там понаставь галочек. И будешь получать горы (!!!) писем. Всего то навсего :)...
Ответ отправил: And1 (статус: 2-ой класс)
Отправлен: 24.05.2005, 08:19 Оценка за ответ: 4 Комментарий оценки: Здравствуйте, And1. Уже. С Уважением, Gin.
Вопрос № 21149
Здраствуйте Ув. Эксперты!
У меня к вам большая просьба вы немогли бы поделится электоронной книгой, или книгами, по которой можно было бы выучить Delphi. Был бы за это вам очень признателен.
Если вы захотите поделится электронной книгой, или книгами, то пришлите ее ко мне на E-mail: arbuznikov@matrix.odessa.ua
Зарание вам благодарен!
С Ув. Ujin Antikvar
Отправлен: 21.05.2005, 18:46
Вопрос задал: Ujin Antikvar (статус: 1-ый класс)
Всего ответов отправлено: 3
Отвечает: Gin
Здравствуйте, Ujin Antikvar!
Книги:
1) Автор Флёнов Михаил
Название: Библия Delphi
URL: http://computertuning.narod.ru/delphi/index.htm
2) Автор ?
Название: Учебник по Delphi 6 для чайников
URL: http://soft.protoplex.ru/cgi-bin/loader.pl?showid=2536&url=http://goldfaq.protoplex.ru/download/books/delphi6.rar
Size: 2070425
3) Автор ?
Название: Учебник по Delphi
URL: http://www.ls.iatp.org.ua/coding/delphi/d_05.rar
Size: 249083
Файлы к книгам:
1) Автор Культин Н.
Название: Основы программирования в Delphi 7
URL: http://www.bhv.ru/books/get_disk_data.php?id=577
Size: 842783
2) Автор Дарахвелидзе П., Марков Е.
Название: Программирование в Delphi 7
URL: http://www.bhv.ru/books/get_disk_data.php?id=447
Size: 182463
Сайты:
http://delphid.dax.ru/study/ - Курс начинающего программиста в Delphi
http://srt.starinet.com/begin/modules.php?name=News <- недавно открылся
http://www.delphimaster.ru/cgi-bin/forum.pl?n=0 - Мастера Delphi
Книг в Интернете очень много - воспользуйтесь поисковиками Яндекс, Апорт, Google и т. д., набирая в строке поиска различные слова, например: Справка Delphi, Учебник Delphi или фамилии авторов.
С Уажением, Gin.
Ответ отправил: Gin (статус: 2-ой класс)
Отправлен: 22.05.2005, 14:05 Оценка за ответ: 5 Комментарий оценки: Большое_спасибо!!! С_Ув._Ujin_Antikvar :)
Отвечает: Malish
Здравствуйте, Ujin Antikvar!
В понедельник или во вторник пришлю.
Ответ отправил: Malish (статус: Студент)
Отправлен: 22.05.2005, 14:51
Отвечает: sir henry
Здравствуйте, Ujin Antikvar!
Последний месяц беспрерывным потоком идут просьбы выслать на мыло книги по Дельфи. Явный признак того, что люди разучились пользоваться Яндексом. Там таких книг находиться в поисковике тучи.
Загляните в архив рассылки, там также даны прямые ссылки на книги.
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 23.05.2005, 08:50 Оценка за ответ: 1 Комментарий оценки: Там_половина_ссылок_нерабочая.
Вопрос № 21163
Уже писал насчет LPT порта. Всеравно ничего не получается. Запрограмировать немогу. Напишите плиз рабочий пример,
с коментариями: "Надо установить +5V на 17`ой ножке, потом считать с 10,11,12,13 и 15 ножек". Если кто пояснит сравнивая
со способом програмирования порта под DOS, тому вечный респект.
P.S. На delphikingdom был, не въехал, если кто пояснит...
Отправлен: 21.05.2005, 22:02
Вопрос задал: dfdfdf (статус: 10-ый класс)
Всего ответов отправлено: 3
Отвечает: Alex Diesel
Здравствуйте, dfdfdf!<br>Вот посмотри такую ссылку: http://pccontrol.bib.com.ua/main.html - я собственно там читал и свои универские лекции, в принципе хватило.
Ответ отправил: Alex Diesel (статус: 4-ый класс)
Отправлен: 22.05.2005, 19:39
Отвечает: sir henry
Здравствуйте, dfdfdf!
Я не знаю, что такое 17-я ножка, но общий алгоритм таков:
Порт этот программируется байтами. Если 17-я ножка это ножка данных, то Вам всего лишь нужно послать в этот порт шестнадцатиричное число, в котором лог 1 установлена в том бите, который соответствует 17-ой ноге.
Если же это какая-то служебная команда, например "Закончилась бумага", то тогда эту комманду надо просто сформировать и опять же послать в порт.
Пожалуйста, напишите конкретно, во что Вы "не въехали"? Примеры на www.delphikingdom.com рабочие. Что конкретно вызывает у Вас затруднение?
Вопросы типа "все перечитал и ничего не понял" говорят лишь о том, что Вы не умеете читать. Поэтому, какими бы рабочими не были примеры присланые Вам, они Вам мало чем помогут - нужно знать принцип работы. Начните с простого - послать в порт определенный байт, считать из порта байт. Открывайте порт с помощью стандартных функций, типа OpenFile().
Учтите так-же что примеры которые работают под w9x, могут не работь под w2k в силу разных алгоритмов работы систем с периферией.
Скачайте какой-либо компонент по работе с портом (например с www.torry.net) и внимательно посмотрите на исходник. Поверьте - это будут вполне работоспособные исходники. :)
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 23.05.2005, 09:06
Отвечает: Malish
Здравствуйте, dfdfdf!
Тебе надо было указать режим порта с которым ты работаешь!!!
Я так понял что порт ты открыл. Если нет то так:
hLPT := CreateFile('LPT1', GENERIC_READ or GENERIC_WRITE, 0, nil,
OPEN_EXISTING, 0, 0);
Далее на 17 ножке не надо ничего устанавливать, вроде там само ставит.
SPP ECP EPP
10 Ack# PeriphClk INTR#
11 Busy PeriphAck Wait#
12 PaperEnd AckReverse# -
13 Select XFlag -
15 Erroe# PeriphRequest# -
17 Select In# 1284Active AddrStb#
Теперь как снять показания:
const
//у драйвера можно запросить информацию об его состоянии
IOCTL_PAR_QUERY_INFORMATION = $160004;
IOCTL_PAR_SET_INFORMATION = $160008;
type
PAR_QUERY_INFORMATION = record
Status: byte;
end;
PPAR_QUERY_INFORMATION = ^PAR_QUERY_INFORMATION;
type
PAR_SET_INFORMATION = record
Init: byte;
end;
PPAR_SET_INFORMATION = ^PAR_SET_INFORMATION;
var
ParInfo: PAR_QUERY_INFORMATION;
lpOverlapped: POverlapped;
ret: DWORD;
ParControl: PAR_SET_INFORMATION;
begin
DeviceIoControl(hLpt, IOCTL_PAR_QUERY_INFORMATION, nil, 0,
@ParInfo, sizeof(PAR_QUERY_INFORMATION), ret, lpOverlapped);
Edit1.Text := IntToStr(ParInfo.Status);
//Код IOCTL_PAR_SET_INFORMATION применяется для сброса драйвера
ParControl.Init := PARALLEL_INIT;
DeviceIoControl(hLpt, IOCTL_PAR_SET_INFORMATION, @ParControl,
sizeof(PAR_SET_INFORMATION), nil, 0, ret, lpOverlapped);
Edit2.Text := IntToStr(ParControl.Init);
end;
Это все что надо написать теперь расшифруем (и это то что надо) для IOCTL_PAR_QUERY_INFORMATION:
#define PARALLEL_INIT 0x01
#define PARALLEL_AUTOFEED 0x02
#define PARALLEL_PAPER_EMPTY 0x04
#define PARALLEL_OFF_LINE 0x08
#define PARALLEL_POWER_OFF 0x10
#define PARALLEL_NOT_CONNECTED 0x20
#define PARALLEL_BUSY 0x40
#define PARALLEL_SELECTED 0x80
IOCTL_PAR_QUERY_INFORMATION с помощью калькулятора раскладываешь на биты и сравниваешь с тем что я дал выше. И ты узнешь что включено а что нет!!!
Надеюсь я не поздно :)
Ответ отправил: Malish (статус: Студент)
Отправлен: 24.05.2005, 21:34