Wie ein Bild-Dateiformat auswählen?

[Euklid]

Hallo Leute!

Möchte gerne in meinem Gravitations-Programm eine Speicherroutine einbauen, die das auf Image1.Canvas erstellte Bild speichert.

Bisher habe ich das so gelöst:

Code: Alles auswählen

Form1.Image1.Picture.SaveToFile('/home/pfad/datei.bmp');

Klappt wunderbar! Nun zu meiner Frage:

Soweit ich weiß unterstützt Lazarus und FreePascal auch andere Dateiformate als .bmp, z.B. .png .
Aber wie kann ich das Bild in Image1 unter einem anderen Format als .bmp speichern?

Wenn ich eingebe:

Code: Alles auswählen

Form1.Image1.Picture.SaveToFile('/home/pfad/datei.png');

Speichert er es trotzdem im .bmp-Format ab

Viele Grüße, Euklid

[EugenE]

versuch es mal mit Image1.Picture.PNG.SaveToFile ich weiß jez nich wie sich das nennt aber das ".PNG" gibt es aufjeden fall ^^

[Euklid]

Danke für die schnelle Antwort!

Nun: Image1.Picture.PNG.SaveToFile gibt es tatsächlich.

Habe es eben ausprobiert. Nur leider besteht das dann erstellt Bild nur aus einem Pixel...?!?

Vielleicht haben die das in Lazarus ja noch nicht fertig programmiert... ...zur Not reicht es ja auch, wenn er .bmp-Dateien erstellt, nur sind die immer so rießig (1,4MB).

[EugenE]

Hm du musst noch unter .PNG die Width und Height einstellen damit es geht , aber ich habe es selbst noch nciht ganz hinbekommen da bei mir dann nur ein schwarzer fleck angezeigt wird -.-*

[Euklid]

Ja? bei mir ist der Fleck blau

Werde mal weiter rumexperimentieren...

EDIT: Juhu, es klappt!

Habe die width auf die width vom Image1 und die height auf die height vom Image1 gesetzt.

[EugenE]

hm war klar bei mir geht wie immer nichts -.-*

Muss man für Lazarus irgendwas Opfern damit es 100% funktioniert? =D

[Euklid]

Komisch. Benutzt du auch Version 9.20?

Ja, es gibt so ein paar Haken und Ösen, wo der FPC wirklich anders interpretiert, als Borlands Delphi.

Beispielsweise: s:='test';
Mit Delphi ist s[3]='s', s[4]='t', s[5]='', s[6]=''
Mit FPC ist s[3]='s', s[4]='t', s[5]='t', s[6]='t'
(vgl. Werte für 5,6,...)
Dieser Unterschied hatte mir bei meinen Umstieg Kopfzerbrechen bereitet, da ich das Ende eines Strings eben durch - if s[n]='' - prüfte und das Lazarus-Programm sich an dieser Stelle immer aufhängte

Aber wenn man die kennt, lässt es sich wirklich gut mit FPC und Lazarus programmieren, finde ich. Die Bugs werden von beta zu beta immer weniger...

[theo]

hm war klar bei mir geht wie immer nichts -.-*

Muss man für Lazarus irgendwas Opfern damit es 100% funktioniert? =D

Also ne Jungfrau hat noch nie geschadet. Zur Not tut's vielleicht auch ein Lamm.

[EugenE]

hehe ^^

[danny61]

Also ich lasse immer einen Borland-Mitarbeiter ausbluten, dann rennt der Lazarus wieder wie geschmiert

[EugenE]

*lachkrampf*