Appel d'une procédure dans une app. console

**FDR2006** · 10/05/2011, 15h17

Bonjour,
Je cherche à faire des modules console pour des mises à jour des DB qui sont lancées par "Scheduled Task"
J'utilise un très simple DataModule, mais je ne sais pas appeller la procédure qui est dédans à partir du module DPR.
J'ai regardé Google + FAQ sans rien trouver dan ce sens.

Lorsque je compile avec la ligne TDataModule1.DataModuleCreate le compilo me dit:
"This for of method call aloowed only for class methods"

Si je fais bouton droit sur le composant TBatchMove plus "Execute" l'insertion se passe normalement.

Merci de votre aide, et très bonne journée!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program Insert01;
{$APPTYPE CONSOLE}
uses
  SysUtils,IniFiles,Classes,
 
  Unit1 in 'Unit1.pas' {DataModule1: TDataModule};
 
{$R *.RES}
 
begin
TDataModule1.DataModuleCreate;
end.
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DB, DBTables;
 
type
  TDataModule1 = class(TDataModule)
    addTODOIO: TBatchMove;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  DataModule1: TDataModule1;
  LogFile: TextFile;
  FileName: string;
 
implementation
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
FileName:='LogInsert.txt';
AssignFile(LogFile,FileName);
Rewrite(LogFile);
WriteLn(LogFile,'Proc Started: ',TimeToStr(Time));
addTODOIO.Execute;
WriteLn(LogFile,addTODOIO.RecordCount,' record[s] inserted.');
WriteLn(LogFile,'Proc Ended: ',TimeToStr(Time));
end;
{$R *.DFM}
 
end.