TMemo (FireMonkey)

[Der schöne Günther]

Ja, ein Wunder das das Ding sich nicht aufhängt sondern tapfer weiterläuft. Aus einem Thread heraus - wie immer - nicht direkt die Oberfläche (im Hauptthread) anfassen! Wenn ich das bei mir tue, flackert es auch wie wild.

Wenn du das Anfügen in der Memo wieder mit TThread.Queue(..) oder TThread.Synchronize(..) in den Hauptthread verlagerst flackert nichts und alles läuft schön flüssig durch.

[value is NULL]

Mann Mann Mann....
DANKE!

Vermutlich blöde Frage, habe mich mit Threads nie so auseinander gesetzt.
Ich benutze dies hier zum starten meines Threads

Delphi-Quellcode:

Function StartThread(pFunction : TFNThreadStartRoutine; iPriority : Integer = Thread_Priority_Normal; iStartFlag : Integer = 0) : THandle;
var
  ThreadID : DWORD;
begin
  Result := CreateThread(nil, 0, pFunction, nil, iStartFlag, ThreadID);
  if Result <> Null then
  SetThreadPriority(Result, iPriority);
end;

...

ithread := StartThread(@importThread);

und aus "importhread" rufe ich dann die Funktionen auf. Wie könnte sowas aussehen mit Synchronize?

Danke jetzt schon mal und liebe Grüße!

[value is NULL]

vergiss es... ich lese mich selbst da ein

Danke auf jeden Fall!

[Der schöne Günther]

In der VCL verhält es sich übrigens genauso. Ich glaube da wäre das Programm schon längst aufgehangen. Ein Wunder, das das überhaupt funktioniert hat

Hinweis: Ich hatte im Delphi-Land persönlich noch nie einen Grund, Threads hart über die Windows-API zu regeln. Es sei denn, man steht auf körperliche Schmerzen. Ich finde den Weg über die TThread -Klasse (in System.Classes) eigentlich sehr, sehr angenehm gemacht. Ein gutes Tutorial habe ich zwar nicht zur Hand, aber viel steckt da auch nicht hinter.

[value is NULL]

Ich hab mir da jetzt einiges angesehen werde da aber nicht unbedingt schlau :/

zB

Delphi-Quellcode:

type
  TBinFertig = procedure(const Content: String) of object;
 
  TMyOwnThread = class(TThread)
  private
    FBinFertig: TBinFertig;
    procedure SyncBinFertig;
  public
    property BinFertig: TBinFertig read FBinFertig write FBinFertig;
  end;
 
implementation
 
procedure TMyOwnThread.SyncBinFertig;
begin
  if Assigned(FBinFertig)
    then FBinFertig(DasIstDerInhaltDerWebseite);
end;
 
procedure TMyOwnThread.Execute;
begin
  try
    // Download der Seite ...
 
    // Synchronisieren
    Synchronize(SyncBinFertig);
  except
    on e: exception do begin
      // mache hier irgendetwas mit dem Fehler.
    end;
  end;
end;

Wie würde ich hier zB meine "write" funktion einbauen ? Synchronize kann ja nicht mit Parametern umgehen soviel ich weiß oder?

[himitsu]

Zitat:

if Result <> Null then

Das ist immer ungleich NULL.

Du meintest wohl eher NIL, oder besser noch Assigned.


PS: TThread auch das Execute schon mit einem Try-Except abgesichert, da das selten jemand abfängt und wenn eine Exception in irgendinem Thread bis zur Wurzel durchrauscht, dann schießt Windows die Anwendung komplett ab.
TThread synchronisiert die letzten Events auch schon.

OnTerminate anhängen oder DoTerminate überschreiben und darin hat man im FatalException dann die durchgerauschte Exception vom Execute.

[Der schöne Günther]

Wie schon gesagt, die Arbeit mit dem SyncBinFertig brauchst du dir auch nicht mehr zu machen, genau dazu ist schon das OnTerminate -Ereignis da.

Wir können das alles gerne nochmal Schritt für Schritt durchgehen, aber das hat ja dann mit dem (eigentlich gelösten) Problem mit der flackernden Memo nichts mehr zu tun. Da würde ich dann ein neues Thema vorschlagen.