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 von 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

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 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;