■説明■
AISOFT EasyFax Pro 2000/ EasyFax 2000 のDDE機能を使って
QuickReportの内容をFAX送信するサンプルプログラムです。
下記コンポーネントをフォームに配置してください。

Edit1 : (VCL) TEdit 送信先FAX番号
Edit2 : (VCL) TEdit 送信先会社名
Edit3 : (VCL) TEdit 送信先担当者名
DDEClientConv1 ：（VCL）TDDEClientConv
DDEClientConv2 ：（VCL）TDDEClientConv
Button1 : (VCL) TButton
QuickReport1はフォーム"frmQR"にあるものとします。

uses 節に Printers　を追加してください。

 ■コード■

procedure TfrmOrder.TButton1Click(Sender: TObject);
var tmp:string;
    PR:TPrinter;
    i:integer;
    ST:TStringList;
begin
    with frmQR do
    begin
        //印刷先をEasy Faxに設定
        PR:=TPrinter.Create;
        for i:=0 to PR.Printers.Count-1 do
            if Pos('AISOFT',PR.Printers[i])<>0 then
                QuickRep1.PrinterSettings.PrinterIndex:=i;

        ST:=TStringList.Create;
        with DDEClientConv1 do
        begin
             //EasyFax実行ファイルの指定
             // (パス名は適当に変えてください)
             //拡張子(.exe)は省略します
             ServiceApplication:=
                 'E:\Program Files\AISOFT\EZFAX32\EZFAX32';

             ST.Add(Edit1.Text); //FAX番号
             ST.Add(Edit2.Text+'/'+Edit3.Text+'様'); //送信相手

             SetLink('EASYFAX','SENDFAX');
             OpenLink;

             //送信情報の設定
             PokeData('SendTo',PChar(ST.Commatext));

             //Previewの指定 (これが無ければ即送信))
             DDEClientConv1.PokeData('PreView','ON');
        end;

        with DDEClientConv2 do
        begin
             SetLink('EASYFAX','CONTROL');

             //送信するページの指定
             //指定が無ければ全ページ送信されます
             QuickRep1.PrinterSettings.FirstPage:=1;
             QuickRep1.PrinterSettings.LastPage:=3;
             
             //送信データをEasyFaxへ送出
             QuickRep1.Print;

             //送信開始
             ExecuteMacro('GoActive',True);
        end;

        ST.Free;
        PR.Free;
        DDEClientConv1.CloseLink;
        DDEClientConv2.CloseLink;

        //デフォルトプリンターに戻す
        QuickRep1.PrinterSettings.PrinterIndex:=-1;
    end;
  end;

--------------------------------------------------------

****************************
きの。（KFC00142)
HTTP://www.hi-ho.ne.jp/kino
kino@hi-ho.ne.jp
****************************

Original document by きの            氏 ID:(KFC00142)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。