Habe ein Problem mit dem OpenDialog?

[Code46]

Hallo alle zusammen,
ich habe eine Problem, undzwar ich will eine JPG datei hochladen jedoch stürzt das Programm immer ab wenn ich die Datei öffne.
Könntet ihr mir vielleicht weiter helfen.

Delphi-Quellcode:

procedure TForm1.ffnen1Click(Sender: TObject);
  begin
   if OpenDialog1.Execute = true then
   begin
   Image1.Picture.LoadFromFile(OpenDialog1.FileName);
  end
 end;

[jaenicke]

Das "= true" ist falsch, siehe hier unter Anfängerfehler:
http://www.delphi-treff.de/tutorials...werten/page/4/
Richtig ist einfach nur:

Delphi-Quellcode:

if OpenDialog1.Execute then

Hast du die Unit Jpeg in die uses geschrieben? Delphi kann sonst keine Jpegs lesen.

Zitat:

Zitat von Code46

undzwar ich will eine JPG datei hochladen jedoch stürzt das Programm immer ab wenn ich die Datei öffne.

Hochladen ist wohl nicht was du meintest. ;-)
Wie meinst du das abstürzen? Kommt die Fehlermeldung, dass das ein unbekanntes Format ist oder so? Dann fehlt Jpeg in der uses Klausel.

[Code46]

Warum wird da kein True gesetzt. Das dürfte nicht falsch sein. Kann man machen aber muss man nicht soweit ich das weis.
Also da kommt der fehler

Im Projekt Projekt1.exe ist eine Exception der Klasse EIvalidGrafic aufgetreten.
Meldung ' Unbekannte Bilddateierweiterung(.jpg). Prozeß wurde angehalten.


Das ist der fehler ich habe aber auch im Filter der OpenDialog JPG(*.jpg) | *.jpg eingesetzt.

[jaenicke]

Zitat:

Zitat von Code46

Warum wird da kein True gesetzt. Das dürfte nicht falsch sein. Kann man machen aber muss man nicht soweit ich das weis.

Der Vergleich mit Booleanwerten ist nicht nur unschön, sondern falsch.
Hier habe ich mal ein kleines Beispiel gebastelt, wann es schief geht:
http://www.delphi-forum.de/viewtopic...=548760#548760

Und du sagst ja auch nicht:
Wenn "das Wetter ist schön" wahr ist, dann gehe ich spazieren.
Du sagst auch direkt:
Wenn das Wetter schön ist, dann gehe ich spazieren.

Weshalb machst du es also beim Programmieren anders? Wo ist da die Logik? ;-)

Zitat:

Zitat von Code46

Im Projekt Projekt1.exe ist eine Exception der Klasse EIvalidGrafic aufgetreten.
Meldung ' Unbekannte Bilddateierweiterung(.jpg). Prozeß wurde angehalten.

Ich sagte ja, du musst Jpeg in die uses Liste oben in der Unit schreiben. Nur dann kannst du Jpeg-Dateien benutzen.

[mleyen]

Zitat:

Zitat von Code46

Warum wird da kein True gesetzt. Das dürfte nicht falsch sein. Kann man machen aber muss man nicht soweit ich das weis.

Entweder hast du den von jaenicke´s geposteten Link nicht gelesen oder du bestehst gerade auf deinen mehrcode, der in diesem Zusammenhang richtig ist.

Zitat:

Zitat von Code46

Also da kommt der fehler

Im Projekt Projekt1.exe ist eine Exception der Klasse EIvalidGrafic aufgetreten.
Meldung ' Unbekannte Bilddateierweiterung(.jpg). Prozeß wurde angehalten.

Daran sehe ich das du jaenicke´s Beitrag nicht gelesen hast, sonst wüsstest du, dass du die Unit jpeg nicht eingebunden hast.

Edit: huh? Wo war der rote Kasten?

[Code46]

was soll ich da denn hinschreiben einfach nur jpg?????????

[jaenicke]

Zitat:

Zitat von Code46

was soll ich da denn hinschreiben einfach nur jpg?????????

Naja...

Zitat:

Zitat von jaenicke

Hast du die Unit Jpeg in die uses geschrieben?

Zitat:

Zitat von jaenicke

Ich sagte ja, du musst Jpeg in die uses Liste oben in der Unit schreiben.

Was soll ich denn noch schreiben? :roll:

[mleyen]

Zitat:

Zitat von Code46

was soll ich da denn hinschreiben einfach nur jpg?????????

Erstmal 8 Fragezeichen weniger und dann:

Code:

[...]
implementation

uses
  jpeg;
[...]

Hat der rote Kasten Urlaub?

[Hunni]

Zitat:

Zitat von Code46

was soll ich da denn hinschreiben einfach nur jpg?????????

Hallo,

Du mußt JPEG bei uses eintragen, dann klapps


uses
Windows, Messages,....., JPEG;


Gruß
Hunni

[Code46]

OK mach ich :) :)

Aber jetzt kommt ein anderer Fehler undzwar ich kann auf dem Bild nicht zeichnen.

[jaenicke]

Ich rate einmal, dass du das so machst:

Delphi-Quellcode:

Image1.Picture.Bitmap.Canvas. ...

Nur hast du hier keine Bitmap. Und deshalb klappt das nicht.
Mit Image1.Canvas sollte es gehen.

[mleyen]

Image1.Canvas wird auch nicht gehen. Du müsstest das jpg vor dem laden erst einmal umwandeln in ein Bitmap.

[Code46]

und wie ? :)

[mleyen]

Durch die DP-Suche: JpgToBmp :dp:

[Code46]

Sorry aber ich habe das nicht gefunden?

[mleyen]

Also ich hab direkt das gefunden.

[Matze]

Hier noch ein schöner Link zur Boolean-Problematik. Da wird es dann wirklich deutlich, wieso ein Vergleich auf "true" oder "false" nicht sinnvoll ist: Tutorial: Über den Umgang mit Boolean.