Nelze zkopírovat soubor

[vangog]

Zkoušel jsem copyfile (taktéž i movefile, ale se stejným výsledkem) na windows XP 32:

Kód: Delphi [Vybrat]

1. copyfile(PChar(s),PChar(targerFile));
2.  

či

Kód: Delphi [Vybrat]

1. copyfile(s,targerFile);

obě mi hodí vyjímku v antiwin :

Kód: Delphi [Vybrat]

1. procedure CopyFile(FromFileName,TofileName:string);
2. var FromFile, ToFile: file;
3. begin
4. AssignFile(FromFile, FromFilename);
5. AssignFile(ToFile, ToFilename);
6. Reset(FromFile);      (* NENI OSETRENO NA CHYBU *)
7. try
8.   Rewrite(ToFile);
9.   try // https://www.frameworkpascal.com/helphtml/lzexpand_unit.htm
10.      if LZCopy (TFileRec(FromFile).Handle,
11.                 TFileRec(ToFile).Handle) < 0 then
12.          raise EInOutError.Create('Error copying file');
13.   finally
14.      CloseFile(ToFile);
15.   end;
16. finally
17.   CloseFile(FromFile);
18. end;
19. end;
20.  

'Error copying file'

Cílový soubor se vytvořil, ale je prázdný.

FromFileName,TofileName má správné hodnoty, ale kukátkem na FromFile a ToFile nic nevidím.

Jak to vyřešit? Původně jsem chtěl jen přesun souboru, jako aby se nic nekopírovalo ale zdá se že to nejde.

[JaroB]

V RxLibrary je jednoduchy CopyFile, spustitelny v Delphi 7 viz ke stažení http://micrel.cz/RxLib/dfiles.htm

[101569]

Windows taktez obsahuje moznost kopirovat soubory, pomoci CopyFile funkce. OP vsak zda se pouziva LZ dekompresi pomoci LZCopy Kdyz jsme u tech kompresi, nejrychlejsi mi zatim vysel LZ4.

Mohu nabidnout wrapper, ale prvne se ek potrebuje aklimatizovat a nainstalovat vse z5 na zk****ny Windows 10

[vangog]

Windows taktez obsahuje moznost kopirovat soubory, pomoci CopyFile funkce. OP vsak zda se pouziva LZ dekompresi pomoci LZCopy Kdyz jsme u tech kompresi, nejrychlejsi mi zatim vysel LZ4.

Však právě to Windowsovské copyfile jsem chtěl použít, ale asi se tak nestalo. Co mám špatně v zadaném příkazu? Jak se volá ta windowsovská záležitost?

[101571]

[quote  link=topic=16331.msg101569#msg101569 date=1537380568]
Windows taktez obsahuje moznost kopirovat soubory, pomoci CopyFile funkce. OP vsak zda se pouziva LZ dekompresi pomoci LZCopy Kdyz jsme u tech kompresi, nejrychlejsi mi zatim vysel LZ4.

Však právě to Windowsovské copyfile jsem chtěl použít, ale asi se tak nestalo. Co mám špatně v zadaném příkazu? Jak se volá ta windowsovská záležitost?
[/quote]

Kdovi. Psal jsi o chybe jenz byla vyvolana Tebou z vlastni kopirovaci funkce. Windows API funkce jsou ve vetsine pripadu vybaveny tim, ze se nastavi chybova promenna z posledne volane funkce (pomoci SetLastError). A CopyFile neni vyjimkou:

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

Jen nechapu proc sem pletes dekompresi pres LZCopy...

[vangog]

Windows taktez obsahuje moznost kopirovat soubory, pomoci CopyFile funkce. OP vsak zda se pouziva LZ dekompresi pomoci LZCopy Kdyz jsme u tech kompresi, nejrychlejsi mi zatim vysel LZ4.

Však právě to Windowsovské copyfile jsem chtěl použít, ale asi se tak nestalo. Co mám špatně v zadaném příkazu? Jak se volá ta windowsovská záležitost?

Kdovi. Psal jsi o chybe jenz byla vyvolana Tebou z vlastni kopirovaci funkce. Windows API funkce jsou ve vetsine pripadu vybaveny tim, ze se nastavi chybova promenna z posledne volane funkce (pomoci SetLastError). A tato neni vyjimkou:

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

nepsal jsem žádnou kopírovací funkci. prostě jsem napsal jen copyfile a vyskočila chyba

Ono to krachne takže nezjístím výstupní hodnotu nebo chybovou hlášku

[101573]

nepsal jsem žádnou kopírovací funkci. prostě jsem napsal jen copyfile a vyskočila chyba

Aha, a tyto 2 radky delaji co?

Kód: Delphi [Vybrat]

1. if LZCopy (TFileRec(FromFile).Handle, TFileRec(ToFile).Handle) < 0 then
2.   raise EInOutError.Create('Error copying file');

Nevyvolaji nahodou popsanou vyjimku? Prosim pekne, o precteni dokumentace k vysledku funkce LZCopy

[vangog]

nepsal jsem žádnou kopírovací funkci. prostě jsem napsal jen copyfile a vyskočila chyba

Aha, a tyto 2 radky delaji co?

Kód: Delphi [Vybrat]

1. if LZCopy (TFileRec(FromFile).Handle, TFileRec(ToFile).Handle) < 0 then
2.   raise EInOutError.Create('Error copying file');

Nevyvolaji nahodou popsanou vyjimku?

No ano. To je to co jsem popsal v otázce. Sem mi to skočí. Ta funkce je součástí delphi 7. Skočilo mi to do antiwin.pas - nevím kde je ten soubor, ale určitě v adresáři pod delphi, jinak by to tam nemohlo skočit...

[101575]

No ano. To je to co jsem popsal v otázce. Sem mi to skočí. Ta funkce je součástí delphi 7. Skočilo mi to do antiwin.pas - nevím kde je ten soubor, ale určitě v adresáři pod delphi, jinak by to tam nemohlo skočit...

Nevim o modulu antiwin. To nejspis nebude soucasti Delphi. Alespon oficialni edice

[vangog]

Aha, tak pardón. Teď koukám, že ta funkce je součástí projektu (psal ji někdo jiný) 

Je to pod modulem antiwin.

Ale jak tedy obejít antiwin a spustit tu správnou funkci?

PS:
Vyřešeno. Jsem tu funkci přejmenoval.

[Stanislav Hruška]

OT

Mohu nabidnout wrapper, ale prvne se delfinek potrebuje aklimatizovat a nainstalovat vse z5 na zk****ny Windows 10

A Ty nemáš TrueImage, alebo jeho obdobu? Ináč tiež čakám kedy ma to postihne.

[pepak]

Windows.CopyFile, respektive WinApi.Windows.CopyFile, podle verze Delphi.

[101579]

OT

Mohu nabidnout wrapper, ale prvne se sek potrebuje aklimatizovat a nainstalovat vse z5 na zk****ny Windows 10

A Ty nemáš TrueImage, alebo jeho obdobu? Ináč tiež čakám kedy ma to postihne.

Nee. Ja na tyto kouzla totiz moc neverim. Nevim jak by si takovy nastroj poradil s migraci aplikaci z 32-bitoveho Windows 7 na 64-bitove Windows 10. Jiste, mam zalohy konfiguraci, ale radeji vse nasypu rucne (mimo to pouzivam spoustu aplikaci portable, takze neni moc co resit). Ale jsem ted moc liny VS uz vsak mam Jen do toho Delphi se mi zatim moc nechce. Snad az tu spadnou teploty

Jinak jsem pouzival a pouzivat budu VirtualBox a v nem co zdarma MS OS nabizi. Vynikajici vec na hrani bez toho aniz by si nekdo "uspinil" realny stroj

[101580]

Aha, tak pardón. Teď koukám, že ta funkce je součástí projektu (psal ji někdo jiný) 

Je to pod modulem antiwin.

Ale jak tedy obejít antiwin a spustit tu správnou funkci?

PS:
Vyřešeno. Jsem tu funkci přejmenoval.

Jedna moznost je pridat scope modulu, tj. pro Delphi 7 Windows.CopyFile (jak tady radil pepak). Jina (ne vsak vhodna) je zmenit poradi modulu v uses klauzuli (pozdeji uvedene maji prednost). Skutecnym resenim je vsak funkci bud prejmenovat pripadne obalit napr. do metod tridy (tedy pro Delphi 7).

[Stanislav Hruška]

Nevim jak by si takovy nastroj poradil s migraci aplikaci z 32-bitoveho Windows 7 na 64-bitove Windows 10

To je niečo iné. Ja som si myslel, že Ti padol OS. Tiež som ten prechod nedávno absolvoval ručne.