codesoft在delphi,C#中的例子

terryisme發表於2009-09-26

LabelView Sample:

private void Form1_Load(object sender, System.EventArgs e)
{
LabelApp=new LabelApplicationClass();
doc=(LabelView.LabelDocument)LabelApp.ActiveDocument();
doc.Open("c:workloglabel.lbl",true);
}

private void PrintLabel(string result)
{
try
{

LabelView.LabelField snLabel=(LabelView.LabelField)((LabelView.LabelFields)doc.LabelFields).Item("SN");
snLabel.Value=result;
doc.LabelSetup();
doc.PrintLabel(2,null,null,null,null,null,null);


}
catch(Exception err)
{
MessageBox.Show(err.ToString(),"提示",MessageBoxButtons.OK,MessageBoxIcon.Warning);
}
}




private void Form1_Closing(object sender, System.ComponentModel.CancelEventArgs e)
{
LabelApp.Quit();
LabelApp = null;
System.GC.Collect();

}

Zebra-ZPL Sample:
先用Bar-One做成Barcode文件,再透過File--&gtDown formatter to print生成zpl文件,透過程式設計對zpl文件中特定資料進行替換,最後輸出到指定埠即可.
ofstream fout; //declare file-stream handle
fout.open("lpt1:", ios::out); //open out to lpt1:
fout< fout< fout< fout< fout< fout< fout< fout< fout< fout< fout< fout< fout< fout< fout< fout.close();


///////////////////////////////////////Codesoft Delphi
Var
BarApp,BarDoc:Variant;
Begin
BarApp := CreateOleObject('lppx.Application');
BarApp.Visible:=True;
BarDoc:=BarApp.ActiveDocument;
BarVars:=BarDoc.Variables;
BarDoc.Open('T018S1.Lab');
BarDoc.Variables.Item('Data1').Value:='ABCD';
BarDoc.Variables.Item('Data2').Value:='111';
BarDoc.Variables.Item('Data3').Value:='111ABCD';
Bardoc.Printlabel(1);
BarDoc.FormFeed;
Bardoc.Close;
BarApp.Quit;
End;

///////////////////////////////////////Codesoft C#
using LabelManager2;
ApplicationClass lbl = new ApplicationClass();
try
{
lbl.Documents.Open(@"D:TempTEMP.Lab", false);
Document doc = lbl.ActiveDocument;
//foreach(...)
//{
doc.Variables.FormVariables.Item("Var0").Value = "12399999";
//doc.Variables.FreeVariables
//doc.Variables.Formulas
//doc.Variables.TableLookups
//doc.Variables.DatabaseVariables
//doc.Variables.Dates
//doc.Variables.Counters
doc.PrintDocument(1);
//}
doc.Close(false);
}
catch (Exception ex)
{
lbl.Quit();
}

SAMPLE CODESOFT 8 APPLICATIONS

Click a link below to download a sample ActiveX application:

[@more@]

來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/93029/viewspace-1027377/,如需轉載,請註明出處,否則將追究法律責任。

相關文章