Wie spricht man unter Delphi 6 die Seriellen Ports an.
Öffen Lesen Schreiben und Schließen der COMx
Johannes
Hallo,
dazu gibt es z.B. die Komponente „Comport“ (Written by Dejan Crnila).
Die findest Du in diversen Delphi-Achiven.
Die ist recht einfach und zuverlässig.
Gruß Uwi
Wie spricht man unter Delphi 6 die Seriellen Ports an.
Öffen Lesen Schreiben und Schließen der COMx
Johannes
Hallo,
dazu gibt es z.B. die Komponente „Comport“ (Written by Dejan
Crnila).
Die findest Du in diversen Delphi-Achiven.
Die ist recht einfach und zuverlässig.
Gruß Uwi
Entschuldige, aber die habe ich, ich suche eine kurze Instruktion wie ich diese Komponente verwenden soll. Die Beispiele Demos dabei sind leider völlig undurchschauber.
Ich habe noch win98 und wollte später auf Linux Kylix umschwenken.
Johannes
Ich habe mir Delphi6 umsonst bei Borland geladen
und wollte mal so ein wenig probieren.
Wie spricht man unter Delphi 6 die Seriellen Ports an.
Öffen Lesen Schreiben und Schließen der COMx
Johannes
ganz simpel dank edh2000
hi,
Ja ich hatte selbst mal das Problem, lange gesucht, nichts gefunden.
Dann stieß ich auf einen Eintrag im Edh2000. (sollte jeder Delphiprogrammierer haben, weil enthält viele wertvolle Tipss und Tricks rund um Delphi, einfach bei google mal edh2000 eingeben.)
Der Eintrag war folgender:
// in eine Adresse schreiben
procedure Out32(PortAddress:smallint;Value:smallint);stdcall;export;
var
ByteValue:Byte;
begin
ByteValue:=Byte(Value);
asm
push dx
mov dx,PortAddress
mov al, ByteValue
out dx,al
pop dx
end;
end;
// Von einer Adresse lesen
function Inp32(PortAddress:smallint):smallint;stdcall;export;
var
ByteValue:byte;
begin
asm
push dx
mov dx, PortAddress
in al,dx
mov ByteValue,al
pop dx
end;
Inp32:=smallint(ByteValue) and $00FF;
end;
Als Com1 sollteste hier für Portadress die $378 (mit $) eingeben.
Falls Du einen anderen Eingang nutzen willst mußte mal mit der $378 ein wenig experimentieren, indem du andere Zahlen nimmst.
Ok hoffe ich konnte dir helfen.
Hallo leider nicht weil hier das ist Parallel $0378 u.s.w
ich brauche Seriell
Johannes
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]