Kurzzeitiges Einfrieren der Anwendung nach Erstellung dynamischer Forms

[Darkface]

Hiho DP'ler,

Ich bin gerade etwas ratlos und hoffe ihr habt eine Idee zur Lösung meines Problems .

Ich habe ein kleines IRC Client Programm per Indy TidIRC geschrieben. Es hat eine (Main)Form, dort wird die Verbindung aufgebaut und ein kleines Status Fenster zeigt an wie der Connection-Status ist. Nun soll für jeden Channel dem ich beitrete ein weiteres Fenster aufgehen. Auf diese dynamisch zur Laufzeit erstellen Forms haue ich noch je ein Panel und ein Memo drauf. Später will ich dann jede Nachricht die ankommt dem richtigen Fenster zuweisen und in dessen Memo ausgeben. Doch schon davor gibt es ein Problem. Bisher werden nur die Fenster+Panel+Memo erstellt, die Nachrichten die ankommen werden noch im "Main-Form-Memo" ausgegeben. Sobald die Fenster erstellt sind friert das Programm ein. Wenn ich zum Beispiel eines der Fenster verschieben möchte passiert nichts. Sobald jedoch eine Nachricht hereinkommt und ausgegeben wird werden alle Bewegungen vollzogen, danach friert wieder alles ein bis zur nächsten Nachricht. Wie kann ich das verhindern und ein verschieben der Forms sofort vollziehen?

TidAntiFreeze macht seinem Namen nicht alle Ehre und bringt hier nichts.

Ein wenig Code...:
Das hier steht in einer Schleife, die dynamische Erstellung der benötigten Fenster.

Delphi-Quellcode:

    setlength(Forms,length(Forms)+1);
    Forms[length(Forms)-1]:=TForm.Create(self);
    with Forms[length(Forms)-1] do begin
        ClientWidth:=Form1.ClientWidth;
        ClientHeight:=Form1.ClientHeight;
        Color:=clGreen;
        Caption:='Immer wieder Sonntags...';
        Visible:=True;
        Show;
    end;

    setlength(Panels,length(Panels)+1);
    Panels[length(Panels)-1]:=TPanel.Create(Forms[length(Forms)-1]);
    with Panels[length(Panels)-1] do begin
        Width:=Forms[length(Forms)-1].ClientWidth;
        Height:=Forms[length(Forms)-1].ClientHeight;
        Color:=clGreen;
        Enabled:=True;
        Visible:=True;
        Parent:=Forms[length(Forms)-1];
    end;

    setlength(Memos,length(Memos)+1);
    Memos[length(Memos)-1]:=TMemo.Create(Panels[length(Panels)-1]);
    with Memos[length(Memos)-1] do begin
        Width:=Forms[length(Forms)-1].ClientWidth;
        Height:=Forms[length(Forms)-1].ClientHeight;
        Color:=clGreen;
        Visible:=True;
        Parent:=Panels[length(Panels)-1];
    end;

Die Ausgabe einer Nachricht auf der MainForm

Delphi-Quellcode:

procedure TForm1.PrivMsg(ASender: TIdContext; const ANicknameFrom, AHost, ANicknameTo, AMessage: string);
var Nickname, Nachricht:string;
begin
  Application.ProcessMessages;
  Nickname:=ANicknameFrom;
  delete(Nickname,1,1);                                          //Nickname von LEERZEICHEN befreien
  Nachricht:=copy(MsgText,2,pos(' :',MsgText)-1);                //MsgText wird in TForm1.ReciveRaw befüllt
  delete(MsgText,1,pos(' :',MsgText)+1);                         //und bearbeitet
  Ausgabe.Lines.Add(ANicknameTo +' / '+Nickname +': ' +MsgText); //Ausgabe ist ein TMemo
end;

Jemand eine Idee wo der Fehler/das Problem liegen könnte?

MfG Dark

[samso]

Alle Indy Komponenten arbeiten im Blocking-Modus. Solange sie auf eine Message warten, ist die Anwendung gerne mal blockiert. Schaue Dir doch mal TIdAntiFreeze an oder verlege die Indy-Komponenten in einen eigenen Thread.

[SirThornberry]

Zitat:

Das hier steht in einer Schleife, die dynamische Erstellung der benötigten Fenster.

Kannst du mal die komplette Schleife inklusive des Schleifenkopfes zeigen? Wie lange läuft denn die Schleife und werden innerhalb der Schleife auch Windows-Nachrichten abgearbeitet?

[Darkface]

Zitat von samso:

Alle Indy Komponenten arbeiten im Blocking-Modus.

TIdAntiFreeze habe ich schon drin, (Created und dann auf Active geschaltet). Gibt es bei IDAntiFreeze / IDIrc denn Möglichkeiten die Komponenten auf Non-Blocking zu stellen?

Zitat von SirThornberry:

Kannst du mal die komplette Schleife inklusive des Schleifenkopfes zeigen? Wie lange läuft denn die Schleife und werden innerhalb der Schleife auch Windows-Nachrichten abgearbeitet?

Würde ich dir zeigen, habe aber den Code auf dem zweit Rechner den ich erst heut abend wiedersehe ^^. Jedoch kann ich dir sagen das die Schleife ausgeführt wird wenn IRC die "end of /MOTD" Zeile vom Server empfängt. Also nur einmal je IRC-Connect. Sie läuft dann exakt die Anzahl an durchgängen wie es Channel gibt denen gejoint werden soll. On ein ProcessMessages drin ist weis ich nicht, allerdings läuft die Schleife ja nur ein paar Millisekunden - das wird nicht diese Freezes erklären. (Beim Schrittweisen Debuggen ist er auch ordnungsgemäß nach x Durchläufen aus dieser Schleife rausgegangen.)

[DataCool]

Hi,

Zitat:

Gibt es bei IDAntiFreeze / IDIrc denn Möglichkeiten die Komponenten auf Non-Blocking zu stellen?

Nein, Indy arbeitet nunmal mit Blocking Sockets und ich für meinenTeil finde das auch gut so !

Hast Du schonmal bei Deinem Antifreeze die Eigenschaft ApplicationHasPriority=true und OnlyWhenIdle=false gesetzt ?

Die definitiv bessere Variante ist wie schon weiter oben vorgeschlagen die Kommunikation des Clients in einen Thread auszulagern.

Greetz Data

[Sailor]

Hi,
Parent ist m.M. nicht gesetzt.
Nach dem Erstellen einer Komponente
muß die ja irgendwo eingehängt werden.
Parent.Panel = kreierte Form, Parent
der Form = MainForm.

[Darkface]

Zitat von DataCool:

Hast Du schonmal bei Deinem Antifreeze die Eigenschaft ApplicationHasPriority=true und OnlyWhenIdle=false gesetzt?

Diese Eigenschaften haben keine Verbesserung erbracht.

Zitat von DataCool:

Die definitiv bessere Variante ist wie schon weiter oben vorgeschlagen die Kommunikation des Clients in einen Thread auszulagern.

Ja da gehe ich auch mit, wäre natürlich schön gewesen das mit nem Antifreeze - zwei Zeiler zu lösen. Werde den ganzen IDIrc in einen Thread schmeißen.

[Darkface]

Tja ich musste gerade feststellen das es an den dynamischen Forms liegt . Hau ich die Raus läuft das Programm freeze-frei - egal ob ich IdIRC auslager oder nicht. Sobald ich die Forms erstelle gehts steil bergab. Wie kann ich das lösen? Die Forms in einen eigenen Thread hauen geht wohl angeblich nicht weil die VCL nicht Threadsafe ist (hab ich gelesen). Kann das jemand bestätigen?

EDIT: Mit neuen zur Designzeit erstellten Forms freezt es leider genauso.