Hi ich hab einen Updater gemacht doch blick ich die errors nicht
deklaration :
Delphi-Quellcode:
Version: File;
Versionfrominternet: File;
ReadenVersion: String;
ReadenVersion2: String;
SetupPath: TStream;
SetUPonlinePath: File;
TSTREAMONLINEVERSION: TStream;
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
TSTREAMONLINEVERSION := TFileStream.Create('
./data/OnlineVersion.ini', fmCreate);
try
Downloader.Get('
http://www.gooooogle.de/Version.ini',TSTREAMONLINEVERSION);
finally
end;
assignfile(Version,'
./data/BatchMakerVersion.ini');
rewrite(Version);
// Öffne die Datei für den Schreib-Modus
ReadLn(Version,ReadenVersion);
CloseFile(Version);
assignfile(Versionfrominternet,'
./data/OnlineVersion.ini');
rewrite(Versionfrominternet);
// Öffne Datei für den Schreib Modus
ReadLn(Versionfrominternet,ReadenVersion2);
CloseFile(Versionfrominternet);
If ReadenVersion < ReadenVersion2
then begin// Wenn die Version im Internet neuer ist ...
// Frag benutzer nach Aktion und wenn Ja, dann update
If MessageDlg('
Es sind Updates vorhanden ! Sollen diese Jetzt Gedownloadet werden ?', mtConfirmation, [mbyes, mbno], 0) = mrYes
then begin
// Benutzer Stimmt zu !
SetupPath := TFileStream.Create('
./data/setup.exe', fmCreate);
try
Downloader.Get('
http://www.goooogle.de/BatchMaker/setup.exe',SetupPath);
finally
SetupPath.Free;
// Gedownloadet ...
MessageDlg ('
Das Update Wurde Erfolgreich Heruntergeladen ... Der Installer führt sie durch das Update','
Erfolg !');
ShellExecute(
Handle,
nil, SetupPath,
nil, PChar(CurrentDir), SW_NORMAL);
// Starte die Setup.exe
Form1.Close
end
end
Else // Benutzer möchte kein Update
MessageDlg('
Abgebrochen. Sie Werden beim nächsten Start von Windows nocheinmal gefragt.', mtInformation, [mbOK], 0)
Else
// Computer hat die Neuste Version
end;
end.
Errors :
[Fehler] Unit1.pas(645): Inkompatible Typen: 'procedure, untyped pointer or untyped parameter' und 'String'
[Fehler] Unit1.pas(649): Inkompatible Typen: 'procedure, untyped pointer or untyped parameter' und 'String'
[Fehler] Unit1.pas(662): Inkompatible Typen: 'TMsgDlgType' und 'String'
[Fehler] Unit1.pas(663): Undefinierter Bezeichner: 'ShellExecute'
[Fehler] Unit1.pas(663): Undefinierter Bezeichner: 'CurrentDir'
[Fehler] Unit1.pas(669): 'END' erwartet, aber 'ELSE' gefunden
[Fehler] Unit1.pas(672): '.' erwartet, aber ';' gefunden
EDIT : Echte Links entfernt