HI,
ich möchte gerne einen AD-Wandler am COM Port betreiben (TLC 549), jedoch muss ich dafür jeden einzelnen Pin des Comportes ansteuern können. Also von High auf Low setzen und einen auslesen können.
Wie mache ich das unter Delphi. Habe damit bislang nur herumgespielt. Unter Pascal für DOS láuft ein Programm schon. Aber Delphi???
Kai
Hi,
am einfachsten mit serialNG! Einer Komponente zum Datenaustausch über den ComPort. (www.domis.de) Problematisch ist allerdings das du damit soweit ich weiß nicht alle Pins nutzen kannst. Ich hab für immerhin 5 (+1 Pin Masse) von 9 die entsprechenden Befehle gefunden. Wie gesagt eigentlich ist die Komponente zum Datenaustausch und nicht zum einfachen an und ausknippsen von Pins.
Ansonsten kann ich dir noch mit Quelltext weiterhelfen. Funzt allerdings wahrscheinlich nicht unter WinXp sondern nur unter 98.
Außerdem solltest du den besser selber verstehen, is nämlich leider nicht von mir (Alles aus verschiedenen Foren zusammengekratzt)
Nur bei I. kann ich dir noch n bisschen helfen (dazu gibts von mir auch ne halbfunktionierende Komponente) II. hab ich noch nich mal getestet.
________________________________________________________________
I.
function InPort (PortAddr: Word): Byte;
{ Funktion, mit der direkt von den Port-Adressen unter Win32 ein Byte
eingelesen werden kann }
{$IFDEF WIN32}
assembler; stdcall;
asm
mov dx,PortAddr
in al,dx
end;
{$ELSE}
begin
Result:=Port(PortAddr);
end;
{$ENDIF}
procedure OutPort(PortAddr: Word; DataByte: Byte);
{ Prozedur, mit der ein Byte direkt auf eine Port-Adresse unter Win32
ausgegeben werden kann }
{$IFDEF WIN32}
assembler; stdcall;
asm
mov al,DataByte
mov dx,PortAddr
out dx,al
end;
{$ELSE}
begin
Port(PortAddr):=DataByte;
end;
{$ENDIF}
procedure Delay(ms : DWord);
{ Prozedur, die den alten Pascal-Delay-Befehl wieder ermöglicht }
var
TheTime : DWord;
begin
TheTime := GetTickCount + ms;
while GetTickCount 8) and(channel
Hi,
oh, vielen Dank für diese ganzen Programmbeispiele.
Aber ich nutze WinXP. Kann ich dann diese Quellcodes (besonders für die LPT Schnittstelle) auch so darunter nutzen?
Gruß
Kai
Tja wenn ich dass wüßte.
Also das 1. Bsp soll angeblich nicht funktionieren. (hab ich aber noch nie probiert)
Das mit dem LTP hab ich wie gesagt auch noch nie ausprobiert, da müsstest du s einfach testen. Das einzige was sicher unter XP läuft ist SerialNG.
Michael