Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#2

Re: FastReport3: JpegImage an frxUserDataSet übergeben

  Alt 1. Mär 2006, 07:56
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?
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat