🚀 go-pugleaf

hi,

leider kann ich nichts zu deinem problem sagen, aber ein paar tips
bez�glich deines Posts.

obwohl das problem auf die meissten ng's vielleicht passt sehen deine
mit-poster cross-posting's nicht gerne.
also lieber vermeiden.

auch deine ausbeute w�rde sicherlich h�her ausfallen wenn du deine frage auf
englisch schreiben w�rdest.

sorry nochmal das ich dir bei deiner Frage nicht weiterhelfen kann.

gruss

Stephan-Frank Henry
----------------------------------
FHenry@NoSpamAdulo.de

"BrainBug" <BrainBug@haxen.de> schrieb im Newsbeitrag
news:97qcfq$n6t$05$1@news.t-online.com...
> 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
>
>