Fernsehrauschen zeichnen?

[pacman1986]

Zitat:

Zitat von H4ndy

Threads sind glaub ich auch direkt mal Spatzen mit Kanonen abschießen ;)
Höstens einer würde hier passen, damit das Hauptprogramm nicht vom Zeichenvorgang
ausgebremst wird.

Ich habs Grad nachprogrammiert man merkt schon bei einem kleinen Bild das threads sinnvoll wären.

Zitat:

Zitat von H4ndy

Aso: Du erzeugst übrigends bunten Schnee ;)
Du musst für RGB dreimal den selben Wert benutzen, damit ein Grauwert entsteht.

:thumb: Ich mag Bunten Schnee :mrgreen:

[H4ndy]

Zitat:

Zitat von pacman1986

Ich habs Grad nachprogrammiert man merkt schon bei einem kleinen Bild das threads sinnvoll wären.

Gut, dass das direkt mal getestet wurde =)

Zitat:

Zitat von pacman1986

Ich mag Bunten Schnee

Denk dran: Niemals den gelben essen :mrgreen:

[pacman1986]

Zitat:

Zitat von H4ndy

Gut, dass das direkt mal getestet wurde =)

:thumb:

Zitat:

Zitat von H4ndy

Denk dran: Niemals den gelben essen :mrgreen:

Warum ? :gruebel:

[Vjay]

Zitat:

Zitat von pacman1986

Warum ? :gruebel:

Schonmal deinen Namen in den Schnee geschrieben?

[pacman1986]

:idea: :oops:
PS: wers noch net bemerkt hat, OT und ironisch

[StefanG]

wie macht man das mit threads?

Mehrere erstellen und von da aus dann jeweils einen Timer erstellen? Oo

[Klaus01]

für Threads gibt es ein Tutorial von Luckie, das findest Du hier http://www.michael-puff.de/dirindex....phi/Tutorials/

Grüße
Klaus

[Daniel G]

Oder du guckst im "Demos" - Ordner deines Delphi. Da müsste auch 'ne Thread - Demo drinne sein.

[StefanG]

Ok ich habs mal probiert so testweise.

Wenn ich folgendes mache (ohne Threads) :

Delphi-Quellcode:

procedure TForm1.Snow(image: Timage);
var
  i,j,r:integer;
begin
   For i := 1 to Image.Width do
     For j := 1 to Image.height do begin
         r := random(256);
         Image.Canvas.Pixels[i,j] := RGB(r,r,r);
         application.ProcessMessages;
     end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  Snow(Image);
end;

Ich starte das Programm, und wenn die Form erscheint, dann ist bereits das fertig gezeichnete Bild zu sehen.
Wenn ich jetzt aber ein Thread-Object erstelle :

Delphi-Quellcode:

constructor Tsnow.Create(image: TImage);
begin
  FImage := image;
  inherited Create(False);
end;

procedure Tsnow.Execute;
begin
  Snow(FImage);
end;

procedure Tsnow.SetPixels;
var
  r : Integer;
begin
  r := Random(256);
  FImage.Canvas.Pixels[FX,FY] := RGB(r,r,r)
end;

procedure Tsnow.Snow(image: Timage);
var
  i,j:integer;
begin
   For i := 1 to FImage.Width do
     For j := 1 to FImage.height do begin
         FX := i;
         FY := j;
         Synchronize(SetPixels);
         application.ProcessMessages
     end;
end;

und dieses dann erzeuge mit :

Delphi-Quellcode:

tsnow.Create(Image);

dann kann ich schön zugucken, wie Linie für Linie gezeichnet wird und es dauert etwa 20 Sekunden bis das Image gefüllt ist....
Mache ich was falsch?

[H4ndy]

Delphi-Quellcode:

For i := 1 to FImage.Width do
     For j := 1 to FImage.height do begin
         FX := i;
         FY := j;
         Synchronize(SetPixels);
         application.ProcessMessages
     end;
end;

Solltest du besser so schreiben:

Delphi-Quellcode:

For i := 1 to FImage.Width do
     For j := 1 to FImage.height do begin
         FX := i;
         FY := j;
         Synchronize(SetPixels);
     end;
end;
application.ProcessMessages;

Sonst wird Application.ProcessMessages bei jedem (!) Pixel ausgeführt,
was der Geschwindigkeit nicht gerade zuträglich ist ;)

Und wenn du ein Rauschen haben willst solltest du ins Execute schreiben:

Delphi-Quellcode:

while not Terminated do begin
  Snow(FImage);
end;

Dadurch wird Show() solange ausgeführt, bis du deinen Tread beendest/zerstörst.
(Thread.Terminate)