Здрава всем!
У меня такой вопрос - как заставить LPT работать в последовательном режиме? Я понимаю что приидётся емулировать работу порта програмно у меня получилось но не совсем.. типа я хочу скажем на 14 ножку послать такую инфу- 00101100 10111001 11000110...
как вообще оно работает?
вот как я зделал:
procedure TForm1.Button3Click(Sender: TObject);
var ms: integer;
begin
ms:= StrToInt(Edit1.Text);
sleep(ms);
Lpt.WritePort (LPT2,0,1); //0 bit
sleep(ms);
Lpt.WritePort (LPT2,0,0); //1 bit
sleep(ms);
Lpt.WritePort (LPT2,0,0); //2 bit
sleep(ms);
Lpt.WritePort (LPT2,0,1); //3 bit
sleep(ms);
Lpt.WritePort (LPT2,0,1); //4 bit
sleep(ms);
Lpt.WritePort (LPT2,0,0); //5 bit
sleep(ms);
Lpt.WritePort (LPT2,0,1); //6 bit
sleep(ms);
Lpt.WritePort (LPT2,0,0); //7 bit
end;
Я не очень в програмирований:( Этот пример работает но только на 2 pin, как указать другие?
Я исползую дрова LPTWDMIO.sys и модуль LPTIO.pas
вот link:
http://valery-us4leh.narod.ru
дело в том что я хочу подключить LCD от nokia 3310! Я его по схеме Rifer-а подключил, всё работает, но с помощю программы LCDHYPE!
А она мне ужасно не нравится:( загружает комп! Если я смогу с помощю вас написатб прогу для LPT то потом постараюсь подключить COM порту!
не советуйте подключать COM порту пока хочу разобратся с LPT по схеме RIFER-а!
http://rifer.narod.ru/nokia3210.htm
Прощу помогите потому что последняя надежда на вас!
Спасибо!!!
Последний раз редактировалось
DLL32 Чт авг 03, 2006 00:17:05, всего редактировалось 1 раз.