1:
2:
3:
4:
5:
6:
7:
8:
9:

{ Wichtiger Hinweis zur DLL-Speicherverwaltung: ShareMem muß sich in der
  ersten Unit der unit-Klausel der Bibliothek und des Projekts befinden (Projekt-
  Quelltext anzeigen), falls die DLL Prozeduren oder Funktionen exportiert, die
  Strings als Parameter oder Funktionsergebnisse übergeben. Das gilt für alle
  Strings, die von oder an die DLL übergeben werden -- sogar für diejenigen, die
  sich in Records und Klassen befinden. Sharemem ist die Schnittstellen-Unit zur
  Verwaltungs-DLL für gemeinsame Speicherzugriffe, BORLNDMM.DLL.
  Um die Verwendung von BORLNDMM.DLL zu vermeiden, können Sie String-
  Informationen als PChar- oder ShortString-Parameter übergeben. }					

1:
2:
3:

   function stxetx_open(n:integer):integer; stdcall; external 'scem32.dll';
   function stxetx_close:integer; stdcall; external 'scem32.dll';
   function stxetx_cmd(ein,aus: string):integer; stdcall; external 'scem32.dll';					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var uebertragen : string;
    tag : string;
begin
   // auf die Hardware zugreifen
   stxetx_open(1);
   tag := '           ';
   stxetx_cmd('4301s',tag);
   stxetx_close;
   uebertragen := copy(tag,6,10);					

1:
2:
3:

Alle Verwaltungsaufgaben der seriellen Schnittstelle und des Datenübertragungsprotokolls werden durch die DLL übernommen. Öffnen Sie die Schnittstelle einfach mit stxetx_open, senden Sie eine Anforderung durch stxetx_cmd und schließen Sie den Kommunikationsport mit stxetx_close.

Alle Daten werden transparent übertragen, d.h. Sie übergeben die Anforderungssequenz und empfangen die Antwort ohne Steuerzeichen und Checksumme! Dadurch sind Sie offen für evtl. Protokoll- und Funktionserweiterungen der Reader.