以DELPHI驅動Godex EZ-2條碼機列印條碼,請問誰有實例可參考? |
|
缺席
|
|
chfamy
中階會員   發表：87 回覆：161 積分：54 註冊：2002-05-03 發送簡訊給我 |
|
|
chfamy
中階會員 發表：87 回覆：161 積分：54 註冊：2002-05-03 發送簡訊給我 |
|
|
chfamy
中階會員 發表：87 回覆：161 積分：54 註冊：2002-05-03 發送簡訊給我 |
宣告條碼廠商提供Dll資料
procedure openport(no: String); StdCall; External 'EZ295.DLL';
procedure closeport(); StdCall; External 'EZ295.DLL';
procedure setup(a,b,c,d,e,f: Integer); StdCall; External 'EZ295.DLL';
procedure printbar(a,b,c,d,e,f,g: String); StdCall; External 'EZ295.DLL';
procedure ecTextOut(a,b: Integer;c,d: String); StdCall; External 'EZ295.DLL';
procedure printfont(a,b,c,d: String); StdCall; External 'EZ295.DLL';
function isready(): Integer; StdCall; External 'EZ295.DLL';
procedure formfeed(); StdCall; External 'EZ295.DLL';
procedure forward(no: String); StdCall; External 'EZ295.DLL'; procedure TForm_Main.Action_PrintExecute(Sender: TObject);
var
sComPrs: String;
sNarrowDot: String;
sWideDot: String;
sCodeType: String;
iCounts: Integer;
iPrQtys: Integer;
begin
sComPrs := Trim(DBEdit_Remark.Text) ' ' FormatFloat('$#,##0',DBSpinEdit_Ptbsps.Value);
sNarrowDot := FormatFloat('#0',DBSpinEdit_NarrowDot.Value); // 窄比值
sWideDot := FormatFloat('#0',DBSpinEdit_WideDot.Value); // 寬比值
// 條碼形式
case (DBComboBox_CodeType.ItemIndex) of
0 : sCodeType := '0'; // CODE 128 C/B
1 : sCodeType := '1'; // CODE 128 B/C
2 : sCodeType := '2'; // Interleaved 2 of 5
3 : sCodeType := '3'; // CODE 39
4 : sCodeType := '9'; // CODE 93
5 : sCodeType := 'K'; // CODABAR
6 : sCodeType := 'U'; // UPC A/E
7 : sCodeType := 'E'; // EAN 8/13
end;
iPrQtys := StrToInt(FloatToStr(DBSpinEdit_PrQtys.Value));
// 檢查條碼印表機是否開機,isready()條碼廠商提供Dll function
if (isready() = 0) then
begin
Application.MessageBox('Godex EZ-2條碼印表機尚未開機,' #13 '請先行確定條碼機是否已經開機!',
'訊息',mb_IconError mb_Ok);
Abort;
end;
Screen.Cursor := crHourGlass;
try
// 條碼列印輸出埠
// 0 LTP1
// 1 COM1
// 2 COM2
// 3 COM3
// 4 COM4
// 5 LTP2
openport(IntToStr(DBComboBox_PrPort.ItemIndex));
// 設定條碼列印紙張規格
setup(33,5,2,0,3,0);
for iCounts := 1 to iPrQtys do
begin
forward('30');
// 標示註記(公司名稱) 銷售單價
ecTextOut(70,30,'細明體',Trim(sComPrs));
// 廠商編號 成本單價 註記日期 明細註記
ecTextOut(70,25,'細明體',Trim(DBLookupCombo_Spysno.Text) FormatFloat('000000',DBSpinEdit_Ptbcst.Value) DateToCDate(DBDateTimePicker_PrDate.Date) Trim(DBEdit_Remark.Text) ' ');
// 零件編號(條碼)
printbar('13','3',Trim(sNarrowDot),Trim(sWideDot),Trim(sCodeType),Trim(DBLookupCombo_Ptbpid.Text),'0');
// 零件編號
ecTextOut(70,25,'細明體',Trim(DBLookupCombo_Ptbpid.Text));
// 零件名稱
ecTextOut(70,25,'細明體',Trim(DBEdit_Ptbcde.Text));
// 原廠編號 其他註記
ecTextOut(70,25,'細明體',Trim(DBEdit_Ptbcbi.Text) Trim(DBEdit_Remark.Text) ' ');
formfeed();
end;
formfeed();
closeport();
finally
Screen.Cursor := crDefault;
end;
end;
其他相關請查閱www.godex.com.tw網站
|
|
mm
一般會員  發表：7 回覆：11 積分：8 註冊：2002-08-16 發送簡訊給我 |
|
|
chfamy
中階會員 發表：87 回覆：161 積分：54 註冊：2002-05-03 發送簡訊給我 |
發表時間：2002-09-22 09:34:00
IP:61.219.xxx.xxx 未訂閱
系統時間：2024-04-29 12:16:22
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |