Rave PDF Render

← →
undert (2003-10-14 22:55) [0]

Кто может застваить вот это работать:
procedure TForm1.FormCreate(Sender: TObject); Var Img:TImage; I:Integer; begin Img:=TImage.Create(Nil); PDF.OutputFileName:=Application.ExeName+".pdf"; PDF.DocBegin; PDF.WriteHeader; PDF.WriteDocInfo; For I:=1 To 216 Do Begin PDF.PageBegin; Try Img.Picture.LoadFromFile("d:\$tmp$\image"+IntToStr(I)+".bmp");Except Continue;End; // PDF.PaperWidth Try PDF.PrintBitmapRect(1,1,10,10,Img.Picture.Bitmap); Except On E:Exception Do ShowMessage(E.Message);End; PDF.PageEnd; End; PDF.WritePagesObject; PDF.WritePages; PDF.WriteEof; PDF.DocEnd; end;

← →
undert (2003-10-14 22:57) [1]

Exception происходит на
> PDF.PrintBitmapRect(1,1,10,10,Img.Picture.Bitmap);

← →
undert (2003-10-14 23:04) [2]

PDF: TRvRenderPDF;

← →
Юрий Федоров (2003-10-14 23:22) [3]

E.Message какой ?

← →
undert (2003-10-14 23:25) [4]

Access Violation ...

Но у меня предчувствие что я вобще не правильно пользуюсь этой штукой ...

← →
ИМХО (2003-10-14 23:54) [5]

Что за TRvRenderPDF? Где скачать можно?

← →
undert (2003-10-14 23:55) [6]

:)))
В Delphi 6,7 он в Rave"e находится ... группа компонентов ...

← →
ИМХО (2003-10-15 00:01) [7]

Ну дык ты его, наверное, доустанавливал поверх стандартных компонентов?

← →
undert (2003-10-15 00:01) [8]

Нет конечно, он в стандартной поставке Ё-Моё ...

← →
undert (2003-10-15 00:05) [9]

← →
ИМХО (2003-10-15 00:09) [10]

Жалко, не могу проверить, у меня установлена только пятая версия, но что-то мне грит, что ты меня обманываешь.

← →
undert (2003-10-15 00:10) [11]

> ИМХО ©

Что ж это тебе такое говорит ?
Спроси здесь у кого - нить у кого стоит 7 делфи ...

← →
Zergling (2003-10-15 10:40) [12]

undert ©

1. Нужен отчет со своими картинками?
Тогда TRvCustomConnection
2. А TRvRenderPDF это отчет в PDF конвертить.
Уточни тебе 1 или 2

← →
REA (2003-10-15 11:58) [13]

Нашел на Rave сайте, не знаю - может на мысль натолкнет какую:

procedure TForm1.ReportSystem1Print(Sender: TObject);

var
Stream: TMemoryStream;
Image: TJPEGImage;

begin
With Sender as TBaseReport do begin
Stream := TMemoryStream.Create;
Image := TJPEGImage.Create;
try
Image.LoadFromFile("image1.jpg");
Image.SaveToStream(Stream);
Stream.Position := 0;
PrintImageRect(1,1,3,3.5,Stream,"JPG");
finally
Image.Free;
Stream.Free;
end; { tryf }
end; { with }
end;

← →
undert (2003-10-15 14:02) [14]

> 1. Нужен отчет со своими картинками?
> Тогда TRvCustomConnection
> 2. А TRvRenderPDF это отчет в PDF конвертить.
> Уточни тебе 1 или 2

Нет, мне нужна именно в PDF затолкнуть 220 картинок ... =)

← →
undert (2003-10-15 14:07) [15]

> REA ©

ЧТо-то не то ...

← →
undert (2003-10-15 14:21) [16]

Блин, чёрт, что никто не знает ?

← →
undert (2003-10-15 14:21) [17]

Блин, чёрт, что никто не знает ?

← →
undert (2003-10-15 14:45) [18]

Moveup();

← →
undert (2003-10-15 15:50) [19]

> REA ©

Работает, но оно картинка не появляется в PDFине

← →
Zergling (2003-10-17 08:15) [20]

REA © (15.10.03 11:58) [13]

наверно не то, это скорей всего для выбранного TRvProject.

undert © (15.10.03 15:50) [19]
Нужно юзать TRvNDRWriter - в нем создается отчет, а с помощью TRvRenderPDF это TRvNDRWriter конвертируется в PDF. Тока я еще не понял, как эксплуатировать TRvNDRWriter.

← →
undert (2003-10-19 15:23) [21]

> Нужно юзать TRvNDRWriter - в нем создается отчет, а с помощью
> TRvRenderPDF это TRvNDRWriter конвертируется в PDF. Тока
> я еще не понял, как эксплуатировать TRvNDRWriter.

Дык TRvNDRWriter - тоже самое ... или я так же не разобрался в эксплуатировании ....

← →
Zergling (2003-10-20 06:14) [22]

undert © (19.10.03 15:23) [21]

С тебя конфетка :)

procedure TForm1.Button1Click(Sender: TObject);
var
BMP: TBitMap;
MS: TMemoryStream;
I: Integer;
begin
with RvNDRWriter1 do
begin
try
BMP := TBitMap.Create;
BMP.LoadFromFile("C:\1.bmp");
Start;
for I:=0 to 2 do
begin
PrintBitmapRect(0.5, 0.5, 2, 2, BMP);
NewPage;
end;
Finish;
finally
BMP.Free;
end;
end;
try
MS := TMemoryStream.Create;
MS.LoadFromFile("C:\xxx.xxx");
RvRenderPDF1.NDRStream := MS;
RvRenderPDF1.PrintRender(MS, "C:\xxx.pdf");
finally
MS.Free;
end;
end;

← →
Zergling (2003-10-20 07:37) [23]

Чуть не забыл самое главное!
У TRvNDRWriter в свойстве StreamMode выстави smFile. А в свойстве Units выстави нужную еденицу измерения, иначе удивишся полученному результату :).

← →
Zergling (2003-10-20 09:53) [24]

Опять забыл! Ну что за невнимательность.
Для TRvNDRWriter в свойстве FileName := "C:\xxx.xxx";

← →
undert (2003-10-20 23:39) [25]

Чёрт! А с меня и правда конфетка :) Спасибо!

← →
undert (2003-10-21 00:37) [26]

> PrintBitmapRect(0.5, 0.5, 2, 2, BMP);

А что значут первые 4 параметра ?
В ПДФ рисунок не отображается ...

← →
Zergling (2003-10-21 06:16) [27]

> PrintBitmapRect(0.5, 0.5, 2, 2, BMP);

Описывают координаты прямоугольной области, куда будет вставлен рисунок, ну типа как Rect().
Я тебе писал выше
> А в свойстве Units выстави нужную еденицу измерения, иначе удивишся полученному результату :).
Ты наверно координаты в пикселях указал, а там скорей всего стоят дюймы. У меня стояли дюймы, потому и числа описывающие прямоугольник такие маленькие.
Второй вариант проверить загрузку рисунка (он случаем не читсый белый холст :-)).
Все, что описано выше должно работать.

← →
undert (2003-10-21 16:32) [28]

> Zergling ©

Да нет, рисунки грузятся, я отображение выставлял... Акробат их тоже видит, но экспортировать не может, так же он их не отображает ... с дюймами итп делал все - ничего не помогло :(
А допустим .PageWidth - в единицах Unit ? Если я так сделаю:

PrintBitmapRect(0, 0, RvNDRWriter1.PageWidth, RvNDRWriter1.PageHeight, BMP); ?

← →
Zergling (2003-10-22 06:57) [29]

Чето ты не то шаманиш :). Рисунок заполняет все пространство страницы (т.е. растянут на всю ширину и высоту страницы). У меня все ОК.
Можешь кинуть свой проект мне на ящик. Только без *.exe, *.dcu, *.~*, *.res. Можно в архиве WinRar 3.20 c максимальным сжатием.

Rave PDF Render Найти похожие ветки