[Lazarus] Unpack of PHP

[silvioprog]

2013/2/4 Vincent Snijders <vincent.snijders at gmail.com>

> 2013/2/4 silvioprog <silvioprog at gmail.com>:
> > 2013/2/4 David Knaack <davidknaack at gmail.com>
> >>
> >> I may not understand the scope of your question, but could you use the
> >> swap function?
> >>
> >> http://www.freepascal.org/docs-html/rtl/system/swap.html
> >>
> >> Like so (edited in email, not compile checked):
> >>
> >> function ReadMWord(AStream: TStream): Word;
> >>   var
> >>     MW: Word
> >>   begin
> >>     AStream.Read(MW, SizeOf(Word));
> >>     Result := Swap(MW);
> >>   end;
> >
> >
> > Perfect! :)
> >
> > Thank you very much!
>
> Instead of swap, you may use beton, so that it works on big endian cpus
> too:
> http://www.freepascal.org/docs-html/rtl/system/beton.html
>
> Vincent
>

Many thanks guy, worked like a charm too! :) I'll use BEtoN instead Swap.

-- 
Silvio Clécio
My public projects - github.com/silvioprog
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20130204/f01a393a/attachment-0003.html>