Forum: Multimedia
FreePascal
by TForm1,
1. Dez 2015
@Klaus01: Grad getestet, auch mit var klappts nicht...
Vllt lad ich mir mal Graphics32 runter und probiers damit, ist ja eh ganz sinnvoll...
Forum: Multimedia
FreePascal
by TForm1,
1. Dez 2015
@Dejan Vu
hab ich alles ausprobiert, keine Variante funktioniert, er speichert die Bitmap immer ohne die Veränderung in dem Zustand wie er sie geladen hat..
Forum: Multimedia
FreePascal
by TForm1,
29. Nov 2015
Hmm.. dann lad ich mir mal den aktuellen FreePascal- Compiler runter...
Danke trotzdem für die Hilfe!:thumb:
Forum: Multimedia
FreePascal
by TForm1,
29. Nov 2015
Doch eben genau das. Ich habs so anzeigen lassen wie in deinem Code, funktioniert auch prima nur sobald ich speicher wird die Änderung nicht mit gespeichert...
Forum: Multimedia
FreePascal
by TForm1,
29. Nov 2015
Also ich habe jetzt mal eine Modifikation von dem Testcode oben vorgenommen und die BmpA und BmpB jeweils danach noch mal gespeichert.
procedure TForm1.FormCreate(Sender: TObject);
begin
BmpA := TBitmap.Create;
BmpA.LoadFromFile('/Users/home/test1.bmp');
BmpB := TBitmap.Create;
BmpB.LoadFromFile('/Users/home/test2.bmp');
Test(BmpA, BmpB, 40, clGreen);
...
Forum: Multimedia
FreePascal
by TForm1,
28. Nov 2015
Also werden die vorhandenen Dateien einfach überschrieben? Weil das wäre ja genau das was ich brauche...
Forum: Multimedia
FreePascal
by TForm1,
28. Nov 2015
Hmm... in meinem richtigen Programm funktionierts immer noch nicht d.h. der Fehler muss irgendwo anders liegen.
Was eventuell noch in Frage käme, wäre die Speicherung der Bitmaps über SaveToFile(). Da hab ich nämlich noch eine Verständnisfrage: Was passiert wenn die angegebene Datei bereits existiert? Wird die dann einfach überschrieben? Das könnte nämlich die Lösung sein weil ich nämlich die...
Forum: Multimedia
FreePascal
by TForm1,
28. Nov 2015
Ja stimmt genau hatt ich vergessen:roll:
Jetzt klappts bei mir auch:thumb:
Werd ich mal versuchen das ganze mit PRGBTriple in mein richtiges Programm zu übertragen, mal schauen obs dann auch klappt...
Forum: Multimedia
FreePascal
by TForm1,
28. Nov 2015
Ah ok dann kann es ja nicht an der Methode liegen...
ich hab deinen Code auch mal bei mir ausgetestet, allerdings will Lazarus das nicht kompilieren, der stört sich an der Zeile mit PixelA.rgbtBlue mit dem Fehler: illegal qualifier.. :gruebel:
Forum: Multimedia
FreePascal
by TForm1,
28. Nov 2015
Hallo zusammen,
ich habe noch eine Frage bezüglich Bitmaps und zwar möchte ich 2 Bitmaps miteinander vergleichen und falls die Entsprechenden Pixel sich gleichen (oder zumindest ähnlich sind) diejenigen Pixel einfärben und danach wird das gesamte Bild in ner Datei gespeichert.
procedure TFoo.CompareFrame;
var
x,y: integer;
lPixel: ^TPixelArray;
lCompPixel: ^TPixelArray;
begin