In Image zeichnen

[maximus Caesar]

Hallo!
Ich versuche, in ein Image zu zeichnen, in das ich zuvor mit canvas.draw ein jpg geladen habe.
Nun kommt eine meldung, dass ich nur in Bitmaps zeichnen kann!
Muss ich jetzt das Jpg in ein Bitmap umwandeln? Wenn ja, wie mache ich das?

[Sharky]

Hai Caesar :stupid:

ich habe das jetzt mal mit diesem Code gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  jpeg : TJPEGImage;
begin
  if (OpenPictureDialog1.Execute) then
  begin
    jpeg := TJPEGImage.Create;
    try
     jpeg.LoadFromFile(OpenPictureDialog1.FileName);
     Image1.Canvas.Draw(0,0,jpeg);
    finally
      jpeg.Free;
    end;
    Image1.Canvas.MoveTo(10,10);
    Image1.Canvas.Pen.Width := 10;
    Image1.Canvas.LineTo(100,100);
  end;
end;

Oder meintest Du etwas ganz anderes?

[maximus Caesar]

Also, ich habe ohne irgendeinen Dialog ein jpg bild in Image2 geladen.
Jetzt will ich ein Rechteck mit Canvas. Retagle (oder so ähnlich) da hinein zeichnen.
Sobald ich es versuche bekomme ich eine Meldung, dassich nicht in jpg's, sondern nur in bmp's zeichnen kann!
und jetzt möchte ich wissen, wie ich in das jpg zeichnen kann, oder dieses in ein bmp umwandeln!

[Wuaegner]

Wie versuchst du denn da rein zu zeichnen?
Wenn du auf Image1.Canvas zeichnest müsste es doch gehen.

[maximus Caesar]

Dann kommt die besagte Meldung, dass ich nur in Bitmaps, und nicht in Jpegs zeichnen kann!
Ich versuche es mit:

Delphi-Quellcode:

Form1.Image2.Canvas.Rectangle(x1,y1,x2,y2);

[Sharky]

Hmm...
wenn ich das mit meinem Code oben mache geht es. Den Dialog zum öffnen habe ich nur drinnen um nicht den Pfad zum Bild tippen zu müssen.

[maximus Caesar]

Hier jetzt mal der genaue Text der Meldung:

Project Project1.exe raised exception class EInvalidOperation with message 'Can only modify an image if it contais a bitmap'. Process stopped. Use Step or Run to continue.

[Sharky]

Hai maximus,

hast Du in dem Image schon etwas zur Entwurfszeit geladen? Wenn Ja -> Lösche es mal.

[maximus Caesar]

Hab ich leider nicht!

[maximus Caesar]

Hab jetzt den Code oben nochmal ausprobiert!
Die Meldug erscheint immernoch...

[Wuaegner]

Zitat:

hast Du in dem Image schon etwas zur Entwurfszeit geladen? Wenn Ja -> Lösche es mal.

Das macht doch gar keinen Unterschied oder?:gruebel:

Das problem mit jpg ist trotzdem da.

[maximus Caesar]

Also, im Anhang is mal das ganze Programm!
Ich hoffe es hilft!

[Sharky]

Hai Caesar,

Du verwendest Da irgendwelche Units die wohl nicht bei Delphi dabei seind. Darum kann ich das Programm nicht testen.

[maximus Caesar]

Sorry! Diesesmal müsste es stimmen!

[Sharky]

gifimage <- Wird nicht gefunden.
Und das Bild welches im Timer geladen werden soll ist wohl auch nicht da :gruebel:

[fkerber]

Hi!

Mir fehlt noch gifImage.

Seltsamerweise greifst du auf Units zu die im übergeordneten Ordner liegen (in dem zip von dir aber im selben)
Ist das richtig so?


Ciao Frederic

P.S. Dein Packer ist "blöd". Er hat ne Maximal-Pfadlänge, in die mein Wunschordner nicht passte

[maximus Caesar]

ok, also gifimage kannst du rausschmeisen, wird noch nicht verwendet.
Das Bild is hier im Anhang, Einfach in den Unterordner Grafik kopieren!
(eine *.exe Datei, da die normale endung der Datei hier nicht eerlaubt ist!)
also, wenn das programm jetzt gestartet wird, klickt man auf "Laden", wählt die Datei in der Liste aus und drückt auf "Laden".
Nun ist das Bild in Form1 zu sehen.
Jetzt klickt man auf "Wegpunkte setzen", an zwei vershciedenen stellen auf Form1. Nun kommt der Fehler!

[maximus Caesar]

Zitat:

Zitat von fkerber

Seltsamerweise greifst du auf Units zu die im übergeordneten Ordner liegen (in dem zip von dir aber im selben)
Ist das richtig so?

Die müssten alle im gleichen Ordner sein!

[Sharky]

Sag mal, wie kannst Du das Programm überhaupt testen? In der Unit1 in der Procedure MousePosition ist eine Variable nicht deklariert.

Und... sei mir nicht böse.... aber der Quellcode sollte mal einheitlich formatiert werden ;-)

[fkerber]

Hi!

Doch an einer Stelle brauch er GifImage.

Ciao Frederic

[Sharky]

Hmmmm.... Du lädst die Hintergrundgrafik in Image3. Dann versuchst Du in Image1 zu zeichen. Und da dieses Leer ist kommt wohl die Fehlermeldung.

[Wuaegner]

Zitat:

Und da dieses Leer ist kommt wohl die Fehlermeldung.

hab dein Programm jetzt nicht getestet, dein Problem aber nachgestellt. Der Fehler tritt bei mir auch auf und da ist nichts leer. Das jpg mag er nicht.

[Sharky]

Zitat:

Zitat von Wuaegner

....
hab dein Programm jetzt nicht getestet, dein Problem aber nachgestellt. Der Fehler tritt bei mir auch auf und da ist nichts leer. Das jpg mag er nicht.

Hast du auch mal geschaut wo er im Code zeichnen möchte und in welches Image er das Bild lädt? Oder wie soll ich verstehen "...nicht getest,... aber nachgestellt"?

[maximus Caesar]

So. Das hier müsste jetzt entgültig funktionieren!!!

Das mit den Variablen und so waren ein paar Fehler von mir, die entstanden sind als ich gerade gifimage und co gelöscht habe!
:duck:

Ähm, wo zeichne ich in Image1? hab ich nicht gefunden!

Bitte die Grafik verwnden, die ich vorhin hochgeladen habe!

[Wuaegner]

Zitat:

Hast du auch mal geschaut wo er im Code zeichnen möchte und in welches Image er das Bild lädt? Oder wie soll ich verstehen "...nicht getest,... aber nachgestellt"?

Ich habe wie er beschrieben hat ein jpg in ein Image geladen und dann versucht ein Rechteck auf die Canvas des Images zu zeichnen. Da kommt dann die von ihm angesprochene Fehlermeldung.
Darum musste ich sein Programm nicht anschauen.

[maximus Caesar]

kann es vielleicht sein, dass das nur bie Delphi 6 kommt?

Wenn ja, wie kann ich dann das Jpg in ein bmp umwandeln?

[maximus Caesar]

Das ganze funktioniert so wie es soll, solange ich kein jpg lade!
funktioniert auch, wenn das Image leer ist, dann wird das Rechteck einfach auf einen weißen Hintergrund gezeichnet!

[Wuaegner]

Kannst nicht einfach deine jpg in Paint öffnen und als .bmp speichern?!

[maximus Caesar]

Das währe natürlich eine möglichkeit!
Aber ich wollte für das Programm ausschlieslich jpg's und gif's verwenden!
Jpg's, da sie kleiner sind als Bitmaps, und gif's für animierte Bilder.

Kannst du mir sagen, wie ich Jpg's in Bitmaps umwandeln kann?

[Wuaegner]

Zitat:

Kannst du mir sagen, wie ich Jpg's in Bitmaps umwandeln kann?

Zitat:

jpg in Paint öffnen und als .bmp speichern

das sollte funktionieren.

[maximus Caesar]

Ich meinte eigentilich in meinem Programm! :)

[Wuaegner]

Hilfsbereit wie ich bin :)
spuckte die Suche folgendes aus:

Code:

var 
  jpgImg : TJPEGImage; 
  bmpImg : TBitmap; 
begin 
  jpgImg := TJPEGImage.Create; 
  try 
    jpgImg.LoadFromFile('c:\test.jpg'); 
    bmpImg := TBitmap.Create; 
    try 
      bmpImg.Assign(jpgImg); 
      bmpImg.SaveToFile('c:\test.bmp'); 
    finally 
      bmpImg.Free; 
    end; 
  finally 
    jpgImg.Free; 
  end; 
end;

[maximus Caesar]

Funktioniert!!!!
Danke!!! :thumb:
Damit ist mein Problem gelöst!