GLScene - 3ds Textur in einem TImage anzeigen

[terry43]

Hallo
kann mir jemand einen Tip geben wie ich Texturen eines GLScene Objects (3ds z.B.) in einem Image oä. anzeigen kann um dann darüber auf die entsprechende Textur zugreifen zu können.

Gruß Terry.

[turboPASCAL]

Dir muss der Materialname der Textur bekannt sein (nicht der Texturdateiname) aus der 3ds-Datei, den suchst du dann in dem (GL)MaterialLibrary und übergibst diese dem Image.

Beispiel

Delphi-Quellcode:

uses GLGraphics; // nicht vergessen

procedure ...
var
  i: integer;
  Texture: TGLBitmap32;
begin
  for i:= 0 to GLMaterialLibrary1.Materials.Count do
    if GLMaterialLibrary1.Materials.Items[i].Name = 'MeineTextur' then
    begin
      Texture := GLMaterialLibrary1.Materials.Items[i].Material.Texture.Image.GetBitmap32(0);
      Image1.Picture.Bitmap.Assign(Texture.Create32BitsBitmap);

      break;
    end;
end;

[terry43]

Danke für die Info, es macht in jedem Falle Sinn. Leider habe ich jetzt das Problem, daß ich nach Installation des CVS Snapshots sämtliche Programme vergessen kann, da alle Klassen wie TPlane etc. ausgetauscht sind gegen TGLPlane und in der Scene nicht mehr mit spielen. Gibts da was? Habe so ca. 100 Planen in genausvielen Scenen um eben meine Materialien der zu ladenden 3ds Files angezeigt zu bekommen. (Ein Programm zum Visualisieren von Häusen und Materialien).
Gruß Terry

[Tyrael Y.]

Moin,
ich denke das liegt an der Reihenfolge wie du die Units in der Uses-Klausel angegeben hast...
...gib zuerst die andere Unit an dann die von GLGraphics...

[turboPASCAL]

Zitat von terry43:

Danke für die Info, es macht in jedem Falle Sinn. Leider habe ich jetzt das Problem, daß ich nach Installation des CVS Snapshots sämtliche Programme vergessen kann, da alle Klassen wie TPlane etc. ausgetauscht sind gegen TGLPlane und in der Scene nicht mehr mit spielen. Gibts da was?

Hui, da hast du aber noch was altes. Frag ma bei bei http://www.glscene.de/ nach. Ich kann mich errinnern das es irgend wo ein Tool gab, habe aber k.A. wo.

Eine Möglichkeit ist die Suchen und Ersetzen Funktion von Delphi, schau dir mal die Form als Text an.