IrDA under Windows 2000

Hvis det er en extern ir og den er connected via com port, har du fundet det rette component og det handler så måske bare om nogle priviliges.

Hvis det er en bærbar med indbygget ir er straks lidt svære. Jeg har dog selv haft held med at læse bytes bare vedhjælp af ting som PortIO componenter.

Det er en bærbar med indbygget ir. Kan du nævne en spicifik komponent du har fået det til at virke med??

bruger bare io.dll.

Kom med din mail så kan jeg sende dig mit gamle projekt, Men altså du skal ikke forvente bare at kunne læse allemulige sjove ting, du får kun de forskellige byte værdier :)


Her er koden hvis du henter io.dll:


...

function PortIn(Port: Word): Byte; stdcall; external 'io.dll';

var
  Form1            : TForm1;
  DataRead          : Byte;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  DataRead := PortIn(StrToInt('$' + Edit2.Text));
  Label2.Caption := inttostr(DataRead);
  if Label2.Caption = '0' then
    shape1.Brush.Color := clred
  else
    shape1.Brush.Color := cllime;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := true;
end;

end.

Min Ir port lå på "2F8"

Min mail er mrgreen@sol.dk takker mange gange!!

Hvordan finder man adressen på IR porten?

Du kan se adressen under enhedshåndtering.

Jeg får en IO.sys fejl når jeg kører programmet, hvad kan det være?

Og jeg har osse lige crashet windows...

hmm ved jeg ikke lige hvorfor, måske du skulle prøve at hente driver linx eller hvad det nu er den hedder, den gør så du kan skrive til porten under nt, det kan godt ske at den io.dll kræver det. Har bare ikke selv problemer med det

http://www.driverlinx.com/ftp/unsupported/port95nt.exe

prøv lige at installere den engang

hvaa hjalp det på det?

Hmmm Jeg har fundet en virtuel com port, som gør at IR kører som com4. Og så er det bare at programmere til com porten, men ellers mange tak for hjælpen

http://www.ircomm2k.de/

Det er lykkes at køre med 2 hyperterminaler via IR.

Så jeg lukker spørgsmålet, men tak for svarene....