Bild wird nicht in drawgrid geladen

[St0rmhunter]

Ich versuche eine bmp-Datei in ein Segment eines drawgrids zu laden wie es hier beschrieben ist : http://www.delphipraxis.net/3009-im-...r-groesse.html

Jedoch funktioniert das nicht bei mir. Das Programm hängt sich einfach auf und es gibt keine Fehlermeldung 0o

Danke jetzt schonmal für eure Hilfe =)

[Coffeecoder]

Hi, Zeig mal bitte dein Code.
Ist dein Pfad zum Bild korrekt?

[St0rmhunter]

Das Bild liegt im selben Ordner wie das Programm / exe-Datei und Units.

Code ist beim Button-Click Ereignis eingefügt. Das drawgrid ist 5x5 Felder groß.

Delphi-Quellcode:

procedure TForm1.Button1.Click(Sender: TObject);
var
bild:TBitmap;
begin
bild:=TBitmap.Create;
bild.LoadFromFile('logo.bmp');
DrawGrid1.Canvas.Draw(0,0,logo);
end;

[Bernhard Geyer]

1, Du gibtst dein Bitmap nicht mehr frei

2, Ohne Pfadangabe das Bild zu laden wird nicht immer funktionieren.

3, Die Variable heiß bild. Woher kommt die verwendete variable "logo"?

4, Hast du auch die kommentare in deinem Verlinkten Thread durchgelesen?

5, Dein Bild würde immer auf die Koordinaten 0/0 gezeichnet

[ibp]

Delphi-Quellcode:

procedure TForm1.Button1.Click(Sender: TObject);
var
bild:TBitmap;
begin
bild:=TBitmap.Create;
bild.LoadFromFile('logo.bmp');
DrawGrid1.Canvas.Draw(0,0,logo);
end;

du solltest das Bild "bild" auch dem Grid zuweisen und nicht "logo"!

DrawGrid1.Canvas.Draw(0,0,bild);

[St0rmhunter]

@Bernhard
1. was meinst du mit freigeben?
2. Wenn das Bild im Verzeichnis des Programms / der Units und Projektdateien liegt müsste es doch eigentlich so geladen werden können.
3. Das war wohl ein flüchtigkeitsfehler die Variable ist und bleibt bild, die Bilddatei heißt logo.bmp (Kann man in eine Bitmap eigentlich auch andere Dateitypen laden wie jpg oder png?)
4. Ja habe ich durchgelesen was ist mit denen?
5. Das weiß ich soll ja auch so sein.

Jetzt der Code ohne flüchtigkeitsfehler

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var bild: TBitmap;
begin
bild:=TBitmap.Create;
bild.loadfromfile('logo.bmp');
drawgrid1.Canvas.Draw(0,0,bild);
end;

[Perlsau]

Zitat von St0rmhunter:

@Bernhard
1. was meinst du mit freigeben?

Freigeben heißt, daß man ein mit Create erstelltes Objekt vor Verlassen der Procedure wieder freigeben muß. Das geschieht am besten durch FreeAndNil. Schau mal in deiner Online-Hilfe. Bei mir funktioniert dieser Code einwandfrei:

Delphi-Quellcode:

procedure TFormMain.DrawGrid1Click(Sender: TObject);
var
   bild:TPicture;
begin
   bild:=TPicture.Create;
   bild.LoadFromFile(Pfad + 'logo.bmp');
   DrawGrid1.Canvas.Draw(0,0,bild.Graphic);
   FreeAndNil(bild);
end;

Erklärung:

1. Die Draw-Methode der Zeichenfläche (Canvas) erwartet ein TGraphic und nicht ein TBitmap. Das kannst du ebenfalls in deiner Online-Hilfe nachlesen.

2. Wenn du das zu ladende Bild immer im Anwendungsordner hast, dann ist es sinnvoll, diesen Ordner bei Programmstart in einem String abzuspeichern: Pfad := ExtractFilePath(Application.ExeName); . Ansonsten könnte es nämlich nach der Verwendung eines Dateidialogs wie z.B. Opendialog nicht mehr gefunden werden, weil dabei das Verzeichnis gewechselt wurde.

[Coffeecoder]

Zitat von St0rmhunter:

3. Das war wohl ein flüchtigkeitsfehler die Variable ist und bleibt bild, die Bilddatei heißt logo.bmp (Kann man in eine Bitmap eigentlich auch andere Dateitypen laden wie jpg oder png?)

Wenn du das machen willst, wäre es besser ein TImage zunehmen anstelle von TBitmap.

[Perlsau]

Zitat von Coffeecoder:

Zitat von St0rmhunter:

3. Das war wohl ein flüchtigkeitsfehler die Variable ist und bleibt bild, die Bilddatei heißt logo.bmp (Kann man in eine Bitmap eigentlich auch andere Dateitypen laden wie jpg oder png?)

Wenn du das machen willst, wäre es besser ein TImage zunehmen anstelle von TBitmap.

TImage benötigt er nicht, es genügt TPicture, das verlangt keine Zuweisung eines Owners.

[St0rmhunter]

Vielen dank Leute klappt jetzt =)

Kleine Interessensfrage was is der Unterschied zwischen TImage und TPicture?

Nochmals danke =)