AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Anzeigen von DDS Dateien

Offene Frage von "himitsu"
Ein Thema von creehawk · begonnen am 28. Nov 2017 · letzter Beitrag vom 13. Sep 2020
Antwort Antwort
Seite 2 von 2     12
creehawk

Registriert seit: 1. Jul 2013
Ort: Hamburg
228 Beiträge
 
Delphi 10.4 Sydney
 
#11

AW: Anzeigen von DDS Dateien

  Alt 29. Nov 2017, 15:37
@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!

creehawk
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#12

AW: Anzeigen von DDS Dateien

  Alt 29. Nov 2017, 15:41
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!

Geändert von TiGü (29. Nov 2017 um 16:23 Uhr)
  Mit Zitat antworten Zitat
creehawk

Registriert seit: 1. Jul 2013
Ort: Hamburg
228 Beiträge
 
Delphi 10.4 Sydney
 
#13

AW: Anzeigen von DDS Dateien

  Alt 29. Nov 2017, 18:06
Ups, alles klar, danke!
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.275 Beiträge
 
Delphi 12 Athens
 
#14

AW: Anzeigen von DDS Dateien

  Alt 30. Nov 2017, 06:34
Moin...
Ich will ja nicht meckern...aber TRY FINALLY ist ein indisches Gewürz oder?
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  PNGTyp:TPngImage;
begin
  PNGTyp := LoadDXT1('aaaaa');
  try
    Image1.Picture.Assign(PngTyp);
  finally
    PNGTyp.Free;
  end;
end;
  Mit Zitat antworten Zitat
haluter

Registriert seit: 13. Sep 2020
1 Beiträge
 
#15

AW: Anzeigen von DDS Dateien

  Alt 13. Sep 2020, 14:44
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!
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.772 Beiträge
 
Delphi 12 Athens
 
#16

AW: Anzeigen von DDS Dateien

  Alt 13. Sep 2020, 15:57
Hello,

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

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
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

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

AW: Anzeigen von DDS Dateien

  Alt 13. Sep 2020, 17:03
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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (13. Sep 2020 um 17:18 Uhr)
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.772 Beiträge
 
Delphi 12 Athens
 
#18

AW: Anzeigen von DDS Dateien

  Alt 13. Sep 2020, 20:24
Wieso? Der Code im Post direkt vor seinem = "preceding" gibt doch das png image frei! Oder was hab' ich übersehen?
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

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

AW: Anzeigen von DDS Dateien

  Alt 13. Sep 2020, 23:14
Oder was hab' ich übersehen?
Posts #6 und #11, da hast bestimmt zuviel gesehn.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 14:29 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