bool Variable in DLL Datei verursacht Fehler!

[Chris4712]

Hallo!

Ich habe eine Funktion geschrieben, die ich in mehreren Programmen benötige.
Also wollte ich diese Funktion in einer DLL Datei auslagern. Die Funktion an sich funktioniert auch im Programm.

Wenn ich aber versuche diese in einer DLL Datei zum laufen zu bringen, meckert der Compiler in Zeile 5 ([Fehler] CamInitialization.dpr(##): Undefinierter Bezeichner: 'bool')

Delphi-Quellcode:

function CamInit(): integer; stdcall;
     var status_x, status_y: integer;     // Status des Vorgangs
     var MAX: array['X'..'Y'] of integer; // Beinhaltet nachher die komplette X, Y größe
     var anz: integer;                    // Zählt die Anzahl der Schleifen- Duchläufe
     var check_x, check_y: bool;          // Da diese Funktion schneller als die Logig ist, muss verhindert werden dass zwei mal hinter einander geprüft wird
begin
     // Variablen initialisieren

Was habe ich vergessen, bzw. was mache ich falsch??
Ich muss allerdings dazu sagen, dass ich bis jetzt noch keine DLL Datei mit Bool- Variablen gesehen habe.

Gruß

Christian

[jfheins]

Boolean

[Chris4712]

Vielen dank!

War mein Fehler!!

Gruß

Christian

[Oxmyx]

Binde einfach Windows.pas ein, dann hast du auch den Variablentyp BOOL.

[Robert Marquardt]

['X'..'Y'] ist aber wirklich merkwuerdig.
Addressierst du die Achsen hier wirklich mit Buchstaben?

[Chris4712]

Zitat von Robert Marquardt:

['X'..'Y'] ist aber wirklich merkwuerdig.
Addressierst du die Achsen hier wirklich mit Buchstaben?

Ja, mache ich. So komme ich wenigstens nicht durcheinander.

Ich habe auch ein Array von 2 bis 9. Weil das genau die Pins am LPT Port sind.

Ist auf die Dauer gesehen einfacher.

Noch mal ne Frage zu ner DLL Datei bzw. Schleife.
Ich hab euch ja gesagt das ich ne While- Schleife in einer DLL Datei habe.
Aber diese While- Schleife ist zu schnell.
Vorher hatte ich sleep(1) mit eingebaut. Dass geht nun natürlich nicht mehr.

Was kann ich als Alternative nehmen??

Gruß

Christian

[Die Muhkuh]

delay

[Chris4712]

Leider geht delay nicht in der DLL

Delphi-Quellcode:

procedure Delay(msecs:integer);
var
  FirstTickCount:longint;
begin
  FirstTickCount:=GetTickCount;
  repeat
    Application.ProcessMessages; {allowing access to other controls, etc.}
  until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;

Fehler:
[Fehler] CamInitialization.dpr(56): Undefinierter Bezeichner: 'GetTickCount'
[Fehler] CamInitialization.dpr(56): Undefinierter Bezeichner: 'GetTickCount'
[Fehler] CamInitialization.dpr(58): Operator oder Semikolon fehlt

[Die Muhkuh]

Hi,

du musst noch die Unit "Windows" einbinden.

[Chris4712]

Super, dass hat geklappt!!!

Musste aber
Application.ProcessMessages; rausnehmen!