POS시스템을 개발하고 있는데 캐시 드로우가 열리질 않네요
아래와 같이 코딩했는데.. 맞는지 알려주시면 감사하겠습니다.
메뉴얼에 보면
Visual Basic 코드만 나와있는데
print #1, Chr$(7);
요렇게 되어있거덩요...
그래서 아래와 같이 Delphi에서
요렇게 바꾸었는데.
procedure Tdisplay_frm.BitBtn1Click(Sender: TObject);
var
MyFile: TextFile;
begin
AssignPrn(MyFile);
Rewrite(MyFile);
WriteLn(MyFile, #07);
System.CloseFile(MyFile);
end;
맞는지요?
열리질 않아요...
참고로 캐시 드로우는 영수증프린터에 연결되어 있습니다.
printer는 Star TSP600 입니다.....
감사합니다..