I am getting an AccessViolation while loading a Stream into the TMSMFXRichtEditor ONLY on MacOS on Windows it works fine on exact the same database.
Anyone who can help me out
Function GetTekst(Qry: TUniQuery; Veld:String):Variant;
Var
Stream: TMemoryStream;
REdit : TTMSFMXRichEditor;
begin
REdit := TTMSFMXRichEditor.Create(Self);
Stream:= TMemoryStream.Create;
Result:= '';
Try
Try
REdit.Clear;
TBlobField(Qry.FieldByName(Veld)).SaveToStream(Stream); {$IFDEF TRACE}LgrTrace('Veld',Veld);{$ENDIF}
Stream.Position:= 0;
if Stream.Size > 0 then
begin {$IFDEF TRACE}LgrTrace('StreamSize',Stream.Size);{$ENDIF}
REdit.LoadFromStream(Stream);
Result:= ProcessText(REdit.Text);
end;
Except
{$IF DEFINED(DEBUG) OR DEFINED(TRACE)} On E: Exception do ShowError(40012,E.Message,Veld);{$ENDIF}
end;
Finally
FreeAndNil(Stream);
REdit.FreeOnRelease;
End;
end;