Programm Stop

[Schuby]

Hallo, ich habe ein Problem mit meinen Programm
Mein Programm sendet über USB Zeile für Zeile einer Datei an meinen CNC Controller.
Das haut auch Super hin, nur kann ich nicht anderes mehr mit meinen Programm machen
bis die File abgearbeitet ist.

Ich hätte gerne ein Break Taste drin, aber das Programm nimmt keine Befehle
an bis die file gesendet wurde.

Ich brauche Ideen wie ich das besser Programmieren könnte.
Wäre Dankbar für Antworten.

mfg

[venice2]

Addiere diese procedure und verwende diese innerhalb deiner Send Procedure..

Delphi-Quellcode:

procedure WinProcessMessages;
var
  ProcMsg: TMsg;
begin
  while PeekMessage(ProcMsg, 0, 0, 0, PM_REMOVE) do
  begin
    if (ProcMsg.message = WM_QUIT) then
      Exit;
    TranslateMessage(ProcMsg);
    DispatchMessage(ProcMsg);
  end;
end;

[DieDolly]

Zitat:

Ich hätte gerne ein Break Taste drin, aber das Programm nimmt keine Befehle
an bis die file gesendet wurde.

Wie sendest du die Zeilen? In einer For-Schleife?

Ideen:
- lager es in einen Thread aus

[venice2]

Zitat:

Zitat von DieDolly (Beitrag 1483196)

Zitat:

Ich hätte gerne ein Break Taste drin, aber das Programm nimmt keine Befehle
an bis die file gesendet wurde.

Wie sendest du die Zeilen? In einer For-Schleife?

Ideen:
- lager es in einen Thread aus

Warum so kompliziert?
WinProcessMessages reicht vollkommen aus.
Es sorgt dafür das andere Messagen weitergeleitet werden

Delphi-Quellcode:

WinProcessMessages;
if bBreak then
  Break
else
SendtoUsb;

[DieDolly]

Da das Senden der Daten scheinbar eine dauerhafte Aufgabe ist, bietet sich hier ein Thread doch an.

[Schuby]

Ja ich sende über eine for schleife und bei jeder Zeile die
ich sende warte ich auf eine Antwort von USB auf 'ok'
und sende dann die nächste Zeile




mfg

[himitsu]

Warum nicht

Delphi-Quellcode:

Application.ProcessMessages;

verwenden?

Delphi-Quellcode:

procedure WinProcessMessages;
var
  ProcMsg: TMsg;
  Handled: Boolean;
begin
  while PeekMessage(ProcMsg, 0, 0, 0, PM_REMOVE) do
  begin
    { Der Teil fehlt auch alles bei dir, welchen Application.ProcessMessages sonst eigentlich machen würde.
    Handled := False;
    if Assigned(Application.OnMessage) then 
      Application.OnMessage(MsgProcMsg, Handled);
    if Application.IsPreProcessMessage(ProcMsg) or Application.IsHintMsg(ProcMsg) or Handled 
        or Application.IsMDIMsg(ProcMsg) or Application.IsKeyMsg(ProcMsg) or Application.IsDlgMsg(ProcMsg) then
      Continue;
    }
    if (ProcMsg.message = WM_QUIT) then
    begin
      Application.Terminate;  // denn wie soll Delphi sonst das Ende mitbekommen, wenn du alle Messages hier abfängst?
      Break;  // oder Exit; ... verlässt Beides diese Prozedur, da nach der Schleife eh Schluß ist
    end;
    TranslateMessage(ProcMsg);
    DispatchMessage(ProcMsg);
  end;
end;

[Schuby]

Erstmal Danke für die vielen Antworten, aber jetzt blicke ich nicht ganz durch
wie ich meine Procedure da rein bekomme, ich zeige euch mal meine

Delphi-Quellcode:

procedure TForm1.Btn_GCode_Memo2_sendenClick(Sender: TObject);
var count,i: integer;
begin
  if devOpen then
  begin
        for I:= 1 to Form1.Memo2.Lines.Count do
        begin
          Cmd.typ:= CTRLcmd;
          Cmd.cmd:= $10;   //
          if not SendCmd(cmd) then //sende über usb
          begin
            MessageDlg('Sende Fehler.!', mtError, [mbOK], 0);
            Exit;
          end;
          SendeStr:= Form1.Memo2.Lines[i-1];
          //Jetzt Zeile senden
          xx:= Buff_fuellen(SendeStr);
          USBsendData(@TxBuff, count);

          //auf ok warten 
          repeat
            EmpfStr:='';
            USB_Read;
            sleep(5);
          until res > 0;
          RxBuff_Daten_To_String;
          Memo1.Lines.Add(EmpfStr);
        end;
  end;
end;

mfg

[DieDolly]

Am einfachsten ist es, das einfach in einen Thread auszulagern, damit der Mainthread wieder komplett frei wird.
Wenn du die o.g. Lösung einbaust, hängst du immer in Btn_GCode_Memo2_sendenClick fest.

Nur ein Gedankengang

Delphi-Quellcode:

// var ThreadyThreadObject: TThreadyThread;

procedure TForm2.FormCreate(Sender: TObject);
begin
 ReportMemoryLeaksOnShutdown := True; //

 ThreadyThreadObject := TThreadyThread.Create;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
 ThreadyThreadObject.Destroy;
end;

Delphi-Quellcode:

unit ThreadyThread;

interface

uses
 System.Classes;

type
 TThreadyThread = class(TThread)
 private
  {Private-Deklarationen}
 protected
  procedure Execute; override;
 end;

implementation

{ThreadyThread}

procedure TThreadyThread.Execute;
var
 count, i: integer;
 sl: TStringList;
begin
 if devOpen then
  begin
   sl := TStringList.Create;
   try
    TThread.Synchronize(nil,
     procedure
     begin
      sl.AddStrings(Form1.Memo2.Strings);
     end);;

    for i := 1 to sl.count do
     begin
      if Terminated do
       Break; // Stop hier

      Cmd.typ := CTRLcmd;
      Cmd.Cmd := $10; //
      if not SendCmd(Cmd) then // sende über usb
       begin
        MessageDlg('Sende Fehler.!', mtError, [mbOK], 0);
        Exit;
       end;

      TThread.Synchronize(nil,
       procedure
       begin
        SendeStr := Form1.Memo2.Lines[i - 1];
       end);

      // Jetzt Zeile senden
      xx := Buff_fuellen(SendeStr);
      USBsendData(@TxBuff, count);

      // auf ok warten
      repeat
       EmpfStr := '';
       USB_Read;
       sleep(5);
      until res > 0;
      RxBuff_Daten_To_String;

      TThread.Synchronize(nil,
       procedure
       begin
        Memo1.Lines.Add(EmpfStr);
       end);
     end;
   end;
  finally
   sl.Free;
  end;

end.

Am Rande: Form1.Memo2.Lines[i-1]; kann Form1.Memo2.Lines[i]; werden, wenn du in der Schleife bis count-1 zählst und bei 0 statt 1 anfängst.

[Schuby]

Danke für eure Hilfen, ich habe mir das hier mal in Ruhe durchgelesen.
Jetzt gehts :-D:-D:-D

https://wiki.delphigl.com/index.php/...Multithreading


mfg schuby

[venice2]

Zitat:

Zitat von himitsu (Beitrag 1483215)

Warum nicht

Delphi-Quellcode:

Application.ProcessMessages;

verwenden?

Delphi-Quellcode:

procedure WinProcessMessages;
var
  ProcMsg: TMsg;
  Handled: Boolean;
begin
  while PeekMessage(ProcMsg, 0, 0, 0, PM_REMOVE) do
  begin
    { Der Teil fehlt auch alles bei dir, welchen Application.ProcessMessages sonst eigentlich machen würde.
    Handled := False;
    if Assigned(Application.OnMessage) then 
      Application.OnMessage(MsgProcMsg, Handled);
    if Application.IsPreProcessMessage(ProcMsg) or Application.IsHintMsg(ProcMsg) or Handled 
        or Application.IsMDIMsg(ProcMsg) or Application.IsKeyMsg(ProcMsg) or Application.IsDlgMsg(ProcMsg) then
      Continue;
    }
    if (ProcMsg.message = WM_QUIT) then
    begin
      Application.Terminate;  // denn wie soll Delphi sonst das Ende mitbekommen, wenn du alle Messages hier abfängst?
      Break;  // oder Exit; ... verlässt Beides diese Prozedur, da nach der Schleife eh Schluß ist
    end;
    TranslateMessage(ProcMsg);
    DispatchMessage(ProcMsg);
  end;
end;

Da fehlt gar nichts denn meine Version ist NONVCL.
Application und dein Handle gibt es bei mir nicht.
Nur zur Info!

Zitat:

Wenn du die o.g. Lösung einbaust, hängst du immer in Btn_GCode_Memo2_sendenClick fest.

Das ist quatsch denn dann dürfte WM_PAINT und alle anderen Messagen nicht mehr arbeiten.
überlege doch mal was Application.ProcessMessages; oder meine Version für NONVCL denn macht.

Aber egal es läuft ja jetzt scheinbar bei ihm und Thema erledigt.

[DieDolly]

Zitat:

Das ist quatsch

Ist es nicht.

- button click
-- for-schleife in button click
--- for-schleife arbeit
-- for-schleife ende
- button click ende


Man hängt so lange im button fest/drin, bis das Ende der Schleife erreicht ist. Deshalb ein Thread.

[venice2]

Zitat:

Zitat von DieDolly (Beitrag 1483231)

Zitat:

Das ist quatsch

Ist es nicht.

- button click
-- for-schleife in button click
--- for-schleife arbeit
-- for-schleife ende
- button click ende


Man hängt so lange im button fest/drin, bis das Ende der Schleife erreicht ist. Deshalb ein Thread.

Du verstehst es nicht.
So wie du es widergibst müßte die Anwendung innerhalb der schleife hängen tut sie aber nicht unter Verwendung von Application.ProcessMessages;
Deshalb brauche ich dafür nicht extra einen Thread.

[himitsu]

@venice2:
Nur daß dein NonVCL aber sein VCL kaputt macht, wenn er das einfach so verwendet, da er garantiert die VCL benutzt und dann dadurch mehr Probleme bekommen kann, als es löst.

Zitat:

nicht unter Verwendung von Application.ProcessMessages;

Jupp, wenn das oder Ähnliches verwendet wird, dann hängt es nicht.



Wir haben bei uns eine Variante von Application.ProcessMessages (ähnlich deinem NonVCL-Code), die aber keine Tastatur und Mausereignisse verarbeitet (überschpringt sie und lässt sie in der MessageQueue, für später ... oder Löscht sie, falls gewünscht), damit z.B. nicht während der Schleife "nochmal" auf diesen Button geklickt werden kann.

[venice2]

Zitat:

Zitat von himitsu (Beitrag 1483234)

@venice2:
Nur daß dein NonVCL aber sein VCL kaputt macht, wenn er das einfach so verwendet, da er garantiert die VCL benutzt und dann dadurch mehr Probleme bekommen kann, als es löst.

Das ist richtig.

Es sollte auch nur einen weg aufzeigen. ;)
Viele Wege führen nach Köln.