Bild von festplatte in ein Projekt einbinde

[Skrenkovic]

Hi Ihr

ich stehe vor einem Problem dass ich leider selbst mit Google nicht lösen kann.

Ich brauche Hilfe ... was ich will ist folgendes:

Ich möchte gerne in meinem Projekt auf Form2 ein Bild (jpg,gif, und png) von meiner Festplatte in das Lazarus/delphi projekt einfügen.

dabei soll der Pfad in einem Editfeld erscheinen. Dieser Pfad soll in eine Variable gespeichert werden.

In form3 soll das Bild dann verwendet werden können. (am besten sollte es sich auf den Pfad beziehen da ich den evtl später noch einmal brauche und somit einfach die variable verwenden kann und nicht noch einmal das bild suchen muss)


Könnt ihr mir vll dabei helfen?! Geht das überhaupt?!

[baumina]

Müsste eigentlich mit einem TImage machbar sein. TImage aufs Formular nehmen. Sobald Du den Namen inkl. Pfad des Bildes kennst machst ein Image1.Picture.LoadFromFile(Dateiname).

[himitsu]

Wenn das Format (jpg,gif,png) nicht bekannt/einheitlich ist, dann TPicture und ansonsten kann man auch direkt TBitmap, TPngImage usw. verwenden.

Für die Anzeige kann man TImage verwenden, welches ein TPicture kapselt und via LoadFromFile intern die entsprechende TGraphic-Instanz (TBitmap, TPngImage usw.) erstellt.
Also, wenn die Dateiendung .bmp ist, dann wird "automatisch" TBitmap verwendet.
Die benötigten Graphic-Klassen müssen aber eingebunden und registriert sein, damit TImage/TPicture diese laden kann.
(TBitmap und andere "Basis"-Klassen sind immer vorhanden, aber für JPEG und PNG muß man die nötigen Units einbinden und diese registrieren sich dann meistens von selber)

[Popov]

Ob das nun eine Bitmap, Jpeg oder etwas anderes ist, kannst du z. B. u. a. über Image1.Picture.Graphic.ClassName erfahren. Bei Jpeg würde das TJPEGImage stehen.

[Skrenkovic]

Zitat von baumina:

Müsste eigentlich mit einem TImage machbar sein. TImage aufs Formular nehmen. Sobald Du den Namen inkl. Pfad des Bildes kennst machst ein Image1.Picture.LoadFromFile(Dateiname).

achso ... ja sry sollte erwähnen was ich eig genau will^^

Ich will nachdem ich die .exe geöffnet habe, ein Bild auswählen (das sich auch der Festplatte befinded --> wird ein Hintergrundbild). dann habe ich noch ein weiteres Edit Feld wo ich einen text eingebe und dass soll zusammen auf Form3 angezeigt werden.

Und das Bild selbst brauche ich nur einmal .. nachdem das Programm geschlossen und wieder geöffnet wurde will ich wieder ein anderes bild beuzten

Sollte wie wenn man was in Word öffnet auswählbar sein ... also "Durchsuchen" befehl (graphisch als Strukturbaum z.b)

[baumina]

Zitat von Skrenkovic:

Zitat von baumina:

Müsste eigentlich mit einem TImage machbar sein. TImage aufs Formular nehmen. Sobald Du den Namen inkl. Pfad des Bildes kennst machst ein Image1.Picture.LoadFromFile(Dateiname).

achso ... ja sry sollte erwähnen was ich eig genau will^^

Ich will nachdem ich die .exe geöffnet habe, ein Bild auswählen (das sich auch der Festplatte befinded --> wird ein Hintergrundbild). dann habe ich noch ein weiteres Edit Feld wo ich einen text eingebe und dass soll zusammen auf Form3 angezeigt werden.

Und das Bild selbst brauche ich nur einmal .. nachdem das Programm geschlossen und wieder geöffnet wurde will ich wieder ein anderes bild beuzten

OK, unsere Antworten bleiben trotzdem die gleichen. LoadFromFile.

Zitat von Skrenkovic:

Sollte wie wenn man was in Word öffnet auswählbar sein ... also "Durchsuchen" befehl (graphisch als Strukturbaum z.b)

OpenPictureDialog

[DeddyH]

Und für die Dateiauswahl bietet sich ein OpenDialog/OpenPictureDialog an.

[Skrenkovic]

tut mir leid für meine Unwissenheit aber ....

Code:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute
         then
          begin
           Image1.picture.LoadFromFile(OpenPictureDialog1.filename);
           edit4.Caption:=;
          end;
end;

hab ich nun (funktioniert auch)
wie kann ich jetzt den Pfad herausfinden und den in Edit4 einschreiben?
Bzw wie kann ich das dann denn weiterverwenden? bracuhe das ja dann in Form3 nochmal .... in dieser Form suche ich es ja nur aus

[DeddyH]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  Pfad: string;
begin
  if OpenPictureDialog1.Execute
         then
          begin
           Pfad := OpenPictureDialog1.filename;
           Image1.picture.LoadFromFile(Pfad);
           edit4.Caption:=Pfad;
          end;
end;

[p80286]

Delphi-Quellcode:

          begin
           Image1.picture.LoadFromFile(OpenPictureDialog1.filename);
           edit4.Caption:=ExtractFileDir(OpenPictureDialog1.filename);

Gruß
K-H