急，急，急

Question

直接使用SaveTofile，Winfax发送回头帮你看看！

Answer 1

procedure MyDbCreate_Save;
var
  c1: TClientDataSet;
begin
  c1 := TClientDataSet.Create(nil);
  try
    with c1 do
    begin
      with FieldDefs.AddFieldDef do
      begin
        Name := '编号';
        DataType := ftInteger;
      end;
      with FieldDefs.AddFieldDef do
      begin
        Name := '内容';
        DataType := ftString;
        size := 255;
      end;
      CreateDataSet;
      //*****************************************
       追加、处理数据
      
      //*****************************************
    end;
    c1.SaveToFile('a:\MyData.txt');
  finally
    c1.Free;
  end;
end;

Answer 2

我已经做了一个WinFax Server（没有用Winfax,完全村代码）,客户就象使用共乡打印机一样将报表或其他一切能打印的东西发送到服务器，Fax Server将传真发送到客户，不过我不能把程序给你