求救各位前輩:Argox條碼機
下面是文字及條碼測試列印正常.
問題:加入Table把st1:='列印測試';改為Table資料.RUN發生錯誤?
Project xxxx raised exception class EDBEngineError with message
'An error occurred while attempting to initialize the Borland Database Engine(error$2501)'
使用資料庫為:BDE/dbase

function A_Set_Darkness ( darkness:integer):integer;stdcall;external 'WINPPLA.DLL';
function A_CreatePrn ( selection:integer;FileName:pchar):integer;stdcall;external 'WINPPLA.DLL';
function A_Print_Out ( width,height,copies,amount:integer):integer;stdcall;external 'WINPPLA.DLL';
function A_Prn_Barcode ( x,y,ori:integer;typee:char;narrow,width,height:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external 'WINPPLA.DLL';
function A_Prn_Text_TrueType ( x,y,FSize:integer;FType:pchar;Fspin,FWeight,FItalic,FUnline,FStrikeOut:integer;id_name,data:pchar;mem_mode:integer):integer;stdcall;external 'WINPPLA.DLL';
Procedure A_ClosePrn ();stdcall;external 'WINPPLA.DLL';

procedure TArgox_Form.Button1Click(Sender: TObject);
var st1:string;
begin
st1:='列印測試';
A_CreatePrn(1, 'NULL');//輸出埠lpt1
A_Set_Darkness(12);//熱度
A_Prn_Barcode(15, 26, 1, 'f', 2, 2, 30, 'N', 0, pchar('471008843350'));//條碼
A_Prn_Text_TrueType(30, 1, 38, pchar('標楷體'), 1, 700, 0, 0, 0, pchar('AB'), pchar('' st2 ''),1);//文字
A_Print_Out(1, 1, 1, 1);//列印份數
A_ClosePrn;
end;

這看來應該很明顯是bde 掛點的問題, 與所列的function沒有關係(除非這些包起來的dll已引用bde, 但應該不可能吧), 所以你應該朝向自己的database 與 bde 之間的關係去查, 一般會造成 bde initalize error 的原因有
1.bde install時沒有包裝好, 有些 bde 所需的 dll 沒有被正確安裝到指定路徑
2.bde 的路徑不存在或毀損
3.與作業系統某些驅動有衝突, 我曾遇到是顯卡
4.如果是在vista 下, 可能發生是vista授權嚴謹度的問題

感謝P.D版主
查了幾天討論區,今天測試hagar版主的方法
http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=31644
賓果
問題在BDE設定memory 不足
將SHAREDMEMSIZE 改為 8192問題就解決了
再次感謝P.D版主與hagar版主