Dll

[dixithomas]

hallo!
ich bin neu hier.
wsa fehlt hier,in meiner Dll.

Procedure Delayus(i:Word) stdcall;

gruß thomas

[Sharky]

Hai dixithomas,

ersteinmal "Herzlich Willkommen in der Delphi-PRAXIS"

Leider kann ich weder mit dem Titel deiner Frage etwas anfagen (ändere diesen doch bitte in einen etwas aussagefähigeren),
noch mit deiner Frage an sich.

Du wirst schon etwas genauer schreiben müssen was Eu machen möchtest und wo Dein Problem liegt.

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Open-Source" nach "Sonstige Fragen zu Delphi" verschoben.
Hat nichts mit einem OpenSource-Projekt zu tun.

[sakura]

Zitat:

Zitat von dixithomas

wsa fehlt hier,in meiner Dll.

Mindestens ein Semikolon.

Code:

Procedure Delayus(i:Word)[color=#ff002d];[/color] stdcall;

...:cat:...

P.S.: Zum Titel hat Sharky ja schon etwas gesagt.

[dixithomas]

Code:

Procedure Delayus(i:Word); stdcall;
begin
[color=red]muß hier noch was rein?[/color]
end;

aus sehen soll es dann so.

TXD (1);
Delayus (20)
TXD (0);

[edit=sakura] [pre]-Tags gesetzt. Mfg, sakura[/edit]

[IcyT]

~sich wegschmeißt~

...sorry dixithomas, aber du bist echt die Härte!

[dixithomas]

wie meinst du das?

[sakura]

@IcyT: Solche Kommentare kannst Du Dir hier bitte sparen :warn:

@dixithomas:

- Ändere Deinen Titel :warn:
- Was soll die Proczedur den machen - ja, da muss zu 99,999% was rein.

...:cat:...

[IcyT]

Also komm Sakura, du weißt genauso gut wie ich, dass seine Frage totaler Schwachsinn ist!

[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]