DGL • Thema anzeigen - Texture zur laufzeit laden

Texture zur laufzeit laden

Moderator: DGL-Team

Seite 2 von 3

[ 31 Beiträge ]

Gehe zu Seite Vorherige 1, 2, 3 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Robert S

Betreff des Beitrags:

Verfasst: Mi Mai 25, 2005 17:09

DGL Member

Registriert: Mi Apr 13, 2005 16:06
Beiträge: 67
Wohnort: Fulda

Seth hat geschrieben:

kannst doch die bilder per programmstart laden, obwohl, wäre ein problem, weil das mächtig viele sind ...
man könnte auch zwischendurch ein paar bilder mehr laden, aber das wäre wohl auch nicht so schön aber die einzige Lösung die mir für das Problem einfällt, oder du lädts die bilder in ne avi und spielst die dann ab, nach dem abspielen kannst sie dann wieder löschen

Nun, bei 115.000 Bilder á 40 kB sinds gerade mal knapp 4,5 GB. Eine avi-Datei würde dementsprechend auch nicht gerade ganz klein werden. Und wenn ich das richtig verstanden habe, wird ja erst während des Progammablaufs entschieden, in welcher Reihenfolge die Bilder reinkommen.

Wenns so aussieht wie auf dem Screenshot dann ists ja schon ganz schick. Aber trotzdem: Totaler Overkill mit den ganzen Bildern.

@Finalspace:
Was für Streckeninfos sind denn in der Access-DB abgelegt? Wäre es darauf aufbauend möglich, das ganze komplett mit OGL darzustellen?

Robert

Nach oben

Tokter

Betreff des Beitrags:

Verfasst: Mi Mai 25, 2005 17:59

DGL Member

Registriert: Fr Dez 19, 2003 14:27
Beiträge: 107
Wohnort: Indianapolis, USA

Also ich habe mein Idee mit den Thread befuellten Buffer mal ausprobiert, hier zum downloaden und verbesseren:
http://www.luedin.com/JpegPlayer.zip 2.5MB

Auf meinem Arbeits Rechner mit 2GHz und uralt GeForce2 MX, habe ich etwa 65ms pro frame. Was sicher auch helfen wuerde waere die Bilder in ein OpenGL freundlicheres 512*512 format zu skalieren, dabei verliert man ja nicht soo viel vom Bild.
Wenn ich direkt BMP's verwende dauerts nur noch 20ms pro frame.

Nach oben

Finalspace

Betreff des Beitrags:

Verfasst: Mi Mai 25, 2005 19:41

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Nice Tokter, wirkt gut ich hab hier ca. 40ms

Die Buffermethode können wir aber alledings nicht benutzen, da ja abhängig von Geschwindigkeit und Ort die Bilder sehr schnell wechseln oder viele bilder doppelt oder dreifach vorkommen.
Es muss sogar möglich sein direkte sprünge zu machen.

Hab sowas ähnliches auch schon gebaut, allerdings suckt meine methode total da ich ganz primitiv 2 array Buffer festgelegt habe und immer die arrays wechsle.

Deine methode wirkt sehr gut, das mit dem Mutex und so kannte ich gar nicht.

Hab mal meine methode mit samt source attached.

Bilder generiert es auch welche, also testen geht einfach

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Nach oben

Tokter

Betreff des Beitrags:

Verfasst: Mi Mai 25, 2005 20:19

DGL Member

Registriert: Fr Dez 19, 2003 14:27
Beiträge: 107
Wohnort: Indianapolis, USA

Habe mir gerade ueberlegt man koennte doch gleich 4 Bilder in eine 1024*1024 Textur packen, dann wuerde sich der lade und dekomprimier Vorgang auf 4 Frames aufteilen. Aber wenn natuerlich jedes Bild gezielt angesprungen werden muss machts das natuerlich schwierig.
Da Festplatten Platz ja nichts kostet

, waere es doch dann am einfachsten es halt umkomprimiert zu Speichern, das sollte dann ja ziemlich fluessig sein.

Nach oben

Finalspace

Betreff des Beitrags:

Verfasst: So Mai 29, 2005 20:53

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

So habs nun geschafft... pro frame brauch ich nur noch ca. 15 ms bei dem DVSD Videoformat.
Als XVid enkodiert brauch ich sogar weniger, 4-6 ms

Gelöst hab ichs über (Video For Windows) und OpenGL.
Das Problem mit den "720x576" Textures hab ich hier an meinem Rechner mit GF 6800 nicht mehr da diese ja das nette feature "GL_ARB_texture_non_power_of_two" bietet

Werd meinem chef deshalb sagen er soll ne 6800 kaufen

Was jetzt noch fehlt ist eine ASM optimierte BGR > RGB konvertierung, weil meine suckt man total:

BGR Format:
Bild

Ins RGB konvertiert:
Bild

Code:

 
  ' BGR nach RGB konvertieren
  Dim i As Long
  Dim R As Byte
  Dim B As Byte
  For i = 0 To (VideoWidth * VideoHeight) - 1
    R = VideoData(i * 3 + 0)
    B = VideoData(i * 3 + 2)
    VideoData(i * 3 + 0) = B
    VideoData(i * 3 + 2) = R
  Next i
 

so siehts aus, ist super langsam

In Delphi könnte ich einfach ne schnelle ASM routine basteln die das machen würde, aber in VB :ppp

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: So Mai 29, 2005 21:09

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

Wenn du kein Mipmapping brauchst, kannst du auch GL_TEXTURE_RECTANGLE_* als Texture Target benutzen. Das können fast alle Karten.

Nach oben

Finalspace

Betreff des Beitrags:

Verfasst: Mo Mai 30, 2005 13:29

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

k die VFW routine suckt total...

Hab mir jetzt nen eigenes einfaches Video Format gemacht, welches ich drin seeke, das jeweilige Bild als JPEG hole und via TJpegImage.LoadFromStream dekodiere und dann an nen TBitmap assigne :p

Frage aber noch, wie funzt das mit dem GL_TEXTURE_RECTANGLE genau ?
ich finde da mal gar nix brauchbares dazu im netz...

im DGL header finde ich nur "GL_TEXTURE_RECTANGLE_NV".

und das einfach als Texture Target funzt nicht

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mo Mai 30, 2005 13:46

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Habe ich gerade erst gesehen. Wieso willst du in deinem Programm eigentlich von BGR nach RGB umwandeln? Kannst doch beim hochladen der Daten angeben, dass die BGR als Format haben.

Extension: Und in diesem Dokument findest du alles Wissenwerte was es über die Extension GL_ARB_texture_rectangle zu wissen gibt.

Wenn ich da mal den Overview zitieren dürfte.

Zitat:

NPOTS textures are accessed by dimension-dependent (aka
non-normalized) texture coordinates. So instead of thinking of
the texture image lying in a [0..1]x[0..1] range, the NPOTS texture
image lies in a [0..w]x[0..h] range.

This extension adds a new texture target and related state (proxy,
binding, max texture size).

Sprich. Du hast ein neues Texturtarget und die Texturkoordinaten befinden sich nicht im Bereich von 0..1 sondern 0..h oder 0..w. Ich denke mal das sollte ausreichen.

Die Konstanten (Target) findest du im bereich "New Tokens".

PS: NV und EXT ist 100%tig das Selbe wie die ARB bis auf, dass die Namen anders sind.

Nach oben

Grizzly

Betreff des Beitrags:

Verfasst: Mo Mai 30, 2005 16:24

DGL Member

Registriert: Sa Nov 13, 2004 11:00
Beiträge: 229
Wohnort: Steinhude

oder die Daten direkt als rgb abspeichern.

btw. ich bin mir grad nich ganz sicher, aber geht bei VB schleifen nicht ne step-Angabe bei For-Schleifen? dadurch würden in deiner Prozedur immerhin schonmal nen paar arithmetische operationen gespart (kA wie weit VB das optimiert).

Nach oben

Finalspace

Betreff des Beitrags:

Verfasst: Di Mai 31, 2005 19:33

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

So habs nun endgültig fertig:

Hier ist der code für meine DLL welche ich in VB nutze:

Code:

 
library texloader;
 
uses
  Windows,
  SysUtils,
  Classes,
  OpenGL,
  Graphics,
  jpeg,
  glbmp;
 
function DLoadTexture(const Filename : PChar; var TextureID : GLUint) : Boolean; stdcall;
var
  Tex  : TGLBmp;
begin
  Tex := TGLBmp.Create;
  try
    Tex.LoadImage(PChar(Filename));
    Tex.FlipVert;
    Tex.SetFilter(GL_LINEAR_MIPMAP_LINEAR,GL_LINEAR);
    Tex.GenTexture;
    TextureID := Tex.TextureID;
    Result := True;
  except
    TextureID := 0;
    Result := False;
  end;
end;
 
type
  TDeltaVideoHeader = packed record
    NumIndexTableEntrys : Cardinal;
    Width,
    Height              : Cardinal;
    Bits                : Byte;
    Codec               : DWord;
  end;
 
  TDeltaVideoIndexTableEntry = packed record
    Offset     : Cardinal;
    Size       : Cardinal;
  end;
 
var
  FS  : TStream;
  HDR : TDeltaVideoHeader;
  Idx : array of TDeltaVideoIndexTableEntry;
  BildDaten : TBitmap;
 
const
  GL_BGR = $80E0;
 
procedure glBindTexture(target: GLenum; texture: GLuint); stdcall; external opengl32;
procedure glGenTextures(n: GLsizei; var textures: GLuint); stdcall; external opengl32;
procedure glTexSubImage2D(target, level: GLenum; xoffset, yoffset : GLint; width, height : GLsizei; format, _type : glEnum; pixels : Pointer); stdcall; external opengl32 name 'glTexSubImage2D';
 
function CreateTexture(Width, Height : Integer; pData : Pointer) : glUint;
begin
  glGenTextures(1, result);
  glBindTexture(GL_TEXTURE_2D, result);
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); { only first two can be used }
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); { all of the above can be used }
  glTexImage2D(GL_TEXTURE_2D, 0, 3, Width, Height, 0, GL_BGR, GL_UNSIGNED_BYTE, pData);
end;
 
function DLoadVideo(const Filename : PChar; var TexID : gluint) : Boolean; stdcall;
begin
  Result := False;
  FS := TFileStream.Create(Filename, fmOpenRead);
  try
    FS.Seek(0, soFromBeginning);
    FS.Read(HDR, SizeOf(HDR));
 
    SetLength(Idx, HDR.NumIndexTableEntrys);
    FS.Read(Idx[0], SizeOf(TDeltaVideoIndexTableEntry) * HDR.NumIndexTableEntrys);
 
    if (HDR.Width > 0) and (HDR.Height > 0) then
    begin
      BildDaten := TBitmap.Create;
      BildDaten.Width := HDR.Width;
      BildDaten.Height := HDR.Height;
      BildDaten.PixelFormat := pf24bit;
      BildDaten.Canvas.Brush.Color := clBlue;
      BildDaten.Canvas.FillRect(Rect(0,0,HDR.Width,HDR.Height));
    end
    else
    begin
      FS.Free;
      Exit;
    end;
 
    TexID := CreateTexture(HDR.Width, HDR.Height, BildDaten.ScanLine[HDR.Height-1]);
 
    Result := True;
  except
    if Assigned(BildDaten) then BildDaten.Free;
    FS.Free;
  end;
end;
 
procedure DGetVideoInfo(var NumPics, Width, Height : Longint; var Bits : Byte); stdcall;
begin
  NumPics := HDR.NumIndexTableEntrys;
  Width := HDR.Width;
  Height := HDR.Height;
  Bits := HDR.Bits;
end;
 
procedure DGetVideoData(PicNum : Longint); stdcall;
var
  NeuePos  : Longint;
  NeueSize : Longint;
  JpegStr  : TMemoryStream;
  jpg      : TJpegImage;
begin
  if Assigned(BildDaten) and Assigned(FS) then
  begin
    if (PicNum >= Low(Idx)) and (PicNum < High(idx)) then
    begin
      NeuePos := Idx[PicNum-1].Offset;
      NeueSize := Idx[PicNum-1].Size;
      FS.Seek(NeuePos, soFromBeginning);
      JpegStr := TMemoryStream.Create;
      JpegStr.Size := NeueSize;
      FS.Read(JpegStr.Memory^, NeueSize);
      jpg := TJpegImage.Create;
      jpg.LoadFromStream(JpegStr);
      BildDaten.Canvas.Draw(0,0,jpg);
      glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, Hdr.Width, Hdr.Height, GL_BGR, GL_UNSIGNED_BYTE, BildDaten.ScanLine[Hdr.Height-1]);
      jpg.Free;
      JpegStr.Free;
    end;
  end;
end;
 
procedure DCloseVideo; stdcall;
begin
  if Assigned(BildDaten) then BildDaten.Free;
  if Assigned(FS) then FS.Free;
end;
 
exports
  DLoadTexture name 'DLoadTexture',
  DLoadVideo name 'DLoadVideo',
  DGetVideoInfo name 'DGetVideoInfo',
  DGetVideoData name 'DGetVideoData',
  DCloseVideo name 'DCloseVideo';
 
begin
end.
 

Thx an alle die mir bisher geholfen haben !

Denke mal das man da nicht mehr viel optimieren kann, ausser halt alles selbst machen, ohne TJpegImage und dem TStream.
Wenn wer lust hat, da was optimiertes zu schreiben kann das gerne tun, desto schneller desto besser

Mit der momentanen lösung schaff ichs unter 30 ms zu bleiben an meiner maschine hier, 3 ghz p4, 1 gb ram, gf 6800.

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Di Mai 31, 2005 20:05

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Kann es sein, dass dein DLoadTexture ne fettes Speicherloch hinterlässt? Ich könnte dir da meinen Loader empfehlen. Der Lädt die Bilder gleich richtig rum. Also kein FlipVert nötig. Und du kannst die Klasse freigeben, ohne das die Textur gelöscht wird. Wenn man denn nicht gleich mit der Proceduralen Lösung arbeiten will.

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Di Mai 31, 2005 20:09

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

Wenn du das von VB aus nutzen willst, macht doch am besten ein COM Objekt draus. Da kannst du dann die DLL als Referenz hinzufügen und hast die Klasse in VB.

Nach oben

Finalspace

Betreff des Beitrags:

Verfasst: Di Mai 31, 2005 23:49

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Jo hab ich auch festgestellt mit dem Speicherleck...
is gefixed nun.

Nach oben

Finalspace

Betreff des Beitrags:

Verfasst: Mi Jun 01, 2005 16:26

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

So ist nun alles gegegelt

Hab die DLL bissel optimiert welches ich unten gepostet habe.
Chef hat GF 6800 GT PCI-E karte gekauft heute, eingebaut... Dauert pro Bild nur noch 25 ms anstatt 45 :p
Bin also ausem schneider

Ein Hoch auf OpenGL

Will mal gar nicht wissen was das fürn stress wäre das in D3D nachzubauen :roll:

Danke an alle dir mir tips gegeben haben

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Mi Jun 01, 2005 17:57

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

Zitat:

Will mal gar nicht wissen was das fürn stress wäre das in D3D nachzubauen

Nichts gegen OpenGL, aber du kannst mit DirectShow ein Video direkt auf ein Direct3D Surface, also eine Texture, rendern.

Nach oben

Seite 2 von 3

[ 31 Beiträge ]

Gehe zu Seite Vorherige 1, 2, 3 Nächste

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 14 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.