Thread mit Rückgabewert

[dk3wx]

Hallo,
komme einfach nicht mehr weiter.

Ich starte einen Thread und übergebe ein Bild (Diagrammfläche)

Im Hauptprogramm:
mthd:=Diagramm.Create(PaintBox1);
with mthd do mthd.OnTerminate := ThreadDone;

Im Thread
constructor Diagramm.Create(Box: TPaintBox);

Die Execute-Methode schreibt Messkurven in diese Zeichenfläche und malt diese auch auf den Bildschirm. Dazu benutze ich Synchronize.

Das Funktioniert recht gut.

Mein Problem:
Wenn ich den Thread beende, steht das Bild auch noch auf dem Bildschirm aber ich komme nicht mehr dran um es ggf. auszudrucken.
Was ich brauche ist eine Rückgabe des Bildes aus dem Thread in mein Hauptprogramm. Habe leider keine Idee mehr wie ich das hinbekomme

Tnx Bernd

[Bernhard Geyer]

Lass den Thread in einen TBitmap-Instanz schreiben und dieses Bild kannst Du alle 1/2 Sekunden vom Programm zeichnen lassen (Für Fortschritt) und am Ende der Thread-Lebensdauer kopierst Du es halt ins Hauptprogramm.

[dk3wx]

Hallo Bernhard,
das habe ich mit

Form1.PaintBox1.Canvas := Diabox.Canvas;

vor dem Beenden versucht. Da meckert der Compiler das er nicht darf

[Fehler] Unit2.pas(163): E2129 Einer Nur-Lesen Eigenschaft kann kein Wert zugewiesen werden

Und wenn der Thread erst mal beendet ist, stehen wohl auch die Variablen nicht mehr zur Verfügung.
ich versuche mal eine Procedure aus dem Hauptprogramm, der ich das Bild übergebe

Bernd

[dk3wx]

Hallo,
Problem erledigt.

Habe im Hauptprogramm eine

procedure TForm1.getDBmp(Bild : TPaintBox);
begin
PaintBox1:= Bild;
end;

geschaffen, die im Thread gerufen wird

procedure Diagramm.GiveDBmp();
begin
Form1.getDBmp(DiaBox);
end;

Es geht ggf. eleganter, aber nun habe ich eine Lösung. ;-)

Danke Bernd