Fernsehrauschen zeichnen?

[pacman1986]

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 von H4ndy:

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

Ich mag Bunten Schnee

[H4ndy]

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 von pacman1986:

Ich mag Bunten Schnee

Denk dran: Niemals den gelben essen

[pacman1986]

Zitat von H4ndy:

Gut, dass das direkt mal getestet wurde =)

Zitat von H4ndy:

Denk dran: Niemals den gelben essen

Warum ?

[Vjay]

Zitat von pacman1986:

Warum ?

Schonmal deinen Namen in den Schnee geschrieben?

[pacman1986]

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 :

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)