請問各位~ 有沒有人寫過關於標簽機器如何去由Delphi語言 去控制將資料丟至標簽機列出標簽紙~ 目前所得到是要VB的寫法~如下~ 請問我是否可將它轉換成Delphi呢~><" 'Create "Document" (Label) object Dim Lbl As object Set = CreateObject ("Lblvw.Document") 'Load label in ReadOnly mode Lbl.Open("C:\Lvwin60\Aiag.lbl",True) 'Get Printer information Dim Prt As Object Dim PrtName As String, PrtPort As String Set Prt = Lbl.LabelPrinter PrtName = Prt.Name PrtPort = Prt.Port 'Get field information Dim Flds As Object 'Collection Dim Fld As Object Dim Count As Integer Dim FldName As String Set Flds = Lbl.LabelFields Count = Flds.Count For I = 1 To Count Set Fld = Fld(I) FldName = Fld.Name Fld.Value ="abcdef" Set Fld = Nothing Next 'Print 2 Labels Lbl.PrintLabel 2 'Clean Up Set Prt = Nothing Set Lbl = Nothing 麻煩大家~或者我可以從那裡知道這方面的訊息~

// Create "Document" (Label) object
var
  Lbl: OleVariant;    Lbl := CreateOleObject('Lblvw.Document');    // Load label in ReadOnly mode
Lbl.Open('C:\Lvwin60\Aiag.lbl', True);    // Get Printer information
var
  Prt: OleVariant;
  PrtName, PrtPort: WideString;    Prt := Lbl.LabelPrinter;
PrtName := Prt.Name;
PrtPort := Prt.Port;    // Get field information
var
  i: integer;
  Flds, Fld: OleVariant;
  Count: integer;
  FldName: WideString;    Flds := Lbl.LabelFields;
Count := Flds.Count;
For i := 1 to Count do begin
  Fld := Flds(i);
  Fld.Value := 'abcdef';
end;    // Print 2 Labels
Lbl.PrintLabel(2)

你會發現，其實 Delphi 使用起 COM 跟 VB 差不多方便