PNG anzeigen lassen

[Tanadirian]

Hallo

Ich will mir auf nem Formular verschiedene Png-Bilder anzeigen lassen, bekomme das aber nicht hin :-(

Ich hab mir ein Bsp. aus der Delphihilfe rauskopiert aber das funzt nicht da bekomme ich die Fehlermeldung

Delphi-Quellcode:

[Fehler] tbitmap.pas(54): '.' erwartet, aber ';' gefunden

bei

Delphi-Quellcode:

var
 BitMap1: TBitMap;

Hier der Code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
 BitMap1: TBitMap;

begin
     BitMap1 := TBitMap.Create;
try
   BitMap1.LoadFromFile('c:\Program Files\common Files\Borland Shared\Images\Splash\256color\factory.png');

   Canvas.Draw(20,20,BitMap1);  
finally
   BitMap1.Free;

 end;
end;

Ich hab noch nie mit Grafiken gearbeitet und in der DP auch nichts gefunden, hoffe ihr könnt mir helfen.

[clues1]

1.
PNG mit TBitMap laden Geht auf jeden fall nicht. Du musst dir von torry.net mal eine PNG Komponente downloaden.

2. Schreib mal deine Uses Klausel, ich schätze mal du hast tbitmap drinne, muss aber graphics lauten.

[Bernhard Geyer]

Eine sehr gute in Delphi geschriebene PNG-Komponte findest Du unter TPNGImage/PNG Delphi auf Sourceforge.

Delphi bietet von sich aus nur sehr schlechten PNG-Support.

[Tanadirian]

Hier ein Auszug aus der Delphihilfe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

// Dieses Beispiel zeigt die direkte Ausgabe in ein Bitmap
var
  x,y : Integer;
  BitMap : TBitMap;
  P : PByteArray;
begin
  BitMap := TBitMap.create;
  try
    // Ersetzen Sie in Windows MyBitmap.png durch den vollständigen Pfadnamen:
    // C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp
    BitMap.LoadFromFile('MyBitmap.png');
    for y := 0 to BitMap.Height -1 do
    begin

      P := BitMap.ScanLine[y];
      for x := 0 to BitMap.Width -1 do
        P[x] := y;
    end;
    Canvas.Draw(0,0,BitMap);
  finally
    BitMap.Free;
  end;
end;

Wegen BitMap.LoadFromFile('MyBitmap.png'); dachte ich das ginge.

Graphics hab ich in der uses drinne


und bei der Sourgeforge-komponente fehlt ihm beim kompilieren die pngimage.dcu

[Bernhard Geyer]

Wenn die Datei "pngimage.dcu" nicht gefunden werden kannst mußt Du noch den Delphi-Suchpfad ergänzen, so das der Pfad in der die Datei "pngimage.pas" liegt auch aufgenommen ist.

Ist nun mal m.E. 'ne Macke von Delphi hier nicht selbständig den Suchpfad zu ergänzen wenn Packages hinzugefügt werden.

[Tanadirian]

Danke Bernhard, jetzt gehts weiter, nun fehlt ihm die pngextra.dcu und weder diese dcu oder die pas hab ich auf der Platte. Muß ich da noch extra was downloaden?

[Bernhard Geyer]

pngextra? Sagt mir nichts. In welcher Unit wird diese verwendet?

[Tanadirian]

Delphi-Quellcode:

program showcase2;

uses
  Forms,
  showcase2unit in 'showcase2unit.pas' {Form1},
  pngextra in '..\pngextra.pas'; {<-- Hier kommt die Fehlermeldung}

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Tanadirian]

Hab die entsprechende Zeile rausgenommen und jetzt geht die Komponente. Nun hab ich aber schon ne neue Frage, kann ich auch einfach nur die pngimage.pas in mein Prog einbinden und dann direkt mit den png's arbeiten? Wenn ja, kennt sich jmd damit aus und kann mir ein paar Stichwörter dazu geben? Ich hab nicht die Zeit mir 5000+ Zeilen Code durchzulesen.

Schon im Voraus vielen Dank.

[Bernhard Geyer]

Sicher kannst Du damit ohne ein Formular arbeiten, indem du es codemäßig anlegt.

Code:

var
  png: TPngObject; 
begin
  png := TPngObject.Create(nil);
  try
    // Dosomething
  finally
    png.Free;
  end;
end;

Was willst machen?