Dll

[dixithomas]

ich möchte einen comport ansteuern,wo ein schieberegister dran ist.
in meinen porgramm ist es so.

Delphi-Quellcode:

procedure Austausch;
var Stelle, StelleAD, n, m  : Integer;
begin
  RTS (1);               { Strobe an }
  Delayus(20);           { Verzögerung }
  RTS (0);               { Strobe aus }
  Stelle := 1;
  StelleAD := 128;
  Din := 0;
  Ain := 0;
  for n:=1 to 8 do begin
    if ((Dout AND Stelle) > 0) then
      TXD (1)            { Daten ausgeben }
      else TXD (0);
    if DCD = 1           { Daten lesen }
       then Din := Din + Stelle;
    if DSR = 1 then      { A/D lesen }
       Ain := Ain + StelleAD;
    DTR (1);             { Clock an }
  Delayus(20);           { Verzögerung }
    DTR (0);             { Clock aus }
    Stelle := Stelle * 2;
    StelleAD := StelleAD div 2;
  end;
  RTS (1);               { Strobe an }
  Delayus(20);           { Verzögerung }
  RTS (0);               { Strobe aus }
end;

das Delayus soll in der Dll stehen.

[edit=sakura] [delphi]-Tags gesetzt. BITTE IN ZUKUNFT SELBST MACHEN! Mfg, sakura[/edit]