Wert aus COM Schnittstelle auslesen

[lkz633]

Hallo,

würde gerne einen Wert aus der Com Schnittstelle abfragen (Win98), habe dazu folgenden QBasic code:

Code:

10 OPEN <<COM1:1200,N,7,2,RS,CS,DS,CD>> AS#2
20 A$="D"
30 Print #2,A$
40 IN$=INPUT$(14,#2)
50 PRINT IN$
60 CLOSE #2
70 END

Wie übersetze ich das am schnellsten in Delphi, kenn mich damit leider überhaupt nicht aus.
Am besten ohne irgendwelche Komponenten oder DLL, ich denke z.B AsyncPro ist dafür deutlicher overkill.

Danke und Gruss
lkz633

[shmia]

Zitat von lkz633:

Wie übersetze ich das am schnellsten in Delphi, kenn mich damit leider überhaupt nicht aus.
Am besten ohne irgendwelche Komponenten oder DLL, ich denke z.B AsyncPro ist dafür deutlicher overkill.

Schnittstelle mit CreateFile öffnen.
Schnittstellenparameter (Baudrate,...) mit SetCommState setzen.
Mit WriteFile Daten schreiben.
Damit du nicht ganz auf Betriebssystemebene programmieren muss könntest du auch mit
TFileStream oder THandleStream arbeiten.