FastReport3: JpegImage an frxUserDataSet übergeben

[Reinhold]

Hallo,
Ich bin schon einige Zeit Mitglied in diesem Forum und habe schon einiges an Hilfe gefunden, Danke an Alle.
Allerdings konnte Ich zu folgendem Problem im Internet nichts finden.

Ich habe einen Report mit einer Imagekomponente und möchte dieser Komp. eine JpegImage übergeben. Hierfür benutze Ich frxUserDataSet. Wobei Ich es über die Proc OnGetValue versucht habe, allerdings ohne Erfolg, da JpegImage nicht kompatibel mit Variants ist.

Habt Ihr vllt. eine Idee, wie der Komp. eine JpegImage übergeben kann.

Für Eure Mühe und Hilfe, schonmal Danke im Vorraus.

Gruß Reinhold

[alzaimar]

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?

[Reinhold]

Erstmal Danke für die schnelle Antwort.
Werde es ausprobieren.

Zitat von alzaimar:

Aber wozu gibts denn das Forum bei FastReport?

Du hast ja Recht, allerdings kann Ich leider kein Englisch so das Ich mich in diesm Forum mitteilen kann, weiterhin beherrsche Ich nicht die Kyrilische Sprache, so das Ich nicht nachvollziehen kann, ob dieses Thema schon angesprochen wurde.