1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

...
var MemStream: TStream;
begin
...
 MemStream := TMemoryStream.Create;
 MemStream.Position := 0;
 FastReport.Report.SaveToStream(MemStream);
 
 QueryInsertReport.ParamByName('FastReport').LoadFromStream(MemStream,ftBlob);
...
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

... 
var MemStream: TStream; 
begin 
... 
 MemStream := TMemoryStream.Create; 
 MemStream.Position := 0; 
 FastReport.Report.SaveToStream(MemStream); //entweder passiert hier ein Fehler mit dem Blobinhalten
  
 QueryInsertReport.ParamByName('FastReport').LoadFromStream(MemStream,ftBlob); //oder hier werden die Inhalte verändert 
... 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Function FastReportStreamToHexString (sFastReport : TMemoryStream) : String;
Var
  p : PChar;

Begin
  setLength (Result, 2*sFastReport .Size);         // 1 Byte => 2 Char im HEX-Format.
  P := PChar (sFastReport Memory);                 // Memory zeigt auf das 1.Zeichen des FastReport-Streams
  BinToHex (P, PChar (Result), sFRT.Size); 
End;

Procedure StringToFastReportStream (aString : String; sFastReport : TMemoryStream);
Var
  p : PChar;

Begin
  sFastReport.Size := Length (aString) div 2;      // 2 HEX-Char => 1 Byte im Stream
  P := PChar (sFastReport Memory);             
  HexToBin (PChar (aString), P, Length (aString)); // Nun zurück konvertieren
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

...
var BlobStream: TMemoryStream;
...
 BlobStream := TMemoryStream.Create;
 BlobStream := CreateBlobStream(FieldByName('FAST_REPORT'),bmRead);
 BlobStream.Position := 0;
 MainFstRpt.LoadFromStream(BlobStream);
 BlobStream.Free;
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function TFstReportModul.MainDesignerSaveReport(Report: TfrxReport;
  SaveAs: Boolean): Boolean;

  Function FastReportStreamToHexString (sFastReport : TMemoryStream) : String;
   Var
     p : PChar;
   Begin
     setLength (Result, 2*sFastReport .Size);    
     P := PChar (sFastReport);               
     BinToHex (P, PChar (Result), sFastReport.Size);
   End;

...
begin
...
  Blobstream := TMemoryStream.Create;
  MainFstRpt.Report.SaveToStream(BlobStream);
  ParamByName('FastReport').Value := FastReportStreamToHexString(BlobStream);
  BlobStream.Free;
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  function StringToFastReportStream (aString: String; sFastReport : TMemoryStream): TMemoryStream;
   Var
     p : PChar;
   Begin
    sFastReport.Size := Length (aString) div 2;      
    P := PChar (sFastReport);
    HexToBin (PChar (aString), P, Length (aString)); // Hexcode in Bincode

 //Hier müsste nun die Variable P in ein Stream gewandelt werden aber wie?

 Result := ???
   End;					

1:

Result.Write(P,Length(P));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Var
  S : TStringStream;

Begin
  S:= TStringStream.Create('');
  Try
    Report.SaveToStream (S);
    myQuery.ParamByName('FastReport').Value := S.DataString;
  Finally
    S.Free;
  End;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Var
  S : TStringStream;

Begin
  S := TStringStream.Create (ReportString);
  Try
    Report.LoadFromStream (S);
  Finally
    S.Free;
  End
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

...
 var BlobStream: TMemoryStream;
...
function TFstReportModul.MainDesignerSaveReport(Report: TfrxReport;SaveAs: Boolean): Boolean;

  Function FastReportStreamToHexString (sFastReport : TMemoryStream) : String;
   var
     p : PChar;
   begin
     setLength (Result, 2 * sFastReport .Size);         
     P := PChar (sFastReport);
     BinToHex (P, PChar (Result), sFastReport.Size);
   end;
...
begin
...
 Blobstream := TMemoryStream.Create;
 BlobStream.Position := 0;
 MainFstRpt.Report.SaveToStream(BlobStream);
 ParamByName('FastReport').Value := FastReportStreamToHexString(BlobStream);
 BlobStream.Free;
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

...
var LoadStream: TStream;
...
function LoadReport(ShowDialog: Boolean;AMode: TReportMode; Sprache, AReportName: String):Boolean;

  function HexStreamToBinStream (sFastReport : TStream): TStream;
   Var
     p : PChar;
     aString: String;
   Begin
    aString := StringOfChar(#00,sFastReport.Size);   // Stream to String
    sFastReport.Size := Length (aString) div 2;      // 2 HEX-Char => 1 Byte im Stream
    P := PChar (sFastReport);
    HexToBin (PChar (aString), P, Length (aString)); // von Hex zu Bin zurück
    Result.Write(P,Length(P));                       // String to Stream
   End;
...
 begin

  LoadStream := TStream.Create;
  LoadStream := HexStreamToBin (CreateBlobStream(FieldByName('FAST_REPORT'),bmRead));
  MainFstRpt.LoadFromStream(LoadStream);
  LoadStream.Free;
...					

1:

Result.Write(P^,Length(P));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

Function HextStreamToByteStream (HexStream, OutStream : TStream);
Var
  p : Word;
  b : Byte;

  function HexChar(c: Byte): Byte;
  begin
    case Chr(c) of
      '0'..'9':  Result := Byte(c) - Byte('0');
      'a'..'f':  Result := (Byte(c) - Byte('a')) + 10;
      'A'..'F':  Result := (Byte(c) - Byte('A')) + 10;
    else
      Raise Exception.Create('Ungültiges HEX-Format')
    end;
  end;

  function HexByte(p: Word): Byte;
  begin
    Result := HexChar(p shr 8) shl 4) + HexChar(p and $FF);
  end;

Begin
  HexStream.Seek (0, soFromBeginning);
  OutStream.Seek (0, soFromBeginning);
  While HexStream.Read (w, SizeOf (Word)) = SizeOf (Word) do Begin
    b := HexByte (w);
    OutStream.Write (b, SizeOf (b));
  End
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Procedure StringToFastReportStream (aString : String; sFastReport : TStream);
Var
  p : PChar;

Begin
  sFastReport.Size := Length (aString) div 2;      // 2 HEX-Char => 1 Byte im Stream
  P := PChar (sFastReport Memory);             
  HexToBin (PChar (aString), P, Length (aString)); // Nun zurück konvertieren
End;
    
Function HextStreamToByteStream (HexStream, OutStream : TStream);
Var
  S : TStringStream;
  
Begin
  S := TStringStream.Create;
  S.CopyFrom (HexStream,0);
  StringToFastReportStream (S.DataString, OutStream);
End;