[delphi] copy file met error handling

Pagina: 1
Acties:

  • Remco
  • Registratie: Januari 2001
  • Laatst online: 15-09 08:40
Hi,

Om een file te copieren, ben ik achter:
copyfile(PChar('C:\command.com'), PChar('d:command.com'), TRUE);
{gelezen in oude posting}

Maar hoe ga ik om met eventuele foutcodes die terugkomen ? (kan dat wel) zoals b.v.
- in gebruik
- bestaat al
- read-only
enz...
En afhankelijk van deze terugkomst wil ik ze wel of niet overschrijven.

The best thing about UDP jokes is that I don't care if you get them or not.


Verwijderd

ik kan geen delphi maar kan je niet gewoon iets doen van:
code:
1
2
int blaat;
blaat = copyfile(PChar('C:\command.com'), PChar('d:command.com'), TRUE);

en dan aan de hand van wat er in blaat staat acties ondernemen?

  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

In de help staat dit:
Return Values

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.

"The shell stopped unexpectedly and Explorer.exe was restarted."


  • Remco
  • Registratie: Januari 2001
  • Laatst online: 15-09 08:40
en hoe verwerk ik getlasterror verder ?

The best thing about UDP jokes is that I don't care if you get them or not.


  • RickN
  • Registratie: December 2001
  • Laatst online: 14-06-2025
Op zaterdag 02 februari 2002 16:36 schreef t808421 het volgende:
en hoe verwerk ik getlasterror verder ?
Hij zegt: "In de help staat dit". Denk je dan niet dat het antwoord op deze vraag ook in de help staat :? En zou je daar dan niet eerst ff kijken?

He who knows only his own side of the case knows little of that.


  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

Op zaterdag 02 februari 2002 16:36 schreef t808421 het volgende:
en hoe verwerk ik getlasterror verder ?
Ik weet niet of hij wel de error info geeft die jij moet hebben, maar je kunt het op z'n minst uitzoeken.

"The shell stopped unexpectedly and Explorer.exe was restarted."


  • Remco
  • Registratie: Januari 2001
  • Laatst online: 15-09 08:40
Op zaterdag 02 februari 2002 16:56 schreef jelmervos het volgende:

[..]

Ik weet niet of hij wel de error info geeft die jij moet hebben, maar je kunt het op z'n minst uitzoeken.
\

Misschien moet jij er even kijken !!
Ben wel wakker vandaag, heb er uiteraard eerst gekeken........

The best thing about UDP jokes is that I don't care if you get them or not.


Verwijderd

gebruik 2 file streams

Verwijderd

bekijk de functie "fileexists" maar eens en op www.delphi3000.com staat ook wel wat voor je

Verwijderd

Op zaterdag 02 februari 2002 16:57 schreef t808421 het volgende:
Misschien moet jij er even kijken !!
Ben wel wakker vandaag, heb er uiteraard eerst gekeken........
Maar niet verder dan je neus lang is?
GetLastError geeft een DWord terug, je foutcode.

Uit diezelfde help die je al bekeken hebt:
"To obtain an error string for operating system error codes, use the FormatMessage function. For a complete list of error codes, see the WINNT.H header file in the Win32 SDK."

WINNT.H (een C header file) zit natuurlijk niet bij Delphi, maar wanneer je in source\rtl\win\windows.pas zoekt op WINNT.H, zit je bij 't begin van Delphi's equivalent van die header.

  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

Op zaterdag 02 februari 2002 16:57 schreef t808421 het volgende:

[..]

\

Misschien moet jij er even kijken !!
Ben wel wakker vandaag, heb er uiteraard eerst gekeken........
Mhoa, ik heb het nog niet nodig gehad. Misschien als ik ook es wil weten wat mijn last error was ofzo.

Iig succes.

"The shell stopped unexpectedly and Explorer.exe was restarted."

Pagina: 1