名前 題名 ▼ 白猫さん > 多分、私のミスだと思うのですが > （結構、オチョコチョイだから、ミスルことが多いので） > > コンポーネントの登録方法等 で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に > 対する読み込み違反がおきました > > どこを間違えてしまったのでしょうか？ GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link