Bilder in mein Programm laden! Bitte helfen!

[daNiii]

Hallo!
in meinem Programm sollte der Anwender selbst Bilder (eigener Wahl) in das TImage laden können.
Der anwender sollte den Pfad und den Namen der Datei bestimmen können.
Ich hoffe mir kann jemand helfen.
Danke

[HenKst]

Hi
schau dir doch bitte mal TOpenPictureDialog und TPicture.LoadFromFile an

GreeZ HenKst

[Christian18]

Hallo,

das kannst du mit einem OpenDialog machen.

Hier mal ein kleines Beispiel:

Delphi-Quellcode:

procedure TForm1.OpenFile(Sender: TObject);
  var o: TOpenDialog;
begin
  o:=TOpenDialog.Create();
  if o.Execute then
    begin
      Image1.Picture.LoadFromFile(o.FileName);
    end;
end;

Ich habe das einfach nur so hier hin geschrieben. Ich habe es nicht in Delphi getestet.

LG Christian18

[daNiii]

oh dankeschön. ich werde es gleich testen..
aber was bedeutet execute eigentlich?

[fkerber]

Hi!

Mit o.Execute wird dem Dialog (der hier ja o heißt) quasi gesagt, dass er sich ausführen soll (execute - engl. für ausführen).
Es wird also die Execute-Methode des besagten Objektes aufgerufen.


Ciao, Frederic

[daNiii]

juhu es funktioniert... kleine Ausbesserung... in die Klammer nach Create gehört "self"


o:= Topendialog.create(self);

funktioniert super....

[fkerber]

Hi!

Prima.
Wenn es dir allerdings nur um das Laden von Bildern geht, solltest du vllt. besser den oben erwähnten TOpenPictureDialog nutzen.
Die Vorgehensweise ist aber exakt die selbe.


Ciao, Frederic

[guidok]

Nicht vergessen, die erzeugte Instanz von TOpenDialog wieder freizugeben!

Delphi-Quellcode:

procedure TForm1.OpenFile(Sender: TObject);
  var o: TOpenDialog;
begin
  o:=TOpenDialog.Create();
  if o.Execute then
    begin
      Image1.Picture.LoadFromFile(o.FileName);
    end;
  o.Free;
end;

[DeddyH]

Und das am besten in einem try-finally-Block.

Delphi-Quellcode:

procedure TForm1.OpenFile(Sender: TObject);
  var o: TOpenDialog;
begin
  o:=TOpenDialog.Create(self);
  try
    if o.Execute then
      Image1.Picture.LoadFromFile(o.FileName);
  finally
    o.Free;
  end;
end;