Du kannst versuchen, das JPEG-Image in einem Stream zu speichern und diesen Stream in ein Variant zu übersetzen. Ich habe es so gemacht:
Delphi-Quellcode:
Function StreamToVariant (aStream : TStream) : Variant;
Var
pData : Pointer;
iSize : Int64;
Begin
iSize := aStream.Size;
Result := VarArrayCreate([0, iSize-1], varByte);
pData := VarArrayLock(Result);
Try
aStream.Seek(0, soFromBeginning);
aStream.Read(pData^, iSize);
Finally
VarArrayUnlock(Result);
End;
End;
Ich weiss aber nicht, ob das bei FR funktioniert. Aber wozu gibts denn das Forum bei FastReport?