CopyFilesi Dev-Pascal

copyfile('c:\test.txt','D:\data\test.txt');

Stoney

Noget tyder på at argv[0] er tom, sådan at der kun kommer et argument til CopyFile. Såvidt jeg husker er argv[0] exe-filen som køres (?), men jeg mener også at det er en pointer, så du skal nok bruge argv[0]^ - altså det argv[0] peger på.

Hej,

Er du sikker paa et det ikke er ParamStr(0) du gerne vil have?

"argv" er (ofte) brugt i C for kommandoline parameters. I Pascal er det ParamStr (antal er ParamCount).

Martin

Jeg er sikker på at det er argv[0], fordi hvis jeg benytter ParamStr(0) for denne fejl:
Error: Incompatible type for arg no. 2: Got ANSISTRING, expected PCHAR

Jeg har prøvet disse koder:
copyfile(PcHar(ParamStr(0)), 'tmp.exe');
copyfile(argv[0]^, PcHar('tmp.exe'));
Da den skriver PcHar.

Eventuelt er det fordi CopyFile forventer en 0-afsluttet streng, så du kan prøve:

CopyFile(ParamStr(0)+#0,'tmp.exe');
eller
CopyFile(argv[0]+#0,'tmp.exe');

Jeg har lige prøvet dine koder og får disse fejl:
1)
Error: Incompatible types: got "CHAR" expected "LONGINT"
2)
Error: Wrong amount of parameters specified

Du skal huske at reservere plads til din PChar:

const
  maxchar = 128;  {her sætter du max tegn (husk plads til stien)}
var
  PCh: PChar;

  PCh := StrAlloc(MaxChar); {reserverer plads til strengen}
  StrPCopy(PCh,paramstr(0); {Overførsel til PChar}

  CopyFile(PCh,'tmp.exe');

Jeg har lige prøvet koden og jeg fik disse fejl:
Error: Identifier not found STRALLOC
Error: Identifier not found STRPCOPY
+ lidt flere

Jeg bruger Bloodshed Dev-Pascal fra Bloodshed.net.

CopyFile har 3 argumenter:

CopyFile(PCharOldFile,PCharNewFile,Bool);

Hvor din boolean betyder følgende:

Hvis True fejler funktionen hvis NewFile allerede eksisterer
Hvis False overskrives NewFile hvis den eksisterer

dvs:

const
  maxchar = 128;  {her sætter du max tegn (husk plads til stien)}
var
  ToFile: string;
  PChIn,PChOut: PChar;
  OverWrite: Boolean;
Begin
  Overwrite := True;
  ToFile := 'c:\temp.exe';
  PChIn := StrAlloc(MaxChar); {reserverer plads til strengen}
  PChOut := StrAlloc(MaxChar);
  StrPCopy(PChIn,paramstr(0)); {Overførsel til PChar}
  StrPCopy(PChOut,ToFile);

  CopyFile(PChIn,PChOut,OverWrite);
end;

Ok, så ikke seneste.

Du kan også prøve at overføre manuelt til en array of char = PChar^
Husk 0-afslutningen;

var
  PC: array[1..128] of char;

  PC := ParamStr(0)+chr(0);

  CopyFile(PC,......

Hvis du ikke kan overføre direkte må du lave en løkke:
for i := 1 to length(ParamStr(0)) do
  PC[i] := paramstr(0)[i];
PC[length(ParamStr(0)+1] := chr(0);

Du kan også selv gå ind og definere dine pointere:

Type
  PCharArr=Array[1..128] of char;

Var
  PCh1,PCh2: PCharArr;
  P1,P2: ^char; 
  st: string;
  OverWrite: boolean;

Function StrToPChar(const s: string):PCharArr;
var
  i: integer;
begin
  for i := 1 to length(s) do
    StrToPChar[i] := s[i];
  StrToPChar[i+1] := chr(0);
end;

begin
  st := 'c:\tmp.exe';
  Overwrite := True;
  PCh1 := StrToPChar(paramstr(0));  {eller argv[0] ?}
  PCh2 := StrToPChar(st);
  P1 := @PCh1[1];    {pointer til første tegn i array}
  P2 := @PCh2[1];
  CopyFile(P1,P2,OverWrite);
end;

Ellers må du kopiere via blockRead / blockWrite

Hvad er dev-Pascal?

CopyFile(pchar(ParamStr(0)), 'e:\temp\test.exe', FALSE);

Denne virker for mig.. (CopyFile er fra Windows.pas)

unclebug. Dev-Pascal er lige som Delphi(Pascal) men programmerne bliver ikke mere en 5-50 KB store. Hent det på: http://www.Bloodshed.net det fylder ca. 8 MB.