조기 아래도 비슷한 질문이 있는거 가튼디...



COM1을 이용해서 프린터로 출력을 하고자 합니다..

저희는 터보파워사의 AsyncProfessional 정품을 구입해서 사용하고 있습니다.



근데 Async 의 TApdComPort를 Open할려고 하면 에러가 납니다..



소스...

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

AdTapi, OoMisc, AdPort, StdCtrls;



type

TForm1 = class(TForm)

ApdComPort1: TApdComPort; // Comport를 지정하는 상업용 컴포넌트입니다.

ApdTapiDevice1: TApdTapiDevice;

Button1: TButton;

Button2: TButton;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

Fp : TextFile;

begin

ApdComPort1.Open := True;



// 이부분에서 에러가 납니다...



AssignFile(Fp,'COM1:');

Rewrite(Fp);

write(Fp,#27+'D0330,0500,0300'+#10#0);

write(Fp,#27+'C'+#10#0);

write(Fp,#27+'PC001;0030;0040;1;1;A1+00,00,B,+0000000001'+#10#0);

write(Fp,#27+'RC001;A00001'+#10#0);

CloseFile(Fp);

end;



에러메세지는







입니다..

end.