AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Konvertierung von BigEndian-Werten

Ein Thema von p80286 · begonnen am 23. Jul 2012 · letzter Beitrag vom 26. Jul 2012
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#1

Konvertierung von BigEndian-Werten

  Alt 23. Jul 2012, 14:16
Hallo zusammen,

ich muß BigEndian-Werte aus einer Datei auslesen und dann "normal" weiter verarbeiten.
Dafür nutze ich folgende Routine
Delphi-Quellcode:
type
  ta4 = array [0..3] of byte;
  tpa4= ^ta4;

function Big2Little32(ina:tpa4):integer;
begin
  result:=ina[3]+
          ina[2] shl 8+
          ina[1] shl 16+
          ina[0] shl 24;
end;
Für 24 und 16Bit-Werte existieren entsprechende Routinen.

Ist dieser Weg (nahezu) optimal oder gibt es einen besseren? ggf nur eine Routine für mehrere Größen(16,24,32...Bit)?

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von guinnes
guinnes

Registriert seit: 28. Feb 2007
Ort: Bottrop
265 Beiträge
 
Delphi 5 Enterprise
 
#2

AW: Konvertierung von BigEndian-Werten

  Alt 23. Jul 2012, 14:18
Was hältst du von einem Varianten Record ? Damit würdest du die schieberei sparen
Glückauf
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#3

AW: Konvertierung von BigEndian-Werten

  Alt 23. Jul 2012, 14:24
hast Du ein Beispiel?
Meiner Meinung nach komme ich um die Schieberei auf kenen Fall herum?

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#4

AW: Konvertierung von BigEndian-Werten

  Alt 23. Jul 2012, 14:34
Naja, also kürzer ginge es wohl schon:
Delphi-Quellcode:
function SwapInt32(Value: Integer): LongWord; register;
asm
  BSWAP EAX
end;

function SwapInt16(Value: SmallInt): SmallInt; register;
asm
  XCHG EAX
end;
Ob das schneller ist? Kann sein. Weniger Funktionen ist es leider nicht - das wäre aber auch mit zusätzlichem Aufwand verbunden...
(Code ungetestet, ich kenne mich nicht besonders mit Assembler aus...)
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#5

AW: Konvertierung von BigEndian-Werten

  Alt 23. Jul 2012, 14:36
Delphi-Quellcode:
function Swap(Value: Cardinal): Cardinal;
  asm
     BSWAP EAX
  end;
// gibts auch noch:

function SwapUInt64(X: UInt64): UInt64;
asm
  mov EDX,dword ptr [X]
  mov EAX,dword ptr [X+4]
  bswap EDX
  bswap EAX
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Benutzerbild von guinnes
guinnes

Registriert seit: 28. Feb 2007
Ort: Bottrop
265 Beiträge
 
Delphi 5 Enterprise
 
#6

AW: Konvertierung von BigEndian-Werten

  Alt 23. Jul 2012, 14:39
Delphi-Quellcode:
TConvert = Record
  case integer of
    0 : (Bytes : Array[0..3] of Byte);
    1 : (MyInt : Integer);
end;

function Big2Little32(ina:tpa4):integer;
var
  lConvert : TConvert;
begin
  lConvert.Bytes[0] := ima[3];
  lConvert.Bytes[1] := ina[2];
  lConvert.Bytes[2] := ina[1];
  lConvert.Bytes[3] := ina[0];
  Result ;) lConvert.MyInt;
end;
Glückauf
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.014 Beiträge
 
Delphi 12 Athens
 
#7

AW: Konvertierung von BigEndian-Werten

  Alt 23. Jul 2012, 14:45
Ansosnten wohl eher OR, anstatt +.
Delphi-Quellcode:
function Big2Little32(ina: tpa4): LongInt;
begin
  Result:=ina[3] or
          ina[2] shl 8 or
          ina[1] shl 16 or
          ina[0] shl 24;
end;
Und falls man Assembler nutzt, muß man später auch noch die 64-Bit-Version basteln, denn in Win64 sind die Register anders belegt.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#8

AW: Konvertierung von BigEndian-Werten

  Alt 23. Jul 2012, 16:15
Vielen Dank!
Da hab ich ja jetzt etwas zum ausprobieren.

@Himitsu
Ich denke Deiner Version würde noch ein Result:=0; ganz gut passen.
(was man mit OR so assoziiert..)

Da ich mit ASM seit Jahren nichts mehr gemacht habe, mal sehen was daraus wird.

Vielen Dank nochmal

K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.014 Beiträge
 
Delphi 12 Athens
 
#9

AW: Konvertierung von BigEndian-Werten

  Alt 23. Jul 2012, 16:55
Ich denke Deiner Version würde noch ein Result:=0; ganz gut passen.
(was man mit OR so assoziiert..)
Aber nur wenn man das Result auch mit ein-or-t
Result := Result or ...
Und wenn, dann hätte man das beim + auch schon mit machen müssen.

Hier werden ja nur die 4 ina's ver-or-t und ich hoffe mal diese sind ordentlich initialisiert.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#10

AW: Konvertierung von BigEndian-Werten

  Alt 23. Jul 2012, 17:27
Wenn du nicht für alles eine eigene Funktion willst könntest du auch einen pointer auf die Daten + die Datengröße übergeben und anhand dessen dann entsprechend viele Bytes switchen
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz