Serielle Schnitstelle programmieren

Alter Sack · 27. Januar 2010, 16:37

Hallo zusammen,

nach 10 Jahren Abstinenz will ich mal wieder etwas in Pascal programmieren.

Ich will einen Ascii-Code über die serielle Schnittstelle ausgeben und auf Antwort warten. (Es handelt sich hierbei um einen Schrittmotor-Controller iSMIF-USB.)
Ich finde gerade meine Pascal-Bücher nicht und kann nicht nachschlagen, wie das denn ging.

Hat jemand ein Beispielcode wie man die Serielle Schnittstelle konfiguriert und zum Datenaustauch benutzt? Im Internet hab ich keine brauchbare Antwort auf diese Frage gefunden.

Kann mir jemand helfen.

Ich verwende Boland-Pascal 7.

Ich bedanke mich schon mal im Vorraus für eure Mühe.

Grüße
Alter Sack

wasawasa · 27. Januar 2010, 17:34

Jetzt muss ich auch mal mein letztes Pascal-Wissen zusammenkrazen.

Ich glaube aber, dass diese Funktionen sehr von dem verwendeten Dialekt abhängen.
Was ist es denn? Tubo-Pascal? Version?

Ach ja, das Betriebssystem ist auch noch wichtig, da ab einer bestimmten Version der direkte Zugriff auf Ports nicht mehr geht.
War das schon bei Win98? Man benötigt also Kerneltreiber.
Ich hab so was mal geschrieben um ein POCSAC-Modem anzubinden.
Werde mal danach suchen.

Langsam fällt es mir wieder ein.
Es gab damals bei VB6 ein Steuerelement, welches den Zugriff ermöglichte.

Das hab ich erst mal gefunden:

Quellcode

function OpenCOMPort: Boolean;
var
DeviceName: array[0..80] of Char;
ComFile: THandle;
begin
{ First step is to open the communications device for read/write.
This is achieved using the Win32 'CreateFile' function.
If it fails, the function returns false.
Wir versuchen, COM1 zu öffnen.
Sollte dies fehlschlagen, gibt die Funktion false zurück.
}
StrPCopy(DeviceName, 'COM1:');
ComFile := CreateFile(DeviceName,
GENERIC_READ or GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if ComFile = INVALID_HANDLE_VALUE then
Result := False
else
Result := True;
end;
function SetupCOMPort: Boolean;
const
RxBufferSize = 256;
TxBufferSize = 256;
var
DCB: TDCB;
Config: string;
CommTimeouts: TCommTimeouts;
begin
{ We assume that the setup to configure the setup works fine.
Otherwise the function returns false.
wir gehen davon aus das das Einstellen des COM Ports funktioniert.
sollte dies fehlschlagen wird der Rückgabewert auf "FALSE" gesetzt.
}
Result := True;
if not SetupComm(ComFile, RxBufferSize, TxBufferSize) then
Result := False;
if not GetCommState(ComFile, DCB) then
Result := False;
// define the baudrate, parity,...
// hier die Baudrate, Parität usw. konfigurieren
Config := 'baud=9600 parity=n data=8 stop=1';
if not BuildCommDCB(@Config[1], DCB) then
Result := False;
if not SetCommState(ComFile, DCB) then
Result := False;
with CommTimeouts do
begin
ReadIntervalTimeout := 0;
ReadTotalTimeoutMultiplier := 0;
ReadTotalTimeoutConstant := 1000;
WriteTotalTimeoutMultiplier := 0;
WriteTotalTimeoutConstant := 1000;
end;
if not SetCommTimeouts(ComFile, CommTimeouts) then
Result := False;
end;
{
The following is an example of using the 'WriteFile' function
to write data to the serial port.
Folgendes Beispiel verwendet die 'WriteFile' Funktion, um Daten
auf den seriellen Port zu schreiben.
}
procedure SendText(s: string);
var
BytesWritten: DWORD;
begin
{
Add a word-wrap (#13 + #10) to the string
An den übergebenen String einen Zeilenumbruch (#13 + #10) hängen
}
s := s + #13 + #10;
WriteFile(ComFile, s[1], Length(s), BytesWritten, nil);
end;
{
The following is an example of using the 'ReadFile' function to read
data from the serial port.
Folgendes Beispiel verwendet die 'ReadFile' Funktion, um Daten
vom seriellen Port zu lesen.
}
procedure ReadText: string;
var
d: array[1..80] of Char;
s: string;
BytesRead, i: Integer;
begin
Result := '';
if not ReadFile(ComFile, d, SizeOf(d), BytesRead, nil) then
begin
{ Raise an exception }
end;
s := '';
for i := 1 to BytesRead do s := s + d[I];
Result := s;
end;
procedure CloseCOMPort;
begin
// finally close the COM Port!
// nicht vergessen den COM Port wieder zu schliessen!
CloseHandle(ComFile);
end;

Alles anzeigen

Sorry wenn ich mir inzwichen schon selbst antworte ... aber das ist ein anderer Gedankengang als oben.

In der Zeit als Borland Pascal "in" war, konnte man noch einfacher auf Speicerbereiche in Windows zugreifen. Daher gehen die meisten Beispiele direkt auf die Portadressen. Ich habs nicht ausprobiert, aber ich denke das geht nicht mehr.
Darum meine Idee mit einer DLL. Nun habe ich gegoogelt mit "dll rs232 windows".

Geek Hideout --> IO.DLL
MSR mit Word und Excel
Die ELEXS.DLL
Serial Communications in Win32
Serial Comms with Windows API by Riaan Aspeling

Hab die Links nach Relevanz für Pascal sortiert (nach bestem Wissen und Gewissen).

Alter Sack · 29. Januar 2010, 09:22

Vielen Dank wasawasa,

jetzt versuche ich mich durchzuarbeiten.

Sehr freundlich von dir so viel Zeit zu investieren, um mir zu helfen.

Gruß
Alter Sack

Quellcode

Teilen