Скачать: CL | DM;

Помогите   Найти похожие ветки 

← →
undert ©   (2003-10-14 23:00) [0]

http://delphimaster.net/view/1-1066157734/

---

← →
undert ©   (2003-10-14 23:40) [1]

???

---

← →
undert ©   (2003-10-15 00:18) [2]

Помогите запустить!!!

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RpDefine, RpRender, RpRenderPDF, ExtCtrls, RpRave;

type
TForm1 = class(TForm)
PDF: TRvRenderPDF;
Img: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
Var I:Integer;
begin
PDF.Active:=True;
PDF.OutputFileName:=Application.ExeName+".pdf";
PDF.DocBegin;
PDF.CreatePDFObjects;
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
// PDF.PrintBitmap(1,1,Img.Width,Img.Height,Img.Picture.Bitmap);
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;

end.

---

← →
undert ©   (2003-10-15 00:19) [3]

Вылетает с ошибкой там где Try Except: Access Violation ... Что я делаю не так ?

---

← →
undert ©   (2003-10-15 00:20) [4]

PageBegin/PageEnd - без разницы - если есть тоже ошибка ... вобще комментарии тут в коде не причём ... с ними и без них одна и та же ошибка

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c