Alternative zu Sleep

[EWeiss]

PUSH .. Sorry ja ich weiss

Was mich an der ganzen sache doch sehr verwundert.
Das fast gleiche Projekt in Visual Basik/Delphi geschrieben
Visual Basik macht keine thread probleme ist um ein vielfaches schneller was den aufbau der Bitmap
Container Form für die Winamp Visualisierung angeht.
In Delphi kann ich sehen wie träge sich die Form beim aufbau verhält.

Eigentlich sollte das umgekehrt sein da die DLL und das Projekt in Delphi geschrieben sind.

[EWeiss]

Zitat:

Zitat von sirius

Ich hätte jetzt mal spontan auf waitforsingleobject getippt

Werde das mal testen und an stelle von Sleep verwenden...

gruß

[alzaimar]

Hi

Ich vermute, Du hast einen 'Denkfehler': Du kannst doch nicht irgendwie eine konstante Zeit warten, bis jemand anderes mit seiner Arbeit fertig ist. Ich meine, natürlich kannst Du das, aber das ist eben nicht richtig.
Ebensowenig, wie in der Hauptanwendung 'sleep' aufzurufen.

Na gut, im Prinzip benötigst Du so etwas:

Code:

...
  Task1;
  Wait Until Task1 is finished;
  Task2;
  Wait Until Task1 is finished;
...

Verstehe ich das richtig? Und die Tasks sind einzelne Threads, richtig?

Du könntest eine Kette einrichten, sodaß Task1 über sein 'OnTerminate'-Ereignis Task2 anstößt, der wieder Task3 usw.

Dann musst Du nur Task1 starten und die Welt ist 'vordergründig' in Ordnung, denn alle Tasks laufen ja im Hintergrund (wenn die Tasks als Threads deklariert sind).

Ansonsten gäbe es noch die Möglichkeit, die Synchronisation der Tasks/Threads mit Events zu steuern. Das empfiehlt sich dann, wenn die Threads zwischendurch mal eine Teillösung fertig gestellt haben, und einem anderen Thread mitteilen sollen, das der jetzt weitermachen kann.

[negaH]

Ich schließe mich Alzaimar an.

DU machst einen Denkfehler, bzw. gleich mehrere

1.) du meinst das Delphi an einer Sache Schuld ist die es nicht verzapft hat, Windows ist Ereignisorientiert wie auch Linux und da kann man nicht einfach mal so eine Zwangspause per Sleep() einlegen. Bzw. man kann es es ist aber absolut kontraproduktiv. Man nimmt dann einen Timer -> Ereignisorientiert
Du beschwerst dich also über eine Funktionsweise die absolutes Grundlagenwissen ist heutzutage.

2.) Wenn du denoch eine Zwangspause einlegen möchtest und mit "Delay revisited" die Anwendung nicht einfrieren lässt, was du ja auch haben möchtest, dann sind alle Ereignisbasierten Methoden, also auch .OnClick() NICHT mehr reentrant. Sie können also "verschachtelt" aufgerfuen werden wärend sie mit Delay() noch warten. Auch dies ist eine Folge eines Ereignisorientierten Systemes und ganz normal. DU hast dich also darum zu kümmern das der Aufruf von Delay() wieder reentrant wird, wenn du das schon benutzen möchtest. Dazu legst du eine Variable in deinem Form an, einen Zähler den du inkrementiert vor Delay() und dekrementierst nach Delay(). Solange dieser Zähler gleich Null ist darfst du Delay() aufrufen ansonsten kehrt deine OnClick() Methode ohne Aktionen sofort zurück. Noch besser ist es aber den Button der das OnClick() aufruft zu disablen, vergiß auch nicht das OnClose() des Form zu berücksichtgen.

Ergo: möchte man warten und das dabei die Anwendung nicht einfriert so muß man asynchron zum Normalablauf des Programmes Application.ProcessMessages aufrufen. Wenn man dies tut so muß man damit leben das alle Botschaftsorientierten Methoden auch nicht mehr Reentrant sind, das betrift auch die Freigabe der Formulare (hier sind bei falscher Anwendung Exceptions zu erwarten).

Das Grundproblem beginnt aber schon damit das der Programmierer in einem Ereignisorientiertem System innerhalb einer Eregnismethode eine Zwangspause einlegen möchte. Diese Sichtweise ist falsch.

Gruß Hagen

[EWeiss]

@Sirius

Zitat:

Werde das mal testen und an stelle von Sleep verwenden...

Ja so läuft es besser zumindest geht der aufbau der Form schneller von statten.

@alzaimar
Task/Thread das ist die Frage und ob ich warten muss oder nicht.
Theoretisch brauchte ich das nicht.

Delphi-Quellcode:

procedure TfrmMain.optGenClick(Sender: TObject);
begin
  // Terminate Plugin
  frmMain.Button2Click(Sender);
  // Wait befor new Plugin run.
  Delay(200);

  frmMain.Button1Click(Sender);
  // Wait new Plugin initialized
  Delay(200);
  // Play
  frmMain.Button6Click(Sender);
end;

Wenn ich das Button2Click event auslöse kann und muss ich davon ausgehen das dieses erst abgearbeitet wird bevor
das Button1Click event ausgelöst wird.
Allerdings arbeitet das Plugin BassVis immer noch im Hintergrund und ist mit der terminierung des Winamp Plugin beschäftigt.
Deshalb das Delay hinter Button2Click.

Das bedeutet!
Ist der Thread in BassVis nicht beendet und ich führe eine neue Funktion aus dann kommt es zu problemen
Aber ob das nun mit dem zeichnen der Bitmaps etwas zu tun hat das ist die Frage.
Dürfte es eigentlich nicht.

Der Fehler ist wieder aufgetreten in dem Moment wo ich den RenderTimer für die Winamp Plugins erhöht habe.
Sehr seltsam das ganze.
In VB habe ich die Probleme alle nicht. (Soll jetzt kein vergleich mit Delphi sein) sondern lediglich
ein Hinweis das es dort geht und in Delphi nicht.

Habe das project ja gestern hochgeladen.. hat aber nur 1 geladen.
Nur wie will jemand helfen wenn er sich nicht mal das Project läd und es sich anschaut. :cry:

So sieht es nun aus.
Wenn Timing probleme auftreten.

gruß

[EWeiss]

@Hagen

Zitat:

du meinst das Delphi an einer Sache Schuld ist die es nicht verzapft hat

Nein! Ganz deutlich nochmal falls da etwas verkehrt herübergekommen ist.

Mir geht es nicht darum wer das problem verursacht
sondern darum warum es auftritt.
Deshalb hatte ich ja auch den Source gestern hochgeladen damit es sich jemand anschauen kann.

Es geht auch jetzt nicht um Delphi/Vb sondern darum das es auf der einen Seite geht und auf der anderen nicht.
Obwohl die gleiche DLL das gleiche Plugin und die gleichen Routinen(in etwa) verwendet werden.

Das begreife ich nicht.

gruß

[alzaimar]

Zitat:

Zitat von EWeiss

Habe das project ja gestern hochgeladen.. hat aber nur 1 geladen.
Nur wie will jemand helfen wenn er sich nicht mal das Project läd und es sich anschaut. :cry:

Ich bin blind. Wo denn?

[EWeiss]

Zitat:

Zitat von alzaimar

Zitat:

Zitat von EWeiss

Habe das project ja gestern hochgeladen.. hat aber nur 1 geladen.
Nur wie will jemand helfen wenn er sich nicht mal das Project läd und es sich anschaut. :cry:

Ich bin blind. Wo denn?

Hat sich erledigt habe den Fehler gefunden was die Bitmaps angeht.

gruß

[Michael Habbe]

Zitat:

Zitat von EWeiss

Hat sich erledigt habe den Fehler gefunden was die Bitmaps angeht.

gruß

Und? Was wars???

[EWeiss]

Zitat:

Zitat von Michael Habbe

Zitat:

Zitat von EWeiss

Hat sich erledigt habe den Fehler gefunden was die Bitmaps angeht.

gruß

Und? Was wars???

Der unterschied zwischen VB und Delphi ist das VB bei der initialisierung der Form automatisch in die
FormResize event springt bei Delphi ist das nicht so.
Deshalb fehlten mir die coordinaten der Bitmaps die dann nicht auf die richtige position gesetzt wurden.
Habe es nun umstruckturiert so das Delphi dazu gezwungen wird in diese procedure zu springen.

Seltsamerweise funktionierte es ja ab und zu.
Frag mich jetzt nicht warum .. KA

Hier ist der Source und ein Pic
Für verbesserungs vorschläge bin ich immer zu haben. :mrgreen:

gruß