ttp-243t BarCode Printer的控制 |
|
尚未結案
|
|
samiadon
一般會員   發表：7 回覆：9 積分：3 註冊：2003-06-13 發送簡訊給我 |
|
|
max5020
資深會員  發表：30 回覆：277 積分：321 註冊：2003-06-04 發送簡訊給我 |
procedure TForm1.OpenPort;
begin
spComm.CommName:= cbCOM.Text;
spComm.StopComm;
sleep(WaitTime);
spComm.StartComm;
sleep(WaitTime);
end; procedure TForm1.ClosePort;
begin
spComm.StopComm;
sleep(WaitTime);
end; procedure TForm1.ClearBuffer;
begin
spComm.WriteCommData('CLS'#13, 4);
sleep(WaitTime);
end; procedure TForm1.LabelSize(LabelWidth, LabelHeight: String);
var s: String;
begin
s:= 'SIZE ' LabelWidth ' mm, ' LabelHeight ' mm'#13;
spComm.WriteCommData(pchar(s), Length(s));
sleep(WaitTime);
end; procedure TForm1.Barcode(X, Y, CodeType, Height, Readable, Rotation, Narrow, Wide, Code: String);
var s: String;
begin
s:= 'BARCODE ' X ', ' Y ', "' CodeType '", ' Height ', ';
s:= s Readable ', ' Rotation ', ' Narrow ', ' Wide ', "' Code '"'#13;
spComm.WriteCommData(pchar(s), Length(s));
sleep(WaitTime);
end; procedure TForm1.PrinterFont(X, Y, FontName, Rotation, Xmul, Ymul, Content: String);
var s: String;
begin
s:= 'TEXT ' X ', ' Y ', "' FontName '", ';
s:= s Rotation ', ' Xmul ', ' Ymul ', "' Content '"'#13;
spComm.WriteCommData(pchar(s), Length(s));
sleep(WaitTime);
end; procedure TForm1.PrintLabel(NumberOfSet, NumerOfCopy: String);
var s: String;
begin
s:= 'PRINT ' NumberOfSet ', ' NumerOfCopy #13;
spComm.WriteCommData(pchar(s), Length(s));
sleep(WaitTime);
end; // Print
procedure TForm1.LabelForm0;
var sCode, sw, sh: String;
begin
sCode:= EditFree.Text;
if sCode='' then exit;
sw:= IntToStr(se_W.Value);
sh:= IntToStr(se_H.Value);
OpenPort;
LabelSize(sw, sh);
ClearBuffer;
BarCode('20', '15', '128', '60', '0', '0', '2', '5', sCode);
PrinterFont('40', '80', '3', '0', '1', '1', sCode);
PrintLabel('1', IntToStr(se0.Value));
ClosePort;
end; 搭配SP-COMM使用
|
|
samiadon
一般會員 發表：7 回覆：9 積分：3 註冊：2003-06-13 發送簡訊給我 |
|
|
max5020
資深會員 發表：30 回覆：277 積分：321 註冊：2003-06-04 發送簡訊給我 |
發表時間：2005-04-07 13:57:03
IP:61.220.xxx.xxx 未訂閱
系統時間：2024-05-17 10:06:09
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |