Delphi beginners some of the problems.-CodePudding

7. Complete ZiSheng program: a main program to upgrade the server, when start the upgrade process to upgrade first, if it is found that when the need to upgrade to the upgrade,

8. Since the upgrade their application into the login window (directly connect to the database), after landing successful judgment database data version, if it is below the specified software version,
All operations, shielding the form (in addition to exit the operation);

9. Set up a class, want to let the base class and derived class implements the cloning operation

CodePudding user response:

Reference

7. Complete ZiSheng programs: one of the main program to upgrade the server, when start the upgrade process to upgrade first, if it is found that when the need to upgrade to the upgrade,

8. Since the upgrade their application into the login window (directly connect to the database), after landing successful judgment database data version, if it is below the specified software version,
All operations, shielding the form (in addition to exit the operation);

9. Set up a class, want to let the base class and derived class implements the cloning operation

7. Example: each upgrade service program can use TTimer controls every once in a while via the URL request check program or module need to upgrade, and then by the number of function in ShellAPI unit program or module to replace,
8. After logging in to query the database to store the version of the table, example:

 SELECT ver the FROM t_Version

get the version number and after comparing the current program version, if it is below the database record the version number, use the controls Enable attribute to control, Enable attribute to False when control failure,
9. Cloning is to the operation of the objects, not classes, inherit from TPersistent class can use in Delphi Assign or AssignTo method of object replication, example:

 
Type 
TFoo=TPersistent 
S: a string; 
End 

Procedure Foo. 
Var 
A, b: TFoo; 
The begin 
A:=TFoo. Create; 
B:=TFoo. Create; 
A.S:='Foo'; 
A.A ssignTo (b); 
//or b.A ssign (a); 
End

CodePudding user response:

Upgrade service program, general Settings when logging in, search the old and new file modification time value, then download the new files, can,