Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Umwandlung Big Endian nach Little Endian (https://www.delphipraxis.net/12629-umwandlung-big-endian-nach-little-endian.html)

Chewie 2. Dez 2003 12:42

Re: Umwandlung Big Endian nach Little Endian
 
Oder benutz die WinSock-Funktionen
ntohs bzw. htons und
ntohl bzw. htonl.

jryan 3. Dez 2003 06:23

Re: Umwandlung Big Endian nach Little Endian
 
@all:
Danke für die Auskünfte!

@choose:
Das mit dem Decorator werde ich mir mal anschauen. Ich muss ehrlich sagen, das ich den Begriff 'Decorator' eigentlich noch nie gehört habe, aber nach dem ersten überfliegen deines Post in einem anderen Thread hört sich das ganze sehr verlockend an. (Vielleicht nicht unbedingt für diesesn Problem aber auf jeden Fall für einig ander die zur Zeit in mache sind)!

@sakura:
Leider habe ich bisher keine Delphi3000-Account! Nach dem ersten (schnellen) Ansicht der Website stellt sich natürlich für mich die Frage, ist der Account bei denen kostenlos?

@Rainer_Unger:
Für Word-Zahlen hast du natürlich recht. Allerdings habe ich das ganze in eine Zeile unterbekommen :wink: :
Delphi-Quellcode:
function Big2LittleEndian(Wert: Word):Word;
begin
  Result := Lo(Wert) * 256 + Hi(Wert);
end;
Für Longword-Zahlen ist das ganze aus meiner Sicht nicht ganz so simple, Mein Lösungsansatz, den ich gestern gefunden habe ist folgender:
Delphi-Quellcode:
function Big2LittleEndian(Wert: LongWord):LongWord;
var
  i : Integer;
begin
  Result := 0;

  for i:= 0 to 3 do
    Result := (Result SHL 8) + Byte(Wert SHR (8*i));

end;
@Chewie:
:wiejetzt: Da ich eigentlich nicht mit dem Netzwerk arbeiten wollte (und muss, eigentlich soll das Programm auch auf einen Standalone-rechner ohne Netzwerk[auch ohne Modem, ja sowas gibst auch noch] laufen) weis ich auf den ersten Blick nicht, was mir diese Funktionen bringen. Vielleicht könntest du mir das noch mal ganz kurz erklären.

Luckie 3. Dez 2003 06:40

Re: Umwandlung Big Endian nach Little Endian
 
Wie wäre es mit:
Zitat:

The MAKEWORD macro creates a WORD value by concatenating the specified values.

Syntax
Code:
WORD MAKEWORD(
    BYTE bLow,
    BYTE bHigh
);

Entsprechend gibt es auch noch:
Zitat:

The MAKELONG macro creates a LONG value by concatenating the specified values.

Syntax
Code:
DWORD MAKELONG(
    WORD wLow,
    WORD wHigh
);

Zum Zerlegen gibt es wiederum: HiByte und LoByte bzw. HiWord und LoWord.

So würde ich es zu mindest machen. :wink:

Chewie 3. Dez 2003 13:15

Re: Umwandlung Big Endian nach Little Endian
 
Die Funktionen htons etc. greifen nicht auf Netzwerkresourcen zu, sondern stellen nur eine Byte-Reihenfolge-Umkehr da.
htons steht für Host to [/b]N[/b]etwork Short, ntohs macht es umgekehrt. Diese Funktionen arbeiten aber natürlich gleich, sie werden nur wegen der besseren Lesbarkeit unterschieden. Der tiefere Sinn ist der, dass zur Netzübertragung Byte-Reohenfolgen festgelegt sind, nämlich die Host Order und die Network Order. Diese Funktionen sollte es auf jedem Betriebssystem mit Socket-Schnittstelle geben.
htonl und ntohl unterscheiden sich übrigens dadurch, dass sie für 4 Byte-Integer ausgelegt sind und nicht für 2 Byte wie Short.


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:19 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz