Dateipfad ermitteln und in Edit Feld schreiben. Wie?

[Creylon]

Hallo DP
Ich brauche Hilfe für mein Programm.
Ich will ein Bild und eine Datei ins Programm laden.
Also das man sozusagen Verknüpfung mit Bild selbst erstellen.
Kann mir jemand sagen wie ich den Pfad für das Bild oder die Datei ermittle ohne ihn selbst zu schreiben?

Edit: Am besten wie man den Pfad in ein Edit Feld schreiben lässt.

MfG Creylon

[RWarnecke]

ExtractFilePath

Edit:
Ach und herzlich willkommen in der :dp:

[Creylon]

Ähm ich bin Anfänger.
Das hilft mir leider nicht weiter.

[DeddyH]

Könntest Du die Frage noch einmal so formulieren, dass ich sie auch verstehe?

P.S.: Willkommen in der DP :dp:

[RWarnecke]

Der Befehl ExtractFilePath extrahiert Dir das Verzeichnis aus dem übergebenen Pfad.

ExctractFilePath('C:\Test\Testen\Test.txt') gibt Dir nur C:\Test\Testen zurück.

Klicke mal bitte auf den Link. Da findest Du auch nochmal eine genauere Beschreibung.

[DeddyH]

*Kleiner Einspruch* ExtractFilePath gibt den abschließenden Backslash mit zurück, ExtractFileDir nicht ;)

[RWarnecke]

Ok, Du hast recht.:duck:

Edit: Kannst du heute wieder kleinlich sein ;-)

[Matze]

Der Pfad zu einer Datei ist für mich Verzeichnis inkl. Dateiname.

Woher kommt denn das Bild?

Ich habe die Frage auch nicht verstanden.

[Creylon]

Also:
Um das hinzuzufügen öffnet sich ein neues Fenster.
Das klickt man für die einzelnen sachen auf durchsuchen und dann stehen die Pfade für die Dateien in den EditFeldern.
Wenn man nun auf OK klickt wird alles auf der "Eigentlichen" Form sichtibar.
Verstanden?

[DeddyH]

Noch nicht so ganz. Verwendest Du einen TOpenDialog oder sowas? Dann steht ja der komplette Name (samt Pfad) in der Filename-Property bzw. bei MultiSelect des Dialogs dann jeweils der komplette Pfad in der Files-Liste.

[Creylon]

Hier ist das Feld wo man das dann einstellt:

http://s1.directupload.net/images/100606/oum33kgg.jpg


Der freie Platz ist dann noch für weitere Optionen.

[Matze]

Ziehe einen Open(Picture)Dialog aufs Formular und schreibe das hin:

Delphi-Quellcode:

if OpenDialog1.Execute then
  Edit1.Text := OpenDialog1.FileName;

Das ist mal die Grundfunktionalität. ;)

[Creylon]

Soll ich das ins OnClick Ereignis vom Button machen?

[RWarnecke]

Ja, in das OnClick-Ereignis des Buttons.

[Matze]

Nun ist der Zeitpunkt gekommen, an dem ich auf die Grundlagentutorials verweise. Ich habe den Eindruck, die fehlen dir ein wenig.

[Creylon]

Passiert garnichts.

[Matze]

Zeige uns deinen Code. Sonst ist das die reinste Raterei.

Einen Doppelklick auf den Button, TOpen(Picture)Dialog aufs Formular ziehen und meinen Code einzufügen sollte übrigens machbar sein. Hast du das anders versucht, siehe dir die verlinkten Tutorials, speziell den Crashkurs, an.

[Creylon]

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtDlgs;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Form3.Visible:=false;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
Form3.Visible:=false;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin

end;

procedure TForm3.Button4Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
  Form3.Edit1.Text := OpenPictureDialog1.FileName;
end;

end.

[Matze]

Und es passiert nichts, wenn du auf den 4. Button klickst?

Keine Reaktionen, gar nichts? Oder kommen Fehlermeldungen?

[Creylon]

Lol.
Ich hab Doppelklick auf Button3 gemacht und das da rein kopiert.
War aber auf Button4...
Sorry

[Matze]

Ich habe mich nicht getraut, dir das zu unterstellen, mir es aber fast gedacht. :mrgreen:

Geht nun alles?

[Creylon]

Wie kann ich das Bild jetzt einfügen?
Bei

Delphi-Quellcode:

Form2.Image1.Picture:=Form3.Edit1;

Tritt ein Fehler auf aber ich kann nicht rausfinden welcher.

[Matze]

Delphi-Quellcode:

Image1.Picture.LoadFromFile();

[Creylon]

SUPER Dankeschön^^