Einzelnen Beitrag anzeigen

michael.schaefer

Registriert seit: 6. Feb 2012
Ort: Püttlingen
3 Beiträge
 
Delphi 7 Enterprise
 
#18

AW: Epson TM-T88 Römisch 3 NUR Kassenschublade öffnen

  Alt 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
  Mit Zitat antworten Zitat