bild ins formular einfügen möglichst mit if Abfrage

[justloosit]

hi leute ich bin jetz soweit mit einem Programm fertig nun möchte ich ein Bild in das Formular einfügen am besten noch mit einer If abfrage wie mach ich as am besten also klar auf zusätzlich gehen und dan image aber was muss ich in die procedure eingeben damit eines erscheint den pfad oder was?

würde mich über schnelle antworten freuen mfg. justloosit

[jaenicke]

So und jetzt noch einmal auf deutsch, hast du von Rechtschreibung und Interpunktion schonmal etwas gehört?

Was möchtest du genau machen und wo ist das Problem? Was soll die if-Abfrage machen?
Generell gibts bei einem Image in Picture die Methode LoadFromFile.

[Matze]

Hi,

wofür möchtest du denn eine if-Abfrage?

Ein Bild zur Laufzeit lädst du so in ein TImage:

Image1.Picture.LoadFromFile('C:\Prad_zum_bild.jpg'); Bei der Darstellung von JPG-Dateien musst du übrigens die Unit JPEG in die Uses-Liste aufnehmen.

Grüße, Matze

Edit: Da war Sebastian schneller.
Edit 2: Und richtig, bemühe dich bitte beim Schrieben. Du willst Hilfe von uns, also mache uns es nicht unnötig schwer zu helfen.

[justloosit]

habsch alles so kannst mal pls ein bsp machen wie das dann asusehen soll also den code?

[jaenicke]

Matze hat ja bereits ein Beispiel gepostet. Zeig doch mal was du hast und was nicht funktioniert.

Und wenn du weiter nur schnell irgendeinen Wortbrei hinklatschst, dann wirst du von mir keine Antwort mehr bekommen. Denn wenn du dir beim Schreiben keine Mühe machst, dann zeigt das, dass du gar nicht selbst Zeit in eine Lösung investieren willst.

[justloosit]

... Schuldigung...

nya ich habs so

Delphi-Quellcode:

 procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('C:\Beispiel.jpg');
end;

nya und wenn ich compilieren will dann öffnet es das Fenster, aber kein Bild und wenn ich darauf klicke kommt eine Fehlermeldung Fehler 53

[jaenicke]

Existiert die Datei? Wirklich mit der Dateiendung .jpg? Denn wenn du Dateierweiterungen in Windows nicht anzeigst, gibt es da vielleicht ein Problem.

Und hast du das beachtet?

Zitat von Matze:

Bei der Darstellung von JPG-Dateien musst du übrigens die Unit JPEG in die Uses-Liste aufnehmen.

Wenn nein, dann fehlt oben das:

Delphi-Quellcode:

uses
  ..., Jpeg;

Denn von Haus aus kann Delphi keine Jpegs, dafür wird diese Unit benötigt.

[justloosit]

ja es exsistiert wirklich und ich habs auch das bei uses drin stehn es schreibt mir nur Fehler #53

[justloosit]

hier noch mal die genaue Fehlermeldung:Im Projekt Projekt2.exe ist eine Exception der Klasse EJPEG aufgetreten.Meldung:'Jpeg-Fehler #53'.Prozess wurde angehalten. Mit Einzelne Anweisung oder Start vortsätzen.

kennt den jemand oder wenigstens die fehler quelle?

[jaenicke]

Zitat von justloosit:

'Jpeg-Fehler #53'

Ach Jpeg-Fehler... Das bedeutet, dass die Datei zwar gefunden wird, aber fehlerhaft ist.

Ist es wirklich eine Jpeg-Datei oder ein anderes Format mit Endung .jpg? Häng am besten einmal die Datei an wenns geht.