Icon как строка, или как запихать его в INI а затем выдернуть оттуда?

[Человек_Борща]

Доброго времени суток!

Как можно Icon'ку представить как строку ввиде 16'-итричной записи?

Вот в файлах локализации AIMP:

[FILE]
Icon=000001000100101000000100180068030000160000002800000010000000
20000000010018000000000040030000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000AF62289C5F47B45C1FBF5B07BC5601BE6A
25937B850720CE071FCB7D6C8EB05F29B14A01AE4A06A44B1F8C4F489A4720B9
7F5399A2CAA092A3CF7D31E67400E58D28B6A19D1749F31648F49D95B1D6833

Как это туда запихано?

[Пепел Феникса]

TCustomIniFile.WriteBinaryStream

Writes a binary value to the INI file.

procedure WriteBinaryStream(const Section, Name: string; Value: TStream): virtual;

Description

Call WriteBinaryStream to write a binary value from a specified stream to a specified section and key in the INI file. WriteBinaryStream writes from the current position in the stream to the end, converting the value into its hexadecimal representation.

Section is the section that contains the target key.

Name is the key under which the binary data is to be written.

Value is a stream to from which the binary value can be read.

Note: Attempting to write a value to a nonexistent section or attempting to write data to a nonexistent key are not errors. In these cases, WriteBinaryStream creates the section and key and sets its initial value to the hexadecimal representation of the stream’s data

TCustomIniFile.ReadBinaryStream

Retrieves a binary value from the INI file.

function ReadBinaryStream(const Section, Name: string; Value: TStream): Integer; virtual;

Description

Call ReadBinaryStream to read a binary value into a specified stream. After reading the binary value, which it converts from a series of hexadecimal characters, from the INI file into the current position of the stream, ReadBinaryStream returns the number of bytes written to the stream. If the stream is a memory stream (TMemoryStream or one of its descendants), the stream is left positioned to the same byte as it was before the call to ReadBinaryStream (immediately before the new binary value).

Section is the section that contains the desired key.

Name is the key under which the binary data is stored.

Value is a stream to which the binary value is written.

наверно так.

[Аватар]

1. TIcon выгружаем в MemoryStream
2. MemoryStream преобразуем в текст, например в BASE64
3. Пишем в INI
Обратное преобразование с точность наоборот

[Человек_Борща]

Спасибо. Вопрос исчерпан.

[chertovich]

function GetHexIcon(const Icon: TIcon): string;
var
  MemoryStream: TMemoryStream;
  I: Integer;
  B: Byte;
begin
  MemoryStream := TMemoryStream.Create;
  Icon.SaveToStream(MemoryStream);
  MemoryStream.Position := 0;

  for I := 0 to MemoryStream.Size - 1 do
  begin
    MemoryStream.Read(B, 1);
    Result := Result + IntToHex(B, 2);
  end;

end;

Только надо оптимизировать