import type library時出現的錯誤 |
尚未結案
|
zhong
一般會員 發表:46 回覆:17 積分:12 註冊:2004-08-02 發送簡訊給我 |
|
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
|
zhong
一般會員 發表:46 回覆:17 積分:12 註冊:2004-08-02 發送簡訊給我 |
|
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
crpe32.dll 有沒有和 Application 放在同一資料夾。 我沒用過,以下文章可能會對您有些助益:
1,project -- import type library 出現一個box 2,在box中 選擇 crystal report x activex designer runtime library (x代表你的水晶報表是什麼版本的,如8.5,那x就是8.5) 3. 點擊 Install 按紐 ,然後點擊 Into New Package (這裡會要求你輸入一個路徑(如:e:\borland\delphi6\Lib\cradrl.dpk) , 點擊 ok就可以了。在確定框中點擊 yes,在Delphi 的Activex中就增加 了一個application對象。 4.把application 拖放到form1中,project 自動生成如下代碼: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs; type TForm1 = class(TForm) Application1: TApplication; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin end; end. 添加完apllication後,我們還要再增加一個報表瀏覽組件crystal Reports viewer control(crviewer.dll) 步驟和上面是一樣的: 首先選擇 1,project -- import type library 出現一個box 2,在box中 選擇 crystal reports viewer control 3. 點擊 Install 按紐 ,然後點擊 Into New Package (這裡會要求你輸入路徑(如:e:\borland\delphi6\Lib\crviewer.dpk) , 點擊 ok就可以了。在確定框中點擊 yes,在Delphi 的Activex中就增加 了一個crviewer對象。 4.把它添加到form1 5.在form1中增加一個Button 現在就可以在button 的click 事件中寫如下代碼: procedure TForm1.Button1Click(Sender: TObject); var report : IReport; begin //我們可以打開一個已經生成的報表,這是動態的,可以在報表製作的時 //連接好數據庫,當然也可以通過在delphi中調用LogonServer //setlogoninfo來動態連接數據庫。 report := Application1.OpenReport('c:\report1.rpt',crOpenReportByTempCopy); crViewer1.ReportSource := Report; crViewer1.ViewReport; end; //這樣,我們就成功的調入了一個報表,實現了delphi對外部報表的引用~~~~~~~~~~~ 難得聰明,常常糊塗。 ~~~~~~~~~~~ 發表人 - wameng 於 2005/07/15 17:00:05 |
zhong
一般會員 發表:46 回覆:17 積分:12 註冊:2004-08-02 發送簡訊給我 |
謝謝wameng的回覆,我現在不管在Activex中是否有application對象,依照您的回覆在form中加入crviewer對象,再加入代碼
procedure TForm1.Button1Click(Sender: TObject);
var
report : IReport;
begin
report := Application1.OpenReportreport := Application1.OpenReport('c:\test.rpt',crOpenReportByTempCopy);
crViewer1.ReportSource := Report;
crViewer1.ViewReport;
end;
但是會有錯誤
[Error] Unit1.pas(29): Undeclared identifier: 'IReport'
[Error] Unit1.pas(31): Undeclared identifier: 'Application1'
......
我不懂您的意思
//我們可以打開一個已經生成的報表,這是動態的,可以在報表製作的時
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |