Datentyp single (Delphi) in Datentyp Gleitkomma (S7) wandeln

[Delphiuser1987]

Hallo, ich bin Anfänger und habe folgendes Problem.
Ich muss den Datentyp single (4Byte) in den Datentyp Gleitkomma (4Byte) (Simatic Siemens S7) übetragen.
Denn wenn ich in Delphi einen single Wert einlese (z.B. 1,6) dann kommt auf der SPS Seite (Datentyp Gleitkomma) komplett was anderes heraus.
Jetzt wollte ich wissen wie ich das in Delphi machen muss dass die beiden Typen übereinstimmen.

Danke für eure Hilfe :)

[mkinzler]

Was kommt den heraus?

[Bernhard Geyer]

Wie werden die Daten übertragen?

ich vermute mal das du von Big Endian auf Little Endian wandeln musst um die Richtige Byte-Reihenfolge zu haben.

[Delphiuser1987]

-8.7546383e^23 kommt heraus, also völliger quatsch

[Delphiuser1987]

die daten übetrage ich via profibus
habe eine hilscher karte in delphi eingebunden.
vom delphi programm übetrage ich dann daten zur sps und anderst herum ebenfalls

[Delphiuser1987]

wie mache ich das mit dem wandeln ?????

[gammatester]

Zitat:

Zitat von Delphiuser1987

wie mache ich das mit dem wandeln ?????

Wenn Dein Ergebnis -8.7546383e^23 zu den 1.6 gehört, liegt es nicht an der Byte-Reihenfolge, hier eine function, die ein longint umdreht, via absolute longint und single kannst Du auch single umdrehen. Allerdings ist das Ergebnis für 1,6 dann -429492192.0! (in Bytes $CD $CC $CC $3F --> $3F $CC $CC $CD )

Delphi-Quellcode:

function RB(A: longint): longint;
  {-reverse byte order in longint}
begin
  RB := ((A and $FF) shl 24) or ((A and $FF00) shl 8) or ((A and $FF0000) shr 8) or ((A and longint($FF000000)) shr 24);
end;

var
  s: single;
  l: longint absolute s;
  ..
  l := RB(l);

[himitsu]

http://www.delphipraxis.net/internal...t.php?t=148180
und
http://www.delphipraxis.net/internal...t.php?t=177820

Aber eventuell nutzt S7 ein anderes Datenformat und nicht IEEE 754?

[mkinzler]

Bitte vermeidet Mehrfachposts!

[Delphiuser1987]

danke für eure hilfe