Sterowanie wyswietlaczem LCD przez port LPT

Ponieważ sam długo szukałem, ale w końcu znalazłem, więc podzielę się tym, co wiem.

Skorzystałem z freeware'owego zlportio [jest np. na stronce Torry's Delphi...]. Oczywiście pod NT (XP/2K) trzeba doinstalować obsługę portu [google i port95nt3.exe]. Podstawowe elementy kodu:

const
  Data    = $378; // domyślny adres portu
  Status  = Data + 1; 
  Control = Data + 2; 

//Posłużyłem się dwoma procedurami:

procedure LCD_WriteCommand(a: Byte);
// Wysylanie komend sterujacych
begin
  zlioportwrite(Data, 0, a);
  Sleep(5);
  zlioportwrite(Control, 0, $02);
  Sleep(5);
  zlioportwrite(Control, 0, $03);
  Sleep(5);
end;

procedure LCD_WriteData(a: Byte);
// Wysylanie danych
begin
  zlioportwrite(Control, 0, $06);
  Sleep(5);
  zlioportwrite(Data, 0, a);
  Sleep(5);
  zlioportwrite(Control, 0, $07);
  Sleep(5);
end;

//Procedura inicjalizacji może wyglądać np. tak
procedure LCD_Init;
begin
  LCD_WriteCommand($38);
  Sleep(20);
  LCD_WriteCommand($06);
  Sleep(20);
  LCD_WriteCommand($0C);
  Sleep(20);
  LCD_WriteCommand($01);
  Sleep(20);
end;

//Czasem LCD może "nie załapać" startu, więc $38 można posłać dwa, trzy razy.

//Potem jest już z górki ;-) 
LCD_WriteCommand($01) to czyszczenie ekranu
LCD_WriteCommand($02) to powrót kursora na początek

//a wysłanie tekstu:

procedure LCD_StringSend(S: String);
var
  i: Byte;
begin
  for i := 1 to Length(S) do LCD_WriteData(Ord(S[i]));
end;

Wiem, że to banalne, ale trzeba trochę poszukać. Pozostałe komendy sterujące są w pdf HD44780. Mam nadzieję, że komuś się to przyda ;-)

Jacek