StreamToString / StringToStream

Kod:
function StreamToString(Stream: TStream): String;var
Size: Integer;
p: PChar;
begin
Size := Stream.Size;
SetLength(Result, Size * 2);
GetMem(p, Size);

Stream.Position := 0;
Stream.Read(p^, Size);

BinToHex(p, PChar(@Result[1]), Size);

FreeMem(p, Size);
end;

procedure StringToStream(const s: String; Stream: TStream);
var
Size: Integer;
p: PChar;
begin
Size := Length(s) div 2;
GetMem(p, Size);

HexToBin(PChar(@s[1]), p, Size * 2);

Stream.Position := 0;
Stream.Write(p^, Size);

FreeMem(p, Size);
end;