Kopirovani a ukladani souboru pod novym jmenem – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

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

 

Toto vlákno bylo označeno za vyřešené — příspěvek s řešením.
Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
dyžon0
Stálý člen
14. 7. 2012   #1
-
0
-

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 ..

Nahlásit jako SPAM
IP: 89.102.38.–
Reklama
Reklama
dyžon0
Stálý člen
14. 7. 2012   #2
-
0
-

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)

Nahlásit jako SPAM
IP: 89.102.38.–
Sniper
~ Anonymní uživatel
184 příspěvků
14. 7. 2012   #3
-
0
-

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š.

Nahlásit jako SPAM
IP: 90.179.201.–
dyžon0
Stálý člen
14. 7. 2012   #4
-
0
-

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

Nahlásit jako SPAM
IP: 89.102.38.–
Řešení
Sniper
~ Anonymní uživatel
184 příspěvků
14. 7. 2012   #5
-
+1
-
Zajímavé
Vyřešeno Nejlepší odpověď

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

CopyFile(OpenPictureDialog1.FileName,novacesta,false);

nebo spíše 

CopyFile(PChar(OpenPictureDialog1.FileName),PChar(novacesta),false)
Nahlásit jako SPAM
IP: 90.179.201.–
dyžon0
Stálý člen
14. 7. 2012   #6
-
0
-

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

Nahlásit jako SPAM
IP: 89.102.38.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 13 hostů

Podobná vlákna

Kopírování souboru — založil Šmíd

Kopírování souborů z CD — založil Sebix

Kopirovani souboru — založil Jerremy09

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý