Laden von .jpg in Listbox funzt net

[SaFu]

ok so stimmen jetzt die pfade aber er copiert nichts

Delphi-Quellcode:

begin
if OpenDialog1.Execute then
 begin
 AlterPfad := OpenDialog1.FileName;
 NeuerPfad := ExtractFilePath(ParamStr(0))+('Bilder');

 CopyFile(PChar(AlterPfad), PChar(NeuerPfad), true);

[Matze]

Zitat:

Zitat von Matze

Und der zweite Parameter erwartet ebenfalls einen kompletten Pfad einschließlich Dateiname.

Bitte genau lesen und meine Code-Snippets zeigen das doch ebenfalls wunderschön! :wall:

[SaFu]

Es war eine sehr schwere geburt aber es funktioniert

Dank dir Tausendmal Matze für deine gedult

Delphi-Quellcode:

procedure TForm4.Button7Click(Sender: TObject);
var  AlterPfad,NeuerPfad :string;
begin
if OpenDialog1.Execute then
 begin
 AlterPfad := OpenDialog1.FileName;
   NeuerPfad := ExtractFilePath(ParamStr(0))+('Bilder\'+ ExtractFileName(OpenDialog1.FileName));
   CopyFile(PChar(AlterPfad), PChar(NeuerPfad), true);
  FileListBox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
 end;
end;

so klappts

:cheers: