Announcement

21.03.2001, 14:42

Beispiel funktioniert nur mit Win9x nich mit WinNT.

#pragma inline

Byte __fastcall inp(ULONG p);
void __fastcall outp(ULONG p,Byte d);

byte __fastcall inp(ULONG p)
{
Word x;

x=(Word)p;

asm {
mov dx,x
in al,dx
}

return _AL;
}

void __fastcall outp(ULONG p,Byte d)
{
Word x;

x=(Word)p;

asm {
mov al,d
mov dx,x
out dx,al
}
}

outp(pAdresse,Wert);
Wert=inp(pAdresse)

**gppaul** · 31.03.2001, 17:16

http://www.lezim.de/main/it/digit/4bitwerk/index.htm

da ist es in ANSI C

aber ist fast das gleiche was du brauchst

Mfg Lezim G

**IngoB** · 02.04.2001, 16:02

Hmm...? Ich programmiere mit BC++B 5.0. Ich m�chte damit eine Windows Anwendung schreiben, mit der ich dann einen kleinen Roboter steuern kann.
 Die Befehle wie peek, inport ... usw. scheint BC++B 5.0 nicht zu kennen.
 Und als Windows Anwendung denke ich m��te es mit CreatFile gehen, aber ich wei� nicht wie...
 
Mit dem Assembler Code, funktioniert das auch irgendwie nicht richtig, wenn ich die Datei compeliere, ohne die Funktionen aufzurufen, sagt er mir immer "Tasm Fehler: Extra characters on line"
 
 
W�re nett, wenn mir jemand ein kleines lauff�higes Beispiel mit Quellcode schicken k�nnte... An : <a href="mailto:[email protected]">[email protected]</a>
</p&gt

**Gebhardt Karl** · 06.04.2001, 18:29

Hallo

Test doch die Komponenten von Erik Salja

ca. 30 Dollar incl. Source in Delphi
(Kompilier- und Lauff�hig unter BCB 5!!!)

Hab Adresse momentan nicht da!

[email protected]

**IngoB** · 29.04.2001, 14:06

Hab neulich auch geh�rt, dass es eine ActiveX Komponente f�r sowas geben soll, hab sie auch gefunden (Mscomm32.ocx), aber wenn ich versuche die Componente zu importieren, will BCB diese immer compelieren und spuckt dabei aber einen Fehler aus.
 
Mache ich da was verkehrt, oder wie kann man ActiveX Komponenten verwenden???
 
MfG Ingo
 
PS: Wenn ich mir eine Komponente kaufen wollen w�rde, h�tte ich das schon l�ngst getan. Nur denke ich mir,so schwer kann das doch nicht sein, sich selber daf�r etwas zu schreiben. ?:-

**RLange** · 11.05.2001, 07:41

<body bgcolor=#FFFFFF text=#000000>
<code>
//Das obige Beispiel sollte aber  funktionieren. 
 
 
#include <vcl.h> 
#pragma hdrstop 
 
#include "Unit1.h" 
 
#pragma inline 
 
 
Byte __fastcall inp(ULONG p); 
void __fastcall outp(ULONG p,Byte d); 
 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
        :& nbsp;TForm(Owner) 
{ 
} 
 
byte __fastcall inp(ULONG p) 
{ 
 Word x; 
 
 x=(Word)p; 
 asm 
 { 
  mov dx,x 
  in al,dx 
 } 
 
 return _AL; 
} 
 
void __fastcall outp(ULONG p,Byte d) 
{ 
 Word x; 
 
 x=(Word)p; 
 asm 
 { 
  mov al,d 
  mov dx,x 
  out dx,al 
 } 
} 
 
void __fastcall TForm1::Button1Click(TObject *Send er) 
{ 
 Byte Wert; 
 Word pAdresse; 
 
 Wert=0xAA; 
 pAdresse=0x378;       <f ont color=#5A5A5A>// LPT1 
 outp(pAdresse,Wert);  // Port schreiben 
 Wert=inp(pAdresse);   <fon t color=#5A5A5A>// Port lesen 
 Label1->Caption=Wert; 
} 
//--------------------------------------------------------------------------- 
</code>
</body&gt

11.05.2001, 08:07

Hallo,

Unter http://www.sstnet.com/ gibt es 'Windows 95/NT Port I/O Driver' f�r Win9x u. WinNT zum downloaden, nicht immer sofort bezahlen

Announcement

Ansteuerung eines Pins des Parallel / oder Seriell Ports

Ansteuerung eines Pins des Parallel / oder Seriell Ports

Comment

Comment

Comment

Comment

Comment

Comment

Comment