Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Anzeigen von DDS Dateien (https://www.delphipraxis.net/194484-anzeigen-von-dds-dateien.html)

creehawk 29. Nov 2017 14:37

AW: Anzeigen von DDS Dateien
 
@redeemer

Herunterladen : 5 Sekunden - Einbauen : 120 Sekunden - Ausprobieren : 360 Sekunden - Erfolg: 100% !

Perfekt.

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
Var
PNGTyp:TPngImage;
begin
PNGTyp:= TPNGIMAGE.Create;
PNGTyp := LoadDXT1('aaaaa');
Image1.Picture.Assign(PngTyp);
end;
Das ist alles. LoadDXT1 ist alles was ich brauche, die DDS Dateien stammen aus den PC Spielen CaesarIV, Anno1404 und Age of Empires 3.

@an alle die geantwortet haben
Ich bin nicht der Experte für PC Grafik. Vieles davon muss und musste ich mir empirisch zusammenbasteln, "basteln" wörtlich genommen. Und die o.g. LoadDXT1 ist mir in ihrer Ausführung auch ziemlich schleierhaft.
Wir hier bauen für einige ältere Spiele - siehe oben - Karten, Missionen und Hilfstools. Das spielt sich eher in dem Bereich Datenbank oder auch schlichter Textbearbeitung ab.

Ich bedanke mich bei allen für die Antworten und Hilfestellungen! :thumb:

creehawk

TiGü 29. Nov 2017 14:41

AW: Anzeigen von DDS Dateien
 
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
Var
  PNGTyp:TPngImage;
begin
  PNGTyp := LoadDXT1('aaaaa');
  Image1.Picture.Assign(PngTyp);
  PNGTyp.Free;
end;
Sonst hast du Speicherlecks!

creehawk 29. Nov 2017 17:06

AW: Anzeigen von DDS Dateien
 
Ups, alles klar, danke!

haentschman 30. Nov 2017 05:34

AW: Anzeigen von DDS Dateien
 
Moin...:P
Ich will ja nicht meckern...aber TRY FINALLY ist ein indisches Gewürz oder? :roll:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  PNGTyp:TPngImage;
begin
  PNGTyp := LoadDXT1('aaaaa');
  try
    Image1.Picture.Assign(PngTyp);
  finally
    PNGTyp.Free;
  end;
end;

haluter 13. Sep 2020 13:44

AW: Anzeigen von DDS Dateien
 
Hi, apologies for using English but I am desperate for some help.

I need to load a DDS file and display it in a TImage32 (or TImage/TBitmap) component, but I have been unable to do so.

Could I please ask you for an example on how to do this (if possible?)

Thank you!

TurboMagic 13. Sep 2020 14:57

AW: Anzeigen von DDS Dateien
 
Hello,

download the attachment attached to this post from 2017 in this thread:

Zitat:

Zitat von Redeemer (Beitrag 1387440)
Lag hier rum, ist von 2012 aber sollte immer noch laufen.

Then use the sample code in the answer directly preceeding your post.
That should work.

Best regards
TurboMagic

himitsu 13. Sep 2020 16:03

AW: Anzeigen von DDS Dateien
 
Zitat:

Zitat von creehawk (Beitrag 1387507)
Herunterladen : 5 Sekunden - Einbauen : 120 Sekunden - Ausprobieren : 360 Sekunden - Erfolg: 100% !

Perfekt.

Speicherleck 200%.

Einmal die Instanz vom Create, dann nochmal aus LoadDXT1, und am Ende wird Keine davon wieder freigegeben.

Zitat:

Sonst hast du Speicherlecks!
Und ja, nach einem Fehler kann Aufräumen auch nie schaden.

TurboMagic 13. Sep 2020 19:24

AW: Anzeigen von DDS Dateien
 
Wieso? Der Code im Post direkt vor seinem = "preceding" gibt doch das png image frei! Oder was hab' ich übersehen?

himitsu 13. Sep 2020 22:14

AW: Anzeigen von DDS Dateien
 
Zitat:

Zitat von TurboMagic (Beitrag 1473516)
Oder was hab' ich übersehen?

Posts #6 und #11, da hast bestimmt zuviel gesehn.


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:06 Uhr.
Seite 2 von 2     12   

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