Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi SERIELLE SCHNITTSTELLE "Mühlespiel" (https://www.delphipraxis.net/10282-serielle-schnittstelle-muehlespiel.html)

Skorpio 15. Okt 2003 19:06

Re: SERIELLE SCHNITTSTELLE "Mühlespiel"
 
Danke Phoenix.............

Aber um ehrlich zu sein, die seite die du mir gegeben hast, hilft mir net grad weiter,
kannst du mir veraten was man da machen muss?!

und was heißt: "Die ComPort Library ist Async Pro" ??? :mrgreen:

wäre ist des sozusagen ein programm für delphi oder wie seh ich des????

oder wie muss man des anwenden?!

so viele neue fremdwörter, da dreht man ja durch! :roteyes:

MrKnogge 15. Okt 2003 19:57

Re: SERIELLE SCHNITTSTELLE "Mühlespiel"
 
Zitat:

Zitat von Skorpio
und was heißt: "Die ComPort Library ist Async Pro" ??? :mrgreen:

Hi Skorpio !

Kenn ich dich aus der Schule ?
Das Projekt kommt mir irgendwie bekannt vor :mrgreen:


Aber nun zu deiner Frage:
Die ComPort Library ist Async Pro ist meines wissens nach
Komponennte die dir beimÜbermitteln der Daten hilft, aber musst
du denn den ComPort benutzen ?

Vielleicht wäre hier der LPT einfacher, da
du hier 8 Datenleitungen benutzen kannst.


gruss
MrKnogge

Skorpio 17. Okt 2003 14:02

Re: SERIELLE SCHNITTSTELLE "Mühlespiel"
 
Ist die ansprechung der Parallelschnittstelle gleich wie die serielle??



gibt es da unterschiede? oder ähnlichkeiten. bzw auch eine komponenten. oder ähnliches?

Skorpio 20. Okt 2003 20:20

Re: SERIELLE SCHNITTSTELLE "Mühlespiel"
 
Nach langer überlegung ´habe ich in erwegung gezogen über die parallele schnitstelle die daten zu erfassen.

doch leider habe ich genauso wenig über parallele egfunden wie über serielle!!

gibt es da unterschiede?!?!

oder kann man die gleichen Kopponenten benutzen?
wenn ja, sind es dann andere befehle? oder sind sie identisch?


hat paraller schnittpunkt irgendwelche vorteile?


weiß des jemand genau?

Gruß Skorpio

mika 20. Okt 2003 20:42

Re: SERIELLE SCHNITTSTELLE "Mühlespiel"
 
also wenn du jeden pin einzeln setzen willst dann kannst du das unter win98 (unter nt/2000) geht das nur mit
nem treiber den status eines einzelnen pins mittels assembler abfragen.

erstmal die pins in einer übersicht
##########################################

DataRegister, 0, Out printerdata
StatusRegister, 1, IN printerstatus
ControlRegister, 2, Control printerfunctions.

(Dataregister (offset = 0))
----------------------------------
| 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
----------------------------------
..|...|...|...|...|...|...|...|_____ D0 Out.
..|...|...|...|...|...|...|________D1 Out.
..|...|...|...|...|...|__________ D2 Out.
..|...|...|...|...|____________ D3 Out.
..|...|...|...|_______________ D4 Out.
..|...|...|__________________D5 Out.
..|...|____________________ D6 Out.
..|_______________________D7 Out.



(Statusregister (offset = 1))
----------------------------------
| 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | (all read)
----------------------------------
..|...|...|...|...|____________ Error.
..|...|...|...|_______________ Select.
..|...|...|__________________PE.
..|...|____________________ ACK.
..|_______________________Busy (inverted)



(Controlregister (offset = 2))
----------------------------------
| 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | (OUT AND IN.)
----------------------------------
..........|...|...|...|...|...|
..........|...|...|...|...|...|
..........|...|...|...|...|...|____ Strobe (inverted.)
..........|...|...|...|...|_______ Auto Feed.
..........|...|...|...|_________ Init (inverted.)
..........|...|...|____________ SLCT IN (inverted.)
tech60....|...|_______________ IRQ Enable
tech60....|__________________ Direction, PS2 or later AT Devices, 0 = write, 1 = read
*)



asm geht dann ungefähr so
#############################
Delphi-Quellcode:
Const
  lptport        = $378;
  DataRegister   = $00;
  StateRegister  = $01;
  ControlRegister = $02;


    // lesen
    port := lptport + gewünschtes register
    asm
      mov dx, Port
      in al, dx
      Mov Value, AL
    end;
    Value beinhaltet den aktuellen wert deines registers

   
    // schreiben
    port := lptport + gewünschtes register
    value hat den wert den du in das register schreiben willst
    asm
      mov al, Value
      mov dx, Port
      out dx, al
    end;


wenn dir das ungefähr weiterhilft sag bescheid dann poste ich mal kompletten code hier.


mfg, mika

Skorpio 21. Okt 2003 15:37

Re: SERIELLE SCHNITTSTELLE "Mühlespiel"
 
Danke des sieht schon mal nach was aus,

werde es mal überarbeiten und gucken ob des mir weiter hilft.

aber sowas in dert art habe ich gesucht.

danke nochma.



Gruß Skorpio

mika 21. Okt 2003 16:17

Re: SERIELLE SCHNITTSTELLE "Mühlespiel"
 
alles klar,

viel spaß beim coden :)
wenn noch was ist einfach hier melden.


mfg, mika

Stephan N. 22. Okt 2003 10:53

Re: SERIELLE SCHNITTSTELLE "Mühlespiel"
 
hi

also mir hilft es weiter
könntest du bitte mal den ganzen Quelltext posten!

und von welchem typ muss port sein??

thx im voraus

Vale 22. Okt 2003 11:05

Re: SERIELLE SCHNITTSTELLE "Mühlespiel"
 
Hi mika...

des von vorhin war ja für parallel..oder?

Ich bräuchte das ganze für seriell...wie sieht es dann da aus?
Kannst des vielleicht au nochmal schreiben... :love:

Danke....

mika 22. Okt 2003 14:29

Re: SERIELLE SCHNITTSTELLE "Mühlespiel"
 
hi,

habe deine nachricht bekommen, ich schreib hier heute abend mal n kleines programm und häng den quelltext
dann hier rein.


bis heute abend, mika


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:26 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz