Abstract error

I want to use quickpdf to view some pdf files. So the first thing I used was RenderPageToFile and then save this image as a jpg. Then using a simple image loader I load the picture into my program This works fine. The bad thing about this approach is that I have to save a image to disk. To overcome this problem I used the function RenderPageToStream. (See code)

[code]

procedure TForm1.Button1Click(Sender: TObject);
var
 QP: TiSEDQuickPDF;
 Test_Stream:Tstream;
 JPEG : TJpegImage;

begin
 QP := TiSEDQuickPDF.Create;
 try

   QP.UnlockKey('');
   if QP.SetGDIPlusFileName('c:\winnt\system\gdiplus.dll')=0 then
    showmessage('Error');
   QP.DrawText(100, 500, 'Hello World!');
   QP.SaveToFile('c:\test.pdf');
//  QP.RenderDocumentToFile(75,1,1,1,'C:\test.jpg');
   Test_Stream:=Tstream.Create;
   QP.RenderPageToStream(75,1,1,test_stream);
   JPEG:=TJpegImage.create;

   JPEG.LoadFromStream(test_stream);
   image1.Picture.Assign(Jpeg);
   showmessage('done');
 finally
   QP.Free;
   test_stream.Free ;
 end;

end;

[code]

Now I get an "abstract error" when I tried to run the RenderPageToStream function.

Error fixed. It was due to the fact that the stream wasn't at the right position.

for those who are intresseted in the code here it is (without the reg key ;-))

procedure TForm1.Button1Click(Sender: TObject);
var
 QP: TiSEDQuickPDF;
 Test_Stream:Tmemorystream;
 JPEG : TJpegImage;

begin
 QP := TiSEDQuickPDF.Create;
 try

   QP.UnlockKey('....');
   if QP.SetGDIPlusFileName('c:\winnt\system\gdiplus.dll')=0 then
    showmessage('Error');
   QP.DrawText(100, 500, 'Hello World!');
   QP.SaveToFile('c:\test.pdf');
//  QP.RenderDocumentToFile(75,1,1,1,'C:\test.jpg');
   Test_Stream:=Tmemorystream.Create;
   QP.RenderPageToStream(75,1,1,test_stream);
   JPEG:=TJpegImage.create;
   test_stream.Seek(0,0);
   JPEG.LoadFromStream(test_stream);
   image1.Top :=0;
   image1.Left:=0;
   image1.Height :=jpeg.Height ;
   image1.Width :=jpeg.Width;
   image1.Picture.Assign(Jpeg);

 finally
   QP.Free;
   test_stream.Free ;
   JPEG.Free ;

 end;