[ '(' erwartet, aber ';' gefunden ] nach CopyFile

[Deltachaos]

Delphi-Quellcode:

procedure upd;
begin
  begin                                    //  ||||| < für was steht das?
    CopyFile(PChar(Dat_orig), PChar(Dat_copy) ,false);
  end;                                    //   |||||
//    || < Hierzwischen Steht der Curser
  close;
//    ||
{    form1.zipmaster1.DLLDirectory:= ExtractFilePath(ParamStr(0));
    form1.zipmaster1.ExtrOptions:= form1.zipmaster1.ExtrOptions + [ExtrDirNames, ExtrOverwrite];
    form1.zipmaster1.ZipFilename:= 'C:\toll.zip';
    form1.zipmaster1.ExtrBaseDir:= 'C:\bak';
    form1.zipmaster1.Extract;}
end;

Delphi-Quellcode:

[Fehler] Unit1.pas(54): '(' erwartet, aber ';' gefunden
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Was will Delphi da von mir?
CopyFile hatt doch alle informationen die es Braucht.
und für was steht eigentlich das false bei CopyFile?

[mkinzler]

Möglicherweise ist der Fehler schon vorher.
Der dritte Parameter heißt overwrite.

[Deltachaos]

Zitat:

Zitat von mkinzler

Möglicherweise ist der Fehler schon vorher.
Der dritte Parameter heißt overwrite.

gut dan setzte ich den auf true

hier der komplette code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DFUnRar, ZipMstr, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, Grids, StdCtrls, ShellApi;

type
  TForm1 = class(TForm)
    ZipMaster1: TZipMaster;
    IdHTTP1: TIdHTTP;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var dat_orig, dat_copy, exe_name, version: string;
    MsgDlg1: integer;

procedure namen;
begin
  dat_orig:= 'update.exe';
  dat_copy:= 'bak\update.exe';
  exe_name:= 'update';
  version:= '1.0.0';
end;

{procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
  form1.ProgressBar1.Max := AWorkCountMax;
  gesamt := AWorkCountMax;
  Label2.Caption := '0 von '+FloatToStrF(gesamt/1000000,ffFixed,10,2)+' MB geladen';
  FTime := GetTickCount;
  FBytes := 0;
end;}

procedure upd;
begin
  begin
    CopyFile(PChar(Dat_orig), PChar(Dat_copy) ,true);
  end;
  close;
{    form1.zipmaster1.DLLDirectory:= ExtractFilePath(ParamStr(0));
    form1.zipmaster1.ExtrOptions:= form1.zipmaster1.ExtrOptions + [ExtrDirNames, ExtrOverwrite];
    form1.zipmaster1.ZipFilename:= 'C:\toll.zip';
    form1.zipmaster1.ExtrBaseDir:= 'C:\bak';
    form1.zipmaster1.Extract;}
end;

procedure start;
begin
  MsgDlg1:= MessageDlg('Backup Anlegen ?', mtConfirmation, [mbYes, mbNo], 0);
  if MsgDlg1= mrYes
  then
  begin
    namen;
    if
    DirectoryExists('bak')
    then
      upd
    else
      mkdir('bak');
      upd;
  end
  else
  begin
    upd;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Start;
  ShellExecute(Application.Handle,'open',PChar(exe_name + '.exe'),PChar('/update ' + version),PChar(''),SC_DEFAULT);
end;





end.

[Fussball-Robby]

Zitat:

Zitat von mkinzler

Möglicherweise ist der Fehler schon vorher.
Der dritte Parameter heißt overwrite.

Besagt der 3.Parameter nicht, dass abgebrochen wird, wenn die Datei existiert? (Also so ziemlich das Gegenteil von overwrite)

Mfg

[mkinzler]

Dein Einrücken verwirrt mich

Delphi-Quellcode:

procedure start;
begin
  MsgDlg1:= MessageDlg('Backup Anlegen ?', mtConfirmation, [mbYes, mbNo], 0);
  if MsgDlg1= mrYes then
  begin
    namen;
    if not DirectoryExists('bak') then mkdir('bak');
    upd;
  end
  else
  begin
    upd;
  end;
end;

[Fussball-Robby]

Es muss so heißen:

Delphi-Quellcode:

Form1.Close;

Oder du deklarierst die Prozedur im Private-Abschnitt von Form1.

Mfg

[Matze]

Zitat:

Zitat von Fussball-Robby

Besagt der 3.Parameter nicht, dass abgebrochen wird, wenn die Datei existiert? (Also so ziemlich das Gegenteil von overwrite)

Richtig:

Code:

BOOL CopyFile(
  LPCTSTR lpExistingFileName,
  LPCTSTR lpNewFileName,
  BOOL bFailIfExists
);

[mkinzler]

Tja, ein hoch auf das Hilfesystem von Delphi (Win32), brachte mir die Hilfefunktion für die .Net-Funktion

[Deltachaos]

Zitat:

Zitat von Matze

Zitat:

Zitat von Fussball-Robby

Besagt der 3.Parameter nicht, dass abgebrochen wird, wenn die Datei existiert? (Also so ziemlich das Gegenteil von overwrite)

Richtig:

Code:

BOOL CopyFile(
  LPCTSTR lpExistingFileName,
  LPCTSTR lpNewFileName,
  BOOL bFailIfExists
);

dann lasse ich es auf false.
mit dem form1.close hatte ich es probirt da satartet das programm zwar aber es schliest sich net.

[Fussball-Robby]

Zitat:

Zitat von Deltachaos

mit dem form1.close hatte ich es probirt da satartet das programm zwar aber es schliest sich net.

Dann wird diese Codestelle wahrscheinlich garnicht ausgeführt.