Deutsches Lazarusforum

hmm, könnte man da sowas wie parapin oder so nehmen?

ja, diesen kompletten block:
{$IFDEF Linux}
function ioperm(from: Cardinal; num: Cardinal; turn_on: Integer): Integer; cdecl; external 'libc';

function fpIOperm(From: Cardinal; Num: Cardinal; Value: cint):cint;
begin end;

procedure WritePortB(Port: LongInt; Value: Byte);
begin end;
{$ENDIF ...

ok, ich habe jetzt die komplette ifdef linux sasche rausgenommen, compilierenn tut er es trotzdem ohne probleme, auf 4,7 volt ist der pin 2 aber immer noch. kann man den lpt noch anderweitig kontrollieren ?

klar kein problem, das habe ich direkt unter implementation stehen:
Ich muss mich nocheinmal korregieren: auf pin 2 liegen immer noch 4,7 Volt an obwohl ich den pin sage das er auf low setzen soll... :|


{$IFDEF Linux}
function ioperm(from: Cardinal; num: Cardinal; turn_on: Integer): Integer ...

dein einwand ist berechtigt und auch richtig, da ich das ganze aber für ein programm nutzen will das zeiten auf wettkampfbahnen stoppt, und das ganze elektronisch ablaufen soll, bastel ich dafür einen pc und da ist ein LPT dran, das programm ist sozusagen auch nur für diesen pc gedacht, es ist ...

ok, er setzt jetze keine spannung mehr auf den lpt so wie es sein sollte, als ich allerdings prüfen wollte ob ich nun auf pin 11 ein signal bekomme hat der mir mein programm zum abschmieren gebracht, das hatte ich dann danach ausprobiert:
if (WritePortB($379,%10000000) and %10000000) = %10000000 ...

3) siehe unit x86, function fpioperm. Das ist auch portabel nach 64-bit und FreeBSD.
kannst du mir das näher erklären?
wie setze ich diese fpioperm ein?

im bios war der menu punkt "bi-directional" eingestellt, deweiteren kann ich noch die punkte:

Normal Mode <== Ist momentan EIngestellt
Bi ...

Hallo,
danke für deine antwort bernd, könntest du mir bitte näher erklären wie das mit der if funktioniert also was das
(port[$379] and %10000000) = %10000000
bedeutet? wenn ich in der if ein label auf caption:='high'; setze macht er das schon ohne das ich pin 2 und 11 oder 10 verbinde...

leider ...

ok, ich habe die unit ports fälschlicherweise im project1.lpr unter uses eingetragen, nun läuft das port kommando,
eine frage hätte ich noch, wenn ich nun abfragen mit if machen will ob auf dem pin 10 oder 11 (input) das signal von pin 2 ankommt, wie mache ich das da? bzw wie lege ich ein signal auf ...

also, nachdem nu das wochenende rum ist, habe ich mir die ubuntu version mit vorinstalliertem lazarus gezogen, libc funktioniert jetzt soweit, er kann die unit also laden.

kommen wir weiter:

{$IFDEF Linux}
i := ioperm($220, 8, 1);
port[$220] := $00;
label6.Caption := 'ioperm: ' + IntToStr(i ...

ok, dann versuch ich mal die svn version zu installieren...

hmm, komisch, ich habe hier die 32 bit version, aber warum funktioniert das nicht?

das habe ich, das ist ja auch oben im quelltext zu sehen, nur geht es nicht, lazarus hort auf zu compilieren und bricht mit der fehlermeldung ab dads er die glibc nicht findet.

edit:

ich habe es nocheinmal mit der unit libc probiert:

Versuche ich ja, aber ich weis nicht warum es nicht klappt

Oder wie meinst du das sonnst? muss ich die ioperm noch irgendwo mit einbinden oder wie soll das funktionieren?

ein bsp wäre schön

Hallo,
ich möchte auf diverse LPT Pins zugreifen, unter Lazarus / Hardwareaccess ist ein weg beschrieben den ich auch probiert habe, allerdings findet er dann erstmal die unit glibc nicht. daraufhin habe ich diese versucht raus zu nehmen und habe versucht das ganze zu compilieren, da kam dann der ...