🚀 go-pugleaf

Hallo, da drau�en !

Ich habe ein Problem (Delphi 4), das sich auf eine C - DLL bezieht Namens
h8h6dll.dll.
Wenn ich die DLL, die zur ansteuerung eines mini Computers dient, auf meinem
Win98 System teste, klappt alles. Wenn ich dann aber mein Programm auf den
mini Computer mit Win95 kopiere und dort ausf�hre, bekomme ich den Fehler
'Gleitkomma�berlauf' als Feedback. Woran kann das liegen ? 16 Bit und 32 Bit
Integerwerte habe ich schon in betracht gezogen !

Hier die Ansteuerung f�r C:

exten "C" _declspec(dllexport) unsigned int GetMFTCradleState(void)

Beschreibung:
Diese Funktion liefert den Wert 0, wenn sich der mini Computer NICHT in
seiner
Ladestation (Cradle) befindet, den Wert 1, wenn er sich in der Ladestation
befindet
und 255 bei einem Fehler.

Hier mein Source:
----------------------------------------------------------------------------
-----------------------------------

{...}

var
  Form1: TForm1;

var
  online : Integer;
  error : Boolean;

implementation

{$R *.DFM}

function GetMFTCradleState : Char; stdcall; external 'h8h6dll';
{Externe Funktion}

{...}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if (Ord(GetMFTCradleState)  = 0) and (online <> 0) and (error = false) then
  begin
   online := 0;
   ListBox.Items.Add(TimeToStr(Now) + ' --> Das MFT befindet sich nicht im
Cradle.');
  end;
 if (Ord(GetMFTCradleState) = 1) and (online <> 1) and (error = false) then
  begin
   ListBox.Items.Add(TimeToStr(Now) + ' --> Das MFT befindet sich im
Cradle.');
   online := 1;
  end;
 if (Ord(GetMFTCradleState) = 255)  and (error = false) then
  begin
   ListBox.Items.Add(TimeToStr(Now) + ' --> Fehler: Kann Cradle nicht pr�fen
!');
   ListBox.Items.Add(TimeToStr(Now) + ' --> Bitte das Programm neu starten
!');
   error := true;
  end;
end;

{...}
----------------------------------------------------------------------------
-----------------------------------
Ich freue mich �ber jeden Tipp, der mir igendwie weiterhilft !

MfG
BrainBug