|
多分、私のミスだと思うのですが
（結構、オチョコチョイだから、ミスルことが多いので）
コンポーネントの登録方法等 でdelphi2009の紹介がありましたので
インストールしてみました。
で、下記の試験をした所
1）uses に , plPrev, plSetPrinter を追加
2)Button1 を作成して 下記のプログラムを作成
////////////////////////////////////////
procedure TForm6.Button1Click(Sender: TObject);
var plSetPrinter1:TplSetPrinter;
plPrev1 :TplPrev;
begin
plSetPrinter1:=TplSetPrinter.Create(Application);
plPrev1 :=TplPrev.Create(application);
try
plPrev1.plSetPrinter:=plSetPrinter1;
//動作確認テストの一部流用
plPrev1.Title:='モーダル表示';
//描画コード開始
plPrev1.BeginDoc;
try
//線の太さは0.5mm
plPrev1.Canvas.Pen.Width:=5;
//左から50.0mm上から80.0mmで幅100.0mm,縦120.0mmの四角形
plPrev1.Canvas.Rectangle(500,800,1500,2000);
//文字の高さを10.0mmに
plPrev1.Canvas.Font.Height:=100;
//四角形の左上に文字列Textを描画
plPrev1.Canvas.TextOut(500,800,Text);
//印刷する文字列の高さ確認のための線を引く}
plPrev1.Canvas.Pen.Width:=1;
plPrev1.Canvas.MoveTo(500,900);
plPrev1.Canvas.LineTo(1500,900);
finally
//描画コード終了
plPrev1.EndDoc;
end;
//プレビュー開始
plPrev1.ShowModal;
finally
plPrev1.free;
plSetPrinter1.free;
end;
end;
////////////////////////////////
3)plPrev1.BeginDoc でエラーが発生してしまいました
エラー内容
モジュールproject8.exeのアドレス0049599Eでアドレス0000000に
対する読み込み違反がおきました
どこを間違えてしまったのでしょうか？
|