Salut,
j'ai une fonction qui transforme une chaine en hexa. Je voudrais modifier cette fonction, afin de l'appliquer à un Stream, mais je n'y arrive pas.
Si quelqu'un peut m'aider à adapter ce code à un Stream.
Code :
- function StringtoHex(Data: string): string;
- var
- i, i2: Integer;
- s: string;
- begin
- i2 := 1;
- for i := 1 to Length(Data) do
- begin
- Inc(i2);
- if i2 = 2 then
- begin
- s := s + ' ';
- i2 := 1;
- end;
- s := s + IntToHex(Ord(Data[i]), 2);
- end;
- Result := s;
- end;
|
Merci
Message édité par coline le 17-05-2006 à 00:06:51
