Samara24.Форум /Компьютеры Интернет Связь / Программирование /

Помогите Ламеру! (Delphi)

Печать RSS Деревом

vetal
guru
Сообщений: 6019
21.07.03 08:27
Блин вот уже 3 месяца парюсь нихрена не получается, Поможите кто сможет и захочет...
Нужна прога, хотя нет.. лучше процедура для делфей, которая могла бы читать и писать данные побитно в LPT так чтоб на вход ей например подавать номер провода в порте, бит чтение\запись, и что необходимо установить 1или0 на этом проводе. причем так чтобы значение сохранялось до тех пор пока оно не будет изменено........
КопироватьСсылка
Рассказать друзьям
Максимыч
Анонимный пользователь
21.07.03 08:49Ответ на сообщение Помогите Ламеру! (Delphi) пользователя vetal
procedure SendLpt0(b:byte);
// послать байт в регистр данных LPT1
begin
asm
mov DX, $378
mov b, AL
out (DX), AL
end;
end;

var LastB:byte; //то что послали последний раз

procedure SetLPTbit(nb:byte); // установить nb-й бит (nb=0..7)
var bb:byte;
begin bb:=1 shl nb;
LastB:=LastB or bb; SendLpt0(LastB)
end;

procedure ClrLPTbit(nb:byte); // сбросить nb-й бит (nb=0..7)
var bb:byte;
begin bb:=not (1 shl nb);
LastB:=LastB and bb; SendLpt0(LastB)
end;

Вот примерно так.
КопироватьСсылка
Рассказать друзьям
vetal
guru
Сообщений: 6019
21.07.03 09:07Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя Максимыч
ясен перец... ассемблерная вставка.....
Спасибо , попробую, хотя я в асме ваще не разбираюсь... знал бы асму, ......
можно попросит коментарии.....
КопироватьСсылка
Рассказать друзьям
vetal
guru
Сообщений: 6019
21.07.03 10:03Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя Максимыч
ассемблер я к сожалению не знаю....
поясните ПЛЗ.
КопироватьСсылка
Рассказать друзьям
Spartac
activist
Сообщений: 154
21.07.03 13:40Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя Максимыч
http://www.sources.ru/delphi/system/read_byte_from_parallel_port.shtml
Лучше... ничем не заниматься, чем заниматься ничем. (Тацит)
КопироватьСсылка
Рассказать друзьям
vetal
guru
Сообщений: 6019
21.07.03 15:34Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя Spartac
Это про биты данных, а можно ли и если можно то как работать с управляющими сигналами....
КопироватьСсылка
Рассказать друзьям
Максимыч
Анонимный пользователь
22.07.03 12:02Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя vetal
Если не ошибаюсь, в регистре управления LPT младшие 4 бита пишутся а остальные 4 читаются.
То есть всего у Вас 12 проводов на выход и 4 на вход.
Правда у тех что пишутся 1 соответствует где низкий а где высокий уровень. Поэтому для единообразия (чтобы 1 всегда соответсвовала высокому) я сделал так

procedure SendLpt1(b:byte);
var bb:byte;
begin
bb:=((not b) and $0F) xor $04;
asm // это просто вывод байта bb в порт $37A
mov DX, $37A
mov AL, bb
out (DX), AL
end;
end;

Чтение старшего полубайта так же просто

procedure GetLpt1(var b:byte);
begin
asm // это просто ввод байта b из порта $37A
mov DX, $37A
in AL, (DX)
mov b, AL
end;
b:=b and $F0 ; // это не обязятельно, но мне так удобнее
end;

Это все работает, если в BIOS установлен режим SPP для LPT1
P.S. в моем предыдущем примере ошибка -
должно быть mov AL,b вместо mov b,AL
КопироватьСсылка
Рассказать друзьям
vetal
guru
Сообщений: 6019
29.07.03 05:23Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя Максимыч
Thank's
Вроде начинает получатся........
КопироватьСсылка
Рассказать друзьям
Zen
activist
Сообщений: 325
02.08.03 09:05Ответ на сообщение Помогите Ламеру! (Delphi) пользователя vetal
Я писал драйвер для того чтобы все работало под NT(win2k*winXP) и под Win95&sons.
Ассемблерная вставка (а попросту запись в порт))
будет работать только под Win95/98/2000
Джордано Бруно секс-форума. =) Забанен за стихотворение.
КопироватьСсылка
Рассказать друзьям
vetal
guru
Сообщений: 6019
04.08.03 05:57Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя Zen
да тут уж не до NT шного ядра..... хоть бы на 9Х разрулить....
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
14.08.03 09:07Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя vetal
Zen ты сумел работать с портами под 2000/ХР? А если имеется ISA контроллер, то этот драйвер может и в него писать? Если да, то помоги исходниками.
КопироватьСсылка
Рассказать друзьям
Dimano o Mano
activist
Сообщений: 120
16.08.03 21:46Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя Анонимный пользователь
Народ, а подскажите пожалуст, как заделать типа мемо или чото в этом роде, чтоб как чат было (чтоб разноцветными шрифтами и все такое)
Слово не воробей, с воза упало и топором не вырубишь...
КопироватьСсылка
Рассказать друзьям
srf2000
member
Сообщений: 95
18.08.03 06:16Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя Dimano o Mano
2 Dimano o Mano:
используй TRichEdit
КопироватьСсылка
Рассказать друзьям
Dimano o Mano
activist
Сообщений: 120
19.08.03 09:34Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя srf2000
Зенькаю
Слово не воробей, с воза упало и топором не вырубишь...
КопироватьСсылка
Рассказать друзьям
Dimano o Mano
activist
Сообщений: 120
09.12.03 18:52Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя srf2000
а дальше?
Слово не воробей, с воза упало и топором не вырубишь...
КопироватьСсылка
Рассказать друзьям
Сибиряк
old hamster
Сообщений: 13510
11.12.03 08:45Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя Dimano o Mano
У тебя в папке с делфями есть \Demos\Richedit.
Там довольно неплохой пример
КопироватьСсылка
Рассказать друзьям
Dimano o Mano
activist
Сообщений: 120
11.12.03 13:46Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя Сибиряк
ага, спасибо, действительно наглядно...
Слово не воробей, с воза упало и топором не вырубишь...
КопироватьСсылка
Рассказать друзьям
vetal
guru
Сообщений: 6019
29.01.04 08:42Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя Анонимный пользователь
нее... под ХР не пошло... под 9Х вроде проканало но както кривовато.... доделать так и не смог.... в принципе для себя делал, поэтому и крива проканало......

Под ХР ка таковой я не пробовал.... под 2003 виндой не прошло....
КопироватьСсылка
Рассказать друзьям
Юра
veteran
Сообщений: 1347
02.02.04 10:59Ответ на сообщение Re: Помогите Ламеру! (Delphi) пользователя vetal
Боюсь тупым записыванием в порт ничго ны получится. У меня например ДОСная программа, которая общается с последовательным портом. Там как раз напрямую в порт пишется. Так из под виндов работает очень криво.

Неужели нет для этого соответсвующего VCL во всемогущем инете?
КопироватьСсылка
Рассказать друзьям

Samara24.Форум /Компьютеры Интернет Связь / Программирование /

Перейти в форум

открыть в новом окне

Модератор:

flopic