DGL • Thema anzeigen - Problem mit Snapshot

Problem mit Snapshot

Moderator: DGL-Team

Seite 1 von 1

[ 9 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

toenne

Betreff des Beitrags: Problem mit Snapshot

Verfasst: Fr Aug 22, 2008 23:07

DGL Member

Registriert: Do Aug 14, 2008 16:25
Beiträge: 15

Auch diese Frage hatte ich bereits einmal gestellt und auch diese ging im Wust unter, daher nochmals lösgelöst vom Ursprungsthread

.
Auf einem Panel wird gerendet. Davon soll dann ein Snapshot erstellt werden und dieser auf ein leeres TBitmap kopiert werden. Selbiges hat Übermass so dass die freien Bereiche zum Beschriften mittels TextOut genutzt werden können. Die Bildschirmdarstellung nutzt einen schwarzen Hintergrund derweil der Snapshot einen weissen Hintergrund haben soll (wg. Ausdruck desselben). Das fertige TBitmap wird zum Abschluss als BMP-Datei gespeichert und der Hintergrund wieder auf schwarz umgeschaltet.
WhiteHunter hatte mir schon einen prima Tip gegeben wie ich den Snapshot auf TBitmap bringe, danke dafür

.
Ein Problem hält sich aber hartnäckig: Auf manchen PCs (z.B. meinem Laptop) erscheint der Hintergrund im Snapshot nicht weiss sondern bleibt schwarz. Wobei das so eigentlich nicht ganz stimmt, während des Save-Dialogs ist der weisse Hintergrund schön zu erkennen...nur im gespeicherten BMP ist er schwarz.

Hier mal wieder der Code:

Code:

 
{***************************************************************************
 Screenshot erstellen
****************************************************************************}
procedure TForm1.ScreenShot(sender: TObject);
 var 
     BMPname     : string;
     FileInfo    : BITMAPINFOHEADER;
     FileHeader   : BITMAPFILEHEADER;
     Viewport    : array[0..3] of integer;
     RohBild,
     Bild          : TBitmap;
     i            : integer;
 
begin
 
 // Testweise um ein unkontrolliertes Rendern während des Speicherns zu verhindern - bringt
 // aber auch nix... 
 Timer1.enabled := false;  
 
 // Backgrund = weiss
 glClearColor(1, 1, 1, 0);
  
 // Bisheriges Bild löschen
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); 
 
 // Bild neu aufbauen; letzte Zeile in Render ist übrigens glFinish;
 Render;  
 
 //Snapshotroutine von WhiteHunter
 glGetIntegerv(GL_VIEWPORT, @Viewport);
 Rohbild := TBitmap.Create;
 try
 Rohbild.Width := Viewport[2];
 Rohbild.Height := Viewport[3];
 Rohbild.PixelFormat := pf24bit;
 for i := 0 to Viewport[3] - 1 do
 glReadPixels(0, Viewport[3] - i, Viewport[2], 1, GL_BGR, GL_UNSIGNED_BYTE, Rohbild.ScanLine[i]);
 
 
 // Eigentliches Bitmap mit Übermass erstellen
 Bild := TBitmap.Create;
 Bild.PixelFormat := pf24bit;
 Bild.Width := RohBild.Width + 225;
 Bild.Height := RohBild.Height + 100;
 
 // Beschriftungen einfügen
 Bild.Canvas.textout(10,Bild.Height-70 ,MaskEdit1.Text);
 Bild.Canvas.textout(10,Bild.Height-50 ,MaskEdit2.Text);
 Bild.Canvas.textout(10,Bild.Height-30 ,MaskEdit3.Text);
.
.
.
 
 // Gepuffertes Bitmap ins eigentliche Bitmap
 Bild.Canvas.Draw ( 225,0,Rohbild);
 
 // Fertiges Bitmap speichern
 BMPname := Dateipfad + '-' + DateToStr(Date);
 SaveDialog1.FileName := BMPname; 
 if SaveDialog1.Execute then BMPname:=SaveDialog1.FileName;
 Bild.SaveToFile(BMPname);
 
 finally
//  Bild.Free;       ---> Diese auskommentierten Einträge bedeuten
//  RohBild.Free;  --->  einen sicheren Programmabsturz ?!?
 end;
 
 // Background wieder auf schwarz stellen
 glClearColor(0, 0, 0, 0);
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
 // Timergesteuertes Rendern wieder freigeben
 Timer1.enabled := true;
 
end;
 

Auf meinem vergleichsweise schnellen Desktop ist alles i.O., auf meinem Laptop mit Onboard-Grafik bleibt der Hintergrund schwarz.
Aaaaber: In meiner ersten Version habe ich den Snapshot zunächst in eine BMP-Datei gespeichert, dann wieder in ein TBitmap geladen und mit dem grösseren TBitmap verheiratet. Da konnte ich mir noch helfen indem ich ganz oben nach dem ersten 'Render' eine kleine Delayroutine aufgerufen habe die das Programm 1sek beschäftigt hat. Jetzt funktioniert auch das nicht mehr, der Hintergrund des Screenshots bleibt schwarz egal welche Zeit ich dort eintrage. Wohlgemerkt aber nur in der fertigen Datei, beim Save-Dialog ist er auf dem Bildschirm weiss.

Ich habe mal irgendwo von möglichen Problemen in Zusammenhang mit Scanline gelesen (Edit: http://www.delphi-treff.de/tutorials/gr ... ps/page/2/ ), das 'richtige' Pixelformat ist aber doch eingestellt. Und könnte sich das auf verschiedenen Rechnern unterschiedlich äussern? Vielleicht könnte sich mal jemand erbarmen und das bei sich ausprobieren?

Ich bin echt ratlos, was kann das sein?...

Gruss
Toenne

Nach oben

Traude

Betreff des Beitrags:

Verfasst: Sa Aug 23, 2008 07:22

DGL Member

Registriert: Di Okt 03, 2006 14:07
Beiträge: 1277
Wohnort: Wien

Sorry, hab meinen Beitrag hier falsch gepostet.
Traude

Nach oben

toenne

Betreff des Beitrags:

Verfasst: Sa Aug 23, 2008 17:56

DGL Member

Registriert: Do Aug 14, 2008 16:25
Beiträge: 15

Hmm, wird wohl doch wieder ein Monolog...

Ich habe mal versucht herauszubekommen wo was wie schiefgeht.
Dazu habe ich als erstes bei ...

Code:

 // Bild neu aufbauen; letzte Zeile in Render ist übrigens glFinish;
 Render; 

...das 'Render' mit '//' auskommentiert, es wird also zwar der Bildschirm gelöscht aber nicht neu gezeichnet. Erfolg: Das gespeicherte Bitmap ist tatsächlich weiss.

Render sieht (verkürzt) wie folgt aus:

Code:

{***************************************************************************
 Zeichnung erstellen
****************************************************************************}
procedure TForm1.Render;
var
  BoolDummy : boolean;
 
begin
 
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  gluPerspective(1.05 * 30, Panel1.Width/Panel1.Height, NearClipping, FarClipping);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
  Distanz := -SpanneYWert/2 / tan(degtorad(30/2));
 
  glTranslatef(0,0,Distanz);
 
  if SpeedButtonPunkte.down then BoolDummy := Punkte;;
  if SpeedButtonLinien.down then BoolDummy := Linien;
  if SpeedButtonFlaechen.down then BoolDummy := Dreiecke;
 
  SwapBuffers(DC);
  glFinish;
end;
 
 

Verkürzt deswegen weil ich der übersichtlichkeit halber diverse Skalier- und Drehoptionen weggelassen habe.
Es wird aus Render heraus also je nach Status dreier Buttons in Funktionen verzweigt, exemplarisch mal die kürzeste:

Code:

{***************************************************************************
 Punkte zeichnen
****************************************************************************}
function TForm1.Punkte: boolean;
var
  u, v : Integer;
  BoolDummy : boolean;
begin
 
  for v:=1 to (WievielY-1) do
   begin
    for u:=1 to (WievielX-1) do
     begin
      glBegin(GL_points);
       BoolDummy:= RGBErmitteln(Daten[u,v]);
       glColor3f(Rot,Gruen,Blau); glVertex3f((u-WievielX/2-0.5)*Xstep,(v-WievielY/2-0.5)*Ystep, Amplitude*(Daten[u,v]-ZMittelwert));
      glEnd;
     end;
    end;
end;

Nur zur Erklärung: In einem zweidimensionalen Array sind die Z-Werte der durch u und v definierten X/Y-Koordinaten hinterlegt, das klappt auch alles tadellos.
Wie man sieht passiert hier auch nichts nervenzerfetzendes, zumindest nix was den Hintergrund betrifft.

Eines zumindest wollte ich noch probieren:
Die Snapshotfunktion beginnt mit

Code:

 // Background = weiss
 glClearColor(1, 1, 1, 0);
 
 // Bisheriges Bild löschen
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); 

...bevor nach Render verzweigt wird. Render beginnt aber auch wieder mit ' glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);' - ob dieser zweifache Aufruf hintereinander die Probleme verursacht?
Also habe ich noch eine Boolsche Variable 'SaveFlag' eingefügt die bei der Formerstellung erstmal auf False gesetzt wird. Render sieht nun so aus...

Code:

begin
  if SaveFlag = true then  glClearColor(1, 1, 1, 0) else glClearColor(0, 0, 0, 0);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

...und die Snapshotroutine so...

Code:

begin
 SaveFlag := true;
 Timer1.enabled := false;
 Render;
.
.
.
SaveFlag := false;

Das Umschalten des Bildschirmhintergrundes wird also komplett nach Render verschoben, auf dem Bildschirm ist auch alles bestens. Der Hintergrund im Snapshot bleibt aber schwarz...
Ich verstehe das einfach nicht. Würde die Snapshotfunktion selbst das Problem verursachen so müsste der Snapshot auch nach Auskommentierung von Render schwarz sein...ist er aber nicht, er ist weiss.
Render selbst schaltet den Bildschirm in oben gezeigter Fassung korrekt um was man auf dem Bildschirm auch sieht...dennoch ist der Hintergrund auf dem exportierten Bitmap aber schwarz.

Was läuft da schief, echt keiner mit irgendeiner Idee?

Gruss
Toenne

Nach oben

toenne

Betreff des Beitrags:

Verfasst: Sa Aug 23, 2008 20:24

DGL Member

Registriert: Do Aug 14, 2008 16:25
Beiträge: 15

Für den Fall dass es irgend jemanden interessiert: Ich muss am Anfang der Snapshotfunktion 'Render' zweimal hintereinander ausführen, dann klappt es wie gewünscht.
Warum? Ich habe keinen blassen Schimmer...

Gruss
Toenne

Nach oben

Emre

Betreff des Beitrags:

Verfasst: Do Aug 28, 2008 19:58

DGL Member

Registriert: Mo Jun 30, 2008 12:47
Beiträge: 69

machst doch mit BitBLT()

Edit: Ich habe es gerade an meinem Projekt probiert und es klappt wunderbar !

_________________
...GOD is wearing black...

Nach oben

Jerk

Betreff des Beitrags:

Verfasst: Do Aug 28, 2008 20:08

DGL Member

Registriert: Fr Dez 28, 2007 20:24
Beiträge: 62
Wohnort: Berlin

ignoriert mich einfach...

Nach oben

toenne

Betreff des Beitrags:

Verfasst: Do Aug 28, 2008 23:20

DGL Member

Registriert: Do Aug 14, 2008 16:25
Beiträge: 15

Emre hat geschrieben:

machst doch mit BitBLT()

Edit: Ich habe es gerade an meinem Projekt probiert und es klappt wunderbar !

Kurze Frage: Hattest du meinen obigen Code auch getestet und dabei die gleichen Probleme gehabt? Wenn die Probleme bei dir nicht aufgetreten sind dann hilft mir der Hinweis auf BitBLT leider nur eingeschränkt weiter, dann ist ja keinesfalls ausgeschlossen dass ich nicht vom Regen in die Traufe komme

.
Auf meinem Desktop-PC funktionierte ja auch alles prächtig, nur auf dem Laptop nicht :cry:

.

Gruss
Toenne

Nach oben

Emre

Betreff des Beitrags:

Verfasst: So Aug 31, 2008 23:33

DGL Member

Registriert: Mo Jun 30, 2008 12:47
Beiträge: 69

Toenne hat geschrieben:

Auf meinem Desktop-PC funktionierte ja auch alles prächtig, nur auf dem Laptop nicht Crying or Very sad .

Das ist mir auch aufgefallen:
Bei meinem aktuellen Projekt mit Lukasiver ( DP ) gehen zb. die Sprites bei ihm nicht, aber bei mir schon ... Wir haben es auch an unzähligen anderen Leuten getestet --> Bei manchen ging es und bei manchen nicht :S

Ich weiß auch nicht woran das liegt... Man sollte eher fragen ob das n allgemeiner Fehler ist .. Kann ja auch sein dass es an der Hardware liegt, woran ich aber gar nicht glaube ... Denn heutzutage wird wohl jeder Gamer ne super-duper graka haben - und sone Karte schafft es glaube ich, eine billige Sprite abzuspielen :roll:

Mich würde nun auch interessieren, warum ein Code bei Einem geht und bei einem Anderen nicht !!!

EDIT:
Und nein ich habe deinen Code nicht probiert ... :roll:

MfG

_________________
...GOD is wearing black...

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Mo Sep 01, 2008 16:28

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Die Superduper Karten müssen nicht zwangsläufig auch gut sein beim verarbeiten der Oldschool Sachen.
Ich hatte mal so ein Problem mit Texturen. Bei mir gingen nämlich non Power of 2 Texturen (obwohl der Treiber uralt war -> undokumentiertes Feature), bei allen anderen nicht. Vielleicht kann man den Fehler ja auf eine GraKa bzw. einen Hersteller einschränken.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

Seite 1 von 1

[ 9 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 7 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.