TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
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š.
Tak to opravdu nemyslim. Jde o to, že tý funkci posíláš jako zdroj OpenPictureDialog1.FileName, myslím tim text "OpenPictureDialog1.FileName", ne obsah té proměnné, prostě tam máš uvozovky a ty tam být nemají. To samé platí pro destination. Správně to má být asi
Stálý člen
Nahlásit jako SPAM
IP: 89.102.38.–
Nejlepší odpověď
CopyFile(OpenPictureDialog1.FileName,novacesta,false);
nebo spíše
CopyFile(PChar(OpenPictureDialog1.FileName),PChar(novacesta),false)
Zjistit počet nových příspěvků
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
© 2003–2024 Programujte.com