Bild per Button laden

carrat · Hält's aus hier Beiträge: 6

kann mir einer erklären wie ich per buttonklick ein neues bil in einen TImage-Objekt lade?

IngoD7 · Beiträge: 629 D7

Was ist das Problem - der ButtonClick oder das Laden des Bildes?
Was verstehst du unter "Laden"? Das Einlesen einer Bilddatei?

Beschreibe dein Problem genauer.

maxk · Verfasst: Sa 12.03.05 21:23

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Image1.Picture.LoadFromFile('C:\Datei.bmp');
end;

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

carrat · Hält's aus hier Beiträge: 6

DANKE!!!!

Mike_C · Beiträge: 207 Win XP D7 Enterprise

maxk hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Image1.Picture.LoadFromFile('C:\Datei.bmp');
end;

besserer Vorschlag:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('C:\datei.bmp');
  Image1.Height := bmp.Height;
  Image1.Width := bmp.Width;
  Image1.Canvas.Draw(0,0,bmp);
  bmp.Free;
end;

Vorteil: wenn du mehrere Bilder lädst, verschwendest du nicht so viel Speicher!

Gruß MikeC

_________________
Life is, what some people call a mystery. To me life's just a lesson, you're learning when you're through. So why do we try to understand?

wdbee · Beiträge: 628 Erhaltene Danke: 1

@Mike_C: Worin besteht denn deiner Meinung nach die Einsparung?

Vergleich doch mal das Verhalten von TPaintbox und TImage, wenn du das so machst. Bei TImage bleibt das Bild erhalten, wenn es mal verdeckt wurde, bei TPaintbox nicht. Das heißt doch aber, dass TImage das Bild speichert und TPaintbox nicht. Also wird deshalb nichts gespart!

AXMD · Verfasst: So 13.03.05 14:27

wdbee hat folgendes geschrieben:

@Mike_C: Worin besteht denn deiner Meinung nach die Einsparung?

Vergleich doch mal das Verhalten von TPaintbox und TImage, wenn du das so machst. Bei TImage bleibt das Bild erhalten, wenn es mal verdeckt wurde, bei TPaintbox nicht. Das heißt doch aber, dass TImage das Bild speichert und TPaintbox nicht. Also wird deshalb nichts gespart!

Nimm doch gleich BitBlt oder schreib TCanvas neu, Mike_C :roll:

AXMD

Mike_C · Beiträge: 207 Win XP D7 Enterprise

wdbee hat folgendes geschrieben:

@Mike_C: Worin besteht denn deiner Meinung nach die Einsparung?

Vergleich doch mal das Verhalten von TPaintbox und TImage, wenn du das so machst. Bei TImage bleibt das Bild erhalten, wenn es mal verdeckt wurde, bei TPaintbox nicht. Das heißt doch aber, dass TImage das Bild speichert und TPaintbox nicht. Also wird deshalb nichts gespart!

Der Punkt ist der: wie du richtig sagst, wird von TImage das Bild gespeichert: es hängt also letztendlich im Speicher! wenn du nun mehrere große Bilder (Größen ab 800x600 und größer) mit Picture.LoadFromFile lädst, wird das eine menge speicher unnötig verschwenden. wenn du aber den Weg über die Bitmap nimmst, malst du nur auf den Canvas und gibst den belegten speicher wieder frei! klar, du brauchst eine extra Update-Routine für deine Bilder. Dein Punkt gilt meiner Meinung nach nur für den Fall, wenn du das Bild direkt in Picture reinlädst und den Canvas nicht bemalst.

AXMD hat folgendes geschrieben:

Nimm doch gleich BitBlt oder schreib TCanvas neu, Mike_C :roll:

AXMD

warum denn den Canvas neu schreiben? Sorry, aber deinen Kommentar verstehe ich nicht. Ich erfinde doch jetzt wirklich nicht das Rad neu!

_________________
Life is, what some people call a mystery. To me life's just a lesson, you're learning when you're through. So why do we try to understand?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme