小弟最近試著用Delphi列印Codesoft 標籤, 發現網路上資訊蠻少的. 東湊西湊, 好不容易可以Run了, 分享一下使用心得. 希望各位大大指教    環境: 2000 程式: Delphi 6 搭配 CodeSoft 5.0    DDE Sample: -------------------------------

 var
   csini : tinifile;
   cspathloc : String;
   LOT : array[0..100] of char;
begin 
    csini := tinifile.create( 'win.ini' );
    cspathloc := csini.readstring('CS', 'Path', '' );
    csini.free;
    DDEWithCS.Connectmode := ddeautomatic;
    DDEWithCS.DDEService := 'Cs';
    DDEWithCS.DDETopic := 'Cs';
    DDEWithCS.ServiceApplication :=cspathloc   '\CS5.EXE' ;        if not DDEWithCS.SetLink('Cs', 'Cs') then
      raise Exception.Create ('Could not link to DDE server.');        if not DDEWithCS.ExecuteMacro('[OpenLab("XXX.LAB")]', FALSE ) then
       raise Exception.Create ('Unable to Execute Macro');         strpcopy(LOT ,'[Set(LOT,"333")]');
     DDEWithCS.ExecuteMacro(LOT,FALSE);
     DDEWithCS.ExecuteMacro('[printlabel(1)]',FALSE);
     DDEWithCS.ExecuteMacro('[FORMFEED()]',FALSE); 

ActiveX --------------------

var
  app,doc, vars, vari: Variant;
  i: Integer;
begin
 try
  app := CreateOleObject('Lppx.Application'); // Create Ole Object
  app.Visible := True;
  app.UserControl := True;      doc := app.ActiveDocument; // Link Doc      doc.Open('D:\XXX.Lab'); // Open Doc
  doc.PrintLabel(1);  // Print Label
  doc.FormFeed;  // Terminate Print job      vars := doc.Variables;   // Get Variables collections
  for i:= 1 to vars.count do begin
   vari:= vars.item(i);    // Get Variable 
   if  vari.Name='LOT' then
    begin
     vari.Value:='New Value';  // Update Variable Value
    end; 
  end;      app.Quit; // Exit Application     except
   raise Exception.Create('Error!!');
 end;

~悠遊法國號~ 發表人 - yachanga 於 2005/06/29 18:25:36

是什么，前台要怎么写我用你的代码无法

------
LILYWANG