Thema: Delphi HexToBin

Einzelnen Beitrag anzeigen

anku

Registriert seit: 13. Sep 2003
51 Beiträge
 
#2

Re: HexToBin

  Alt 19. Sep 2003, 21:01
ist das die function aus der Classes.pas?

sie wird in dieser function auf aufgerufen:
(keien ahnung ob dir das jetzt hilft..)
Delphi-Quellcode:
procedure TParser.HexToBinary(Stream: TStream);
var
  Count: Integer;
  Buffer: array[0..255] of Char;
begin
  SkipBlanks;
  while FSourcePtr^ <> '}do
  begin
    Count := HexToBin(FSourcePtr, Buffer, SizeOf(Buffer));
    if Count = 0 then Error(SInvalidBinary);
    Stream.Write(Buffer, Count);
    Inc(FSourcePtr, Count * 2);
    SkipBlanks;
  end;
  NextToken;
end;
MfG
  Mit Zitat antworten Zitat