Bilder öffnen in Delphi

[alexkoe]

hallo nochmal
erstmal recht herzlichen dank für die hilfe mit dem on create event.
habe jetzt ein neues problem:
in meiner "form1" sind checkboxen.
wenn eine ausgewählt wird soll in der "form2" ein entsprechendes bild erscheinen.
wie kann ich das realisieren?

mfg alex :hi:

[XeRo]

Einfach mit OnClick arbeiten:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
IF CheckBox1.Checked=true then
 form2.Image1.Picture.LoadFromFile('c:\asd.bmp');
end;

[Cyberbob]

if checkbox1.checked then

tuts hier auch, da das immer nach true oder false checkt

[XeRo]

Das ist mir klar aber ich schreibs immer der Vollständigkeit halber dazu. Außerdem is für anfänger so vielleicht logischer :gruebel:

[mbamler]

Zitat:

Zitat von XeRo

Das ist mir klar aber ich schreibs immer der Vollständigkeit halber dazu. Außerdem is für anfänger so vielleicht logischer :gruebel:

Ich entwickel seit gut 10 Jahren beruflich Delphi-Programme und finde es immer noch angenehmer, wenn boolsche Ausdrücke vollständig ausgeschrieben werden. (Es liesst sich einfach besser und der Compiler generiert der gleichen Zielcode)


Gruß
Matthias

[alexkoe]

ja danke das funktioniert aber sobald man den button ausführen will kommt "unbekannte bilddateierweiterung(.jpg)".
was hat das zu bedeuten und wie kann ich das problem beheben?

mfg alex

[BenjaminH]

Jpeg Bilder sind so noch nicht zu öffnen, nimm einfach die Unit JPEG mit auf.
Dann müsste das gehen.

[alexkoe]

wie nehm dich denn die unit auf?geht das bmp format?

[fkerber]

Hi!

Einfach oben bei uses noch JPEG einfügen.


Ciao Frederic

[alexkoe]

ähm hab nicht so die delphi skills.wo finde ich denn die schaltfläche uses?

[BenjaminH]

Das ist keine Schaltfläche, im Quelltext ganz oben steht das, und dahinter folgt eine aufzählung, die um JPEG ergänzt werden muss.

[alexkoe]

ja hab das so gemacht,aber der kann das bild trotzdem nicht öffnen, obwohl dass verzecihnis stimmt.es kommt folgende fehlermeldung:"bsp.jpeg kann nicht geöffnet werden"
woran könnte das liegen?

[fkerber]

Hi!

Ohne Quellcode werden wir dir leider nicht helfen können.
Füg am besten die wichtigsten Code-Stellen mal hier ein.


Ciao Frederic

[alexkoe]

uses Unit2, Unit3, jpeg;

procedure TForm1.Button10Click(Sender: TObject);
begin
form2.image1.picture.loadfromfile('D:\155th\');
end;

das is der entsprechende teil des quelltextes,wie gesagt das angegebene verzeichnis stimmt

[fkerber]

Hi!

ok, aber du gibt ja gar kein Bild an...
Es sollte eher so aussehen

Delphi-Quellcode:

procedure TForm1.Button10Click(Sender: TObject); 
begin 
form2.image1.picture.loadfromfile('D:\155th\Name_des_Bildes.Dateiendung'); 
end;

Ciao Frederic


P.S.
Quellcode bitte mit Delphi-Tags formatieren

[alexkoe]

oh mein fehler.
der quelltext sieht so aus:

form2.image1.picture.loadfromfile('D:\155th\bsp.jp eg');

[fkerber]

Hi!

Wenn das Bild da ist, sollte es gehen. Da iss mal nix falsch dran.

Tipp: Keine absolute Pfadangaben nutzen.


Ciao Frederic

[alexkoe]

wie kann ich die absoluten pfadangaben vermeiden?der muss ja wissen wo das bild gespeichert ist

[fkerber]

Hi!

Ein OpenDialog ist z.B. eine gute Möglichkeit. Handelt es sich um das Anwendungsverzeichnis oder Unterordner davon, dann schau mal nach ExtractFilePath(ParamStr(0)).


Ciao Frederic

[igel457]

Zum ersten Problem:

du hast da was verwechselt. Es gibt zwei Uses teile. Einen im "interface" Teil und einen im "implementation" Teil. Du musst JPEG im "interface" Teil hinzufügen also ganz, ganz oben:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Forms, Graphics..., JPEG;

Zum zweiten Problem:

Wie schon gesagt wurde, mit dem OpenDialog ist das eine gute Alternative. Ich würde aber nicht extractfilepath(paramstr(0)) nehmen, da dies etwas unsicher ist. extractfilepath(application.exename) ist besser.

[XeRo]

wenns jetzt noch immer nicht geht, dann stell einfach mal das Programm online und wir erlösen dich von deinem leiden ;-)
sicher nur eine Kleinigkeit die du übersehen hast.

[DP-Maintenance]

Dieses Thema wurde von "Chakotay1308" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Multimedia" verschoben.
Kein Source für die Code-Lib.