Discussion :

[willos_fr]

Bonjour,

Mon projet est de créer un prgramme sans interface qui se lancera tous les matins afin de lire un fichier pour l'intégrer dans une base.
Donc j'ai créer un programme de type console qui se connecte à une base sql serveur.

j'ai créé un datamodule où sont déclaré ma connexion et une de mes tables.
le problème est que je n'arrive pas à initialiser mon datamodule et donc me connecter

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
51
52
 
program Gmrpmr;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  connecu in 'connecu.pas' {DataModulepmr: TDataModule};
       var
        Fgmr:TextFile;                   //fichier reçu de GMR
        chaineconnec,lignelu, typeligne : string;
 
      procedure cas00(ligne:string);
        begin
          datamodulepmr:=TDataModulepmr.Create(nil);
          with DataModulepmr.ADOConnectionPMR do begin
            // Open;
              if Connected then begin
                 writeln('ça passe');
                 DataModulepmr.ADOTableFichier.Insert;
                 DataModulepmr.ADOTableFichierC_ficHorodate.AsString := copy(ligne,6,14);
                 DataModulepmr.ADOTableFichier.Post;
              end
              else
                writeln('ça passe pas');
              end;
        end;
      procedure cas01(ligne:string);
        begin
          writeln('suite');
        end;
begin
  try
  { TODO -oUser -cConsole Main : Insert code here }
    AssignFile(Fgmr,'c:\test.txt');     //initialisation : où se trouve le fichier reçu
    Reset(Fgmr);                    // ouverture du fichier
    while not Eof(Fgmr) do
     begin
       Readln(Fgmr,lignelu);
       typeligne := Copy(lignelu,0,2);
       if typeligne='00'then
        cas00(lignelu);
       if typeligne='01'  then
          cas01(lignelu);
       readln;
       closeFile(Fgmr);      // fermeture du fichier
       end;
     except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

On me parle de coinitalize mais je ne comprend pas son foctionnement ?
Si vous pouviez m'aider ? Merci

willos

[edam]

pour moi, j'ai crée une appli normal avec Application.ShowMainForm:=false;