AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Bitmap.Canvas -> Form.Canvas ... nix zu sehen
Thema durchsuchen
Ansicht
Themen-Optionen

Bitmap.Canvas -> Form.Canvas ... nix zu sehen

Ein Thema von TERWI · begonnen am 9. Jul 2018 · letzter Beitrag vom 19. Jul 2018
Antwort Antwort
Seite 4 von 6   « Erste     234 56      
Benutzerbild von TERWI
TERWI

Registriert seit: 29. Mär 2008
Ort: D-49626
381 Beiträge
 
Delphi 11 Alexandria
 
#31

AW: Bitmap.Canvas -> Form.Canvas ... nix zu sehen

  Alt 11. Jul 2018, 18:17
Sorry, wenn es so erscheint, als wenn ich mich (bewusst oder absolut) dumm stelle ...

Wie ist den bitte "threadsicher" (genau !) definiert ?
Meiner Erkenntnis nach gilt das für den Fall, wenn (in einer Form, Unit, Methode, ...) der zeitgleiche oder auch zeit-überschreibende Zugriff auf "den selben" Datenbereich (oder Methode ?!) verhindert wird.
Gilt für lesen wie scheiben !?

Meine Form-OSD bekommt hier aber immer nur einen "Ping" von immer dem gleichen Aufrufer immer der Reihe nach. Da überschneidet sich nix. Keine weiteren Anfragen/Aufgaben anderen Threads.
Wo ist da ein Thread-Problem betreff Sicherheit ???

Bitte erkärt's mir.

Geändert von TERWI (11. Jul 2018 um 18:22 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#32

AW: Bitmap.Canvas -> Form.Canvas ... nix zu sehen

  Alt 11. Jul 2018, 18:21
Wie ist den bitte "threadsicher" (genau !) definiert ?
thread safety
Per se so, dass nur ein Thread gleichzeitig damit etwas machen darf.
Viele Komponenten verwenden aber auch globale Dinge (z.B. Default-Instanzen für Brush, Pen, Font usw.), welche auch von der Form und anderen Komponenten immer wieder zum Malen genutzzt werden ... aus dem Hauptthread heraus.

thread affinity
Bezüglich GDI+ und Dergleichen, auf welchem die VCL basiert, da dürfen/können viele Dinge nur in dem Thread verwendet werden, in welchem sie erstellt wurden.
https://blogs.msdn.microsoft.com/old...13-11/?p=33783
$2B or not $2B

Geändert von himitsu (11. Jul 2018 um 18:35 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.648 Beiträge
 
Delphi 11 Alexandria
 
#33

AW: Bitmap.Canvas -> Form.Canvas ... nix zu sehen

  Alt 11. Jul 2018, 18:22
Eine mögliche Lösung ist ein HBitmap zu verwenden und das nur in die eine oder andere TBitmap Instanz einzukoppeln. Sprich HBitmap im Thread erzeugen, an Handle einer TBitmap Instanz zuweisen, darauf zeichnen und dann nur das Handle weitergeben. Dieses Handle kann man dann im Hauptthread wieder in ein TBitmap werfen um damit zu arbeiten.

Soweit ich weiß ist das vollkommen in Ordnung dieses HBitmap in mehreren Threads weiterzureichen solange nur ein DC darauf aktiv ist. Solange keine parallelen Zugriffe erfolgen, das also ggf. gesichert wird, soweit ich weiß auch mehrere DC.

Alternativ kann man natürlich auch nur mit der API, HBitmap und DCs arbeiten, das sollte meines Wissens immer in Threads gehen solange keine parallelen Zeichenzugriffe erfolgen.

Aber das alles ist schon eine Weile her, ich würde das zur Sicherheit noch einmal nachlesen...
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat
Benutzerbild von TERWI
TERWI

Registriert seit: 29. Mär 2008
Ort: D-49626
381 Beiträge
 
Delphi 11 Alexandria
 
#34

AW: Bitmap.Canvas -> Form.Canvas ... nix zu sehen

  Alt 11. Jul 2018, 18:40
Jetzt bin ich etwas verwirrt (überfordert...)
Hier mal auszugsweise die CREATE der besagten Unit:
Delphi-Quellcode:
constructor TDATA2.Create();
begin
  inherited Create;
  ...
  FParserThread := TParserThread.Create(Self);
  FParserThread.SuspendWork;
  FParserThread.Resume;
  ...
  FFont := TFont.Create;
  FFont.Name := 'Lucida Console';
  FFont.Size := 16;
  FFont.Style := [fsBold];
  FFont.Color := clWhite;
  ...
  FBMOSD := TBitMap.Create;
  FBMOSD.PixelFormat := pf32bit;
  FBMOSD.Canvas.Brush.Color := clBlack;
  FBMOSD.Canvas.Font.Assign(FFont);
  FTextHeight := FBMOSD.Canvas.TextHeight('X');
  FTextWidth := FBMOSD.Canvas.TextWidth('X');
  FBitmapWidth := FTextWidth * 40;
  FBitmapHeight := FTextHeight * 25;
  FBMOSD.Width := FBitmapWidth;
  FBMOSD.Height := FBitmapHeight;
  _FillRect(0, 0, FBitmapWidth, FBitmapHeight, clBlack);
  ...
end;
Zur Erinnerung:
FBMOSD wird NICHT im HauptThread oder von sonstigen Threads verwurstet, sondern lediglich in einer (zuvor jedoch IM Hauptthread erzeugten) separaten OSD-Form - extra nur (hilsfsweise) für diese Unit.
Hilft das weiter ?
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.648 Beiträge
 
Delphi 11 Alexandria
 
#35

AW: Bitmap.Canvas -> Form.Canvas ... nix zu sehen

  Alt 11. Jul 2018, 20:00
In welchem Threadkontext wird denn auf die Bitmap gezeichnet? Das ist im Grunde die einzige Stelle, die wir noch nicht konkret gesehen haben. Aber das ist genau entscheidend.

Im Zweifelsfall genügt ein Stacktrace, wenn du an der Stelle einen Haltepunkt setzt und anhältst.

TData2.Create wird ja noch deinen Ausführungen im Hauptthread aufgerufen, oder?
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat
Benutzerbild von TERWI
TERWI

Registriert seit: 29. Mär 2008
Ort: D-49626
381 Beiträge
 
Delphi 11 Alexandria
 
#36

AW: Bitmap.Canvas -> Form.Canvas ... nix zu sehen

  Alt 11. Jul 2018, 20:03
Siehe #26.
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#37

AW: Bitmap.Canvas -> Form.Canvas ... nix zu sehen

  Alt 11. Jul 2018, 20:48
Hab mich vertan, tut mir leid für msg.
Gruß vom KodeZwerg

Geändert von KodeZwerg (11. Jul 2018 um 20:52 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.648 Beiträge
 
Delphi 11 Alexandria
 
#38

AW: Bitmap.Canvas -> Form.Canvas ... nix zu sehen

  Alt 11. Jul 2018, 22:13
Dort verstehe ich es so als ob der Thread durchaus mit der Ausgabe und sogar einem VCL-Formular zu tun hat:
Auch die OSD-Form (hier hilfweise als extra Form) wird von nichts & niemand anderem als genau diesem Thread aufgerufen. M.E.n kann also auch da kein Konflikt auftreten.
Beides ist aber aus einem Thread heraus verboten.

Ich habe nicht umsonst (mit wenig Resonanz leider) den Beginn einer Multithread-Komponentenbibliothek veröffentlicht, eben weil Threads und VCL nicht zusammen funktionieren:
https://github.com/jaenicke/MTCL
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat
Benutzerbild von TERWI
TERWI

Registriert seit: 29. Mär 2008
Ort: D-49626
381 Beiträge
 
Delphi 11 Alexandria
 
#39

AW: Bitmap.Canvas -> Form.Canvas ... nix zu sehen

  Alt 12. Jul 2018, 12:14
...Beides ist aber aus einem Thread heraus verboten.
Gut, sei es einfach eben mal so.
Allerdings - siehe #20 - scheint es ja zu funktionieren. Auch Image1.Picture.Assign(BitMap); geht.
X andere Versuche mit Draw, CopyRect, BrushCopy auf (irgendein) Canvas funzen nicht, bzw. nur (sehr ) kurz.

Und:
Das Geflacker scheint offensichtlich eine ganz andere Ursache zu haben -> nämlich in der "Malerei" der Ursprungs-Bitmap, also FBMOSD.

Die Katze mal aus dem Sack gelassen:
Das ganze ist/wird ein DVB-Teletext-Parser, der etwas flotter, universeller mit ein paar extra Features sein soll.
Zur Zt. fliegen da noch etwa bis zu 20 BitMaps/s an die OSD, weil der Decoder noch nicht optimiert ist, bzw. noch Fehler im Detail stecken.
Durch Fehlinterpretation von Steuerzeichen kommt es daher unregelmäßig zu diesen "Flashes", wenn mit clWHite das BitMap gelöscht wird.
Ein Eigentor .....

Nun mal schauen, wie es mit dem schreiben der BM direkt in den Video-Renderer klappt, das richtige OSD also.

Vergessen:
Ich hab testweise den ParserThread rausgenommen, nun läuft alles "straight" aus der OnTSReceive Methode.
Effekt: (Erwartungsgemäß) Genau das gleiche Geflacker wie mit Parser.
Es lieht also nicht am Thread.

Geändert von TERWI (12. Jul 2018 um 12:20 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.648 Beiträge
 
Delphi 11 Alexandria
 
#40

AW: Bitmap.Canvas -> Form.Canvas ... nix zu sehen

  Alt 12. Jul 2018, 12:56
Das Flackern liegt an der Art zu zeichnen. Wenn du TImage benutzt, wirst du das auch nicht wegbekommen. Das geht wirklich nur indem du im OnPaint selbst zeichnest. Damit lässt sich das weitgehend unter Kontrolle bekommen.

Viel sinnvoller wäre aber eine hardwarebeschleunigte Herangehensweise. Dann ist das ganze nicht so CPU lastig und flackert auch nicht. Delphi 2009 bietet da allerdings leider noch nichts direkt, da brauchst du externe Bibliotheken.
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 4 von 6   « Erste     234 56      

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz