[Delphi] 15 button compoort control

[Biglines]

Ik ben bezig met een projectje (zie sig) waarvoor ik een programma wil schrijven dat uit de compoort een binaire waarde uitleest die wordt gegeven uit buttons volgens het volgende schema:

http://www.biglines.nl/mp3webradio/15.gif

ik heb meerdere topics doorgebladerd, maar ik heb nog geen enkel voorbeeld gevonden wat ik aan de praat krijg.

het is dus de bedoeling dat ik om de zoveel tijd (bijvoorbeeld elke 10 ms) check of er een button (=knop in schema) ingedrukt is.

weet iemand hoe ik dit moet doen in delphi 7?

edit:
ff bij button geschreven dat het ging om een knopje die op de compoort is aangesloten

[ Voor 11% gewijzigd door Biglines op 04-07-2004 13:18 ]

[NMe]

De onclick methode van de button?

[Biglines]

hmm, mss niet helemaal duidelijk, maar als je het helemaal had gelezen had je gezien dat het ging om de button in dat schema

[NMe]

Ik ben niet erg sterk in het lezen van stroomschema's.

Misschien dat je hier wat aan hebt: http://www.delphipages.co...read.cfm?ID=37434&G=37425

_{Verwijzen naar je sig is ook niet erg handig, mensen kunnen sigs uit zetten geloof ik.}

[_Thanatos_]

Allereerst is het niet een kwestie van of het in Delphi kan, maar of het in Windows kan . Je zal een component à la WinIO nodig hebben om de COM-poort rechtstreeks te kunnen besturen.

Ten tweede zou ik absoluut niet elke 10ms kaan kijken naar die poort, dat kost ontzettend veel resources en het is ook gewoon niet nodig. Met WaitForSingleObject kun je Windows gewoon een event laten afvuren als de COM-poort iets doet.

[Biglines]

dit programma (waar ook het schema vandaan komt) maakt ook geen gebruik van een andere driver (tenzij deze in zijn exe zit)

NMe84, ik zal dat een bekijken
en het is niet egt nodig voor mijn vraag om naar mn sig te kijken, is alleen wat achtergrond info

[Verwijderd]

Zie dit topic
Winamp Knopje in kast

En website http://www.bkonings.net/

(heb ik ooit nog aan meegewerkt)

[Biglines]

Verwijderd schreef op 05 juli 2004 @ 12:50:
Zie dit topic
Winamp Knopje in kast

En website http://www.bkonings.net/

(heb ik ooit nog aan meegewerkt)

De downloadlinks op beide sites werken niet.. heb jij toevallig de source nog? zoja, mail ff naar files [at] biglines.nl

[Biglines]

Met behulp van Bas Konings ben ik erachter gekomen dat ik het gewoon zonder toevoegingen kan doen vanuit delphi, zolang ik m in compatibiliteits modus draai. (en hij gaat later toch op een windows 98 se systeempje draaien)

Hij heeft me de (onder andere) de volgende code gegeven:

code:

De COM Poort gebruiken in delphi:


    function ReadPortB
    ( wPort : Word ) : Byte;
    begin
    asm
    mov dx, wPort
    in al, dx
    mov result, al
    end;
    end;


    procedure WritePortB
    ( wPort : Word; bValue : Byte );
    begin
    asm
    mov dx, wPort
    mov al, bValue
    out dx, al
    end;
    end;


    var data :integer;
    
    //Inlezen van de poort:
    data:=ReadPortB(ComPort+4);
 
    //schrijven naar poort:
    WritePortB(ComPort+4,3);


Voor ComPort invullen:
    com1 1016
    com2 760
    com3 1000
    com4 744


Hardware:

Male:
------------
\ 1 2 3 4 5 /
 \ 6 7 8 9 /
  ---------

1.........DCD (Data Carrier Detect)
2.........RxD (Receive Data)
3.........TxD (Transmit Data)
4.........DTR (Data Terminal Ready)
5.........GND (Signal Ground)
6.........DSR (Data Set Ready)
7.........RTS (Request To Send)
8.........CTS (Clear To Send)
9.........RI  (Ring Indicator)


Schakelaar 1: cts........../ ......... dtr  pin: 8 -> 4
Schakelaar 2: dsr........../ ......... dtr  pin: 6 -> 4
Schakelaar 3: ri.........../ ......... dtr  pin: 9 -> 4
Schakelaar 4: dcd........../ ......... dtr  pin: 1 -> 4


Data heeft een waarde tussen 0 en 240

schakelaar 1 waarde: 16
schakelaar 2 waarde: 32
schakelaar 3 waarde: 64
schakelaar 4 waarde: 128

Bij indrukken van meerdere schakelaars 
moet er worden opgeteld (b.v. Schakelaar 1 en 2 = 16+32=48

[Creepy]

En als je dit dus echt wilt laten werken onder Windows NT/2000/XP zonder compatibiliteit modus ongein dan zul je dus echt een library zoals Direct PortI/O o.i.d. nodig hebben zoals _Thanatos_ al gezegd had.

Overigens is jou oplossing, plus de driver oplossing al enige malen besproken hier in P&W. Met de search had je ze zeker kunnen vinden. Laat staan dat google jou code ook vrij snel ophoest

[Biglines]

ik heb gezocht, maar dat werkte allemaal niet

ik heb m nu ff getest, hij werkt niet

[farlane]

Volgens mij zijn alle pinnen die gebruikt worden met standaard windows funties uit te lezen. Kijk eens naar WaitCommEvent in de MSDN