Kopirovani a ukladani souboru pod novym jmenem – Delphi – Fórum – Programujte.com

zdravim, ..

napsal jsem si tuto procedurku,

procedure TForm2.BtVyberClick(Sender: TObject);
var novy,novacesta: string;
begin
  novy:= (DBEdit1.text + '.jpg');
  novacesta:=('d:\programy\1\obrazky\' + novy);
  OpenPictureDialog1.Execute;
  Label1.Caption:= (novacesta);
  CopyFile('OpenPictureDialog1.FileName','novacesta',false);
  DBEdit2.text:= (novacesta);
end;

kopirovani ale neprobehne ...,  ??? ..  jde pouze o kopirovani .jpg souboru, jen chci zmenit jejich nazev ..

Tak jsem to upravil, :

procedure TForm2.BtVyberClick(Sender: TObject);
var novy,novacesta: string;
begin
  novy:= (DBEdit1.text + '.jpg');
  novacesta:=('d:\programy\1\obrazky\' + novy);
  OpenPictureDialog1.Execute;
  Label1.Caption:= (novacesta);
   Image1.Visible:= false;
   Image1.Picture.LoadFromFile(OpenPictureDialog1.filename);
   Image1.Picture.SaveToFile(novacesta);
  DBEdit2.text:= (novacesta);
end;

ikdyz to funguje, stejne si porad myslim, ze to neni uplne spravne a slo by to napsat lip (min radku, rychlejsi provedeni)

Tak předně, CopyFile je WinAPI funkce, takže jejímu použití bych se, vzhledem k tvým zkušenostem, vyhnul. Navíc, jako parametry nebere String, ale PChar, ale to je vcelku jedno, protože tak, jak to máš napsaný, to je teda úlet. Schválně se na to ještě jednou podivej, jestli tu šílenou chybu najdeš.

jestli myslis to false na konci radku  ..  CopyFile ....   tak jsem tam zkousel i true, ale vysledek stejnej ..

ahaaaa, ...  tak proto ...   dikec ..