Forum: Win32/Win64 API (native code)
Delphi
by mikro-ViiV,
6. Aug 2008
Zu früh gefreut.
Ich kann zwar jetzt ohne Probleme das Datenregister setzen. Aber ich kann das Statusregister und Kontrollregister nicht ändern. Ich muss aber Bit 5 des Kontrollregisters auf High setzen, sonst kann ich den Port nicht bidirektional betreiben. :wall:
Ich habs mit der INPOUT.DLL versucht, aber damit kann ich anscheint nur die Datenregister beschreiben. Das Kontrollregister...
Forum: Win32/Win64 API (native code)
Delphi
by mikro-ViiV,
6. Aug 2008
Welcher Link?
Die Steuerregister und die Kontrollregister sind LOW-aktiv.
Und nach dem Schaltplan hier sollten die Datenleitungen Als Input High-aktiv. Das müsste stimmen, denn die Ausgänge sing ja auch High-aktiv. Wenn ich das Datenregister auf 255 setze und es dann auslese erhalte ich wieder 255. Muss also High-aktiv sein.
Schutzwiderstände hab ich zur Zeit noch keine...
Forum: Win32/Win64 API (native code)
Delphi
by mikro-ViiV,
6. Aug 2008
OK, mit der INPOUT32.DLL hat es jetzt funktioniert.
Ich habe mal versuchsweise meine Relaiskarte rangehängt.
Die Ausgabe Über die Datenleitungen funktioniert einwandfrei.
Wie muss ich es denn mit der Eingabe machen? Sind die Eingänge HIGH-aktiv oder LOW-aktiv. Muss ich also vor dem Lesen alle Datenleitungen vorher auf LOW oder auf HIGH setzen?
Ich will nix kaputtmachen, deshalb frage ich...
Forum: Win32/Win64 API (native code)
Delphi
by mikro-ViiV,
6. Aug 2008
Trotzdem vielen Dank für deine Bemühungen.
Ich möchte die parallele Schnittstelle verwenden, um die Bilddaten einer Gameboy-Kamera, die ich mit einem Mikrocontroller auslese an den PC zu senden um mir dann dort das Bild anzeigen zu lassen.
Mein Ziel sind mehrere (>1) Bilder pro Sekunde. Da es sich pro Bild um 16KByte handelt ist die serielle Schnittstelle leider zu langsam.
Deshalb wollte...
Forum: Win32/Win64 API (native code)
Delphi
by mikro-ViiV,
6. Aug 2008
Leider erhalte ich auch hier die gleiche Fehlermeldung.
1. Windows XP (Mediacenter Edition)
2. Die Portadresse stimmt auf jeden Fall.
Mit PortWordIn ist es genau das selbe.
Hier noch mal die Fehlermeldung und ein Screenshot des Debuggers. Leider kann ich damit so gar nichts anfangen.
Forum: Win32/Win64 API (native code)
Delphi
by mikro-ViiV,
6. Aug 2008
Ich habe jetzt function IsDriverInstalled : Boolean; stdcall; external 'io.dll';
hinzugefügt, sowie folgende Veränderung vorgenommen:
procedure TForm1.Button2Click(Sender: TObject);
begin
if IsDriverInstalled=true then
form1.Edit1.Text:=inttostr(Portin($378));
end;
Ich erhalte aber immer noch den selben Fehler. :(