binären Inhalt z.b PDF in einen String laden

[BerndS]

Ich lese den Ansistring in etwa so ein:
Die 1. Funktion habe ich mal etwas angepasst.
Möglicherweise gibt es da auch schon was Fertiges.

Delphi-Quellcode:

function LoadFileToString(const FileName: string): AnsiString;
var 
  FileStream: TFileStream;
begin
  FileStream := TFileStream.Create(FileName, fmOpenRead);
  try
    SetLength(Result, FileStream.Size);
    if FileStream.Size > 0 then
       FileStream.Read(Result[1], FileStream.Size);
   finally
     FileStream.Free;
   end;
end;