Hallo liebe leute mal wieder ein problem wo ich nicht weiter komme wäre echt klasse wenn einer helfen kann Sourcecode
ausgeblendet markieren
Code:
procedure TForm1.Timer3Timer(Sender: TObject);
begin
if (form3.Bake.Checked = true) then begin
if pin = 'dtr' then DTR(true);
if pin2 = 'rts' then RTS(true);
onoff.Picture.Bitmap.LoadFromResourceName(HInstance,'ON_BIT');
sndPlaySound(PChar('bake1.wav'),SND_ASYNC);
Timer3.Enabled:=false;
dtr(false);
rts(false);
end;
end;
die RS232 soll DTR und RTS auf True setzen und das wave file nur 1 Mal abspielen danach den Timer resetten und RTS bzw. DTR auf False setzen
das wave wird zwar abgespielt!!! aber nicht nur 1 mal sondern in einer schleife
der Timer schaltet nicht auf false und RS232 wird nicht aktiviert HILEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
warum macht der das nicht.
komisch an dieser Stelle Gehts ja
hier wird auf jeden fall der Timer resttet wen plötlich über die Sound Karte noch was zu hören ist
begin
Timer3.Enabled:=false;
sndPlaySound(nil,0);
if pin = 'dtr' then DTR(true);
if pin2 = 'rts' then RTS(true);
onoff.Picture.Bitmap.LoadFromResourceName(HInstanc e,'ON_BIT');
Code:
begin
Timer3.Enabled:=false;
sndPlaySound(nil,0);
if pin = 'dtr' then DTR(true);
if pin2 = 'rts' then RTS(true);
onoff.Picture.Bitmap.LoadFromResourceName(HInstance,'ON_BIT');
ist eine Andere Procedur aber da geht es.
Moderiert von AXMD: Code- durch Delphi-Tags ersetzt.