Registriert seit: 6. Feb 2012
Ort: Püttlingen
3 Beiträge
Delphi 7 Enterprise
|
AW: Epson TM-T88 Römisch 3 NUR Kassenschublade öffnen
28. Apr 2013, 17:34
Nachtrag:
Anbei die Function mit der ich arbeite.
Die Klasse "TioDevice" behandelt alle möglichen Interfaces wie RS232, USB, Lpt1, Ethernet ....
function KassenschubladeOeffnen(): boolean;
var sequenz: string;
Device : TioDevice;
begin
RESULT := False;
sequenz := dmbm.GetStringOfSql('SELECT laden_sequenz FROM barkassen WHERE id = ' + IntToStr(kasse_id));
if length(sequenz) > 0 then begin
sequenz := StrWertBilden(sequenz); // 27,112,48,55,121 StrWertBilden(erzeugt einen String aus der Ziffernkette)
Device := TRs232Device.Create;
(Device as TRs232Device).Stopbits := ONESTOPBIT;
(Device as TRs232Device).SetBaudrate(CBR_38400);
(Device as TRs232Device).Datenbits := DATABITS_8;
(Device as TRs232Device).Parity := NOPARITY;
(Device as TRs232Device).Name := 'COM2';
(Device as TRs232Device).ReadTimeout := 500;
(Device as TRs232Device).WriteTimeout := 500;
try
(Device as TRs232Device).Open;
(Device as TRs232Device).SetDTR;
(Device as TRs232Device).SetRTS;
try
RESULT := schreiben(sequenz,(Device as TRs232Device));
except
chipanmeldung := False;
end;
(Device as TRs232Device).Close;
(Device as TRs232Device).Destroy;
kasse_main.FormTouchKasse.Lladeoffen.Visible := RESULT;
except
RESULT := False;
end;
end;
Das könnt ihr ja mal versuchen. Das funzt definitiv ....
Gruß Michael
Michael
|