Discussion :

[Booster2ooo]

Bonjour à tous,

J'ai développé une application en GUI utilisant un thread (unit2). Pour la synchronisation et l'échange de données, j'ai utilisé une "critical section" dans unit1. Unit1 utilise (uses) unit2 et inversement. Jusque là, pas de problème.

J'ai voulu adapté ce programme en application console.
Dans le main.dpr:

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
type
  TMyClass = class(TComponent)
    procedure createthread;
  private
    fHWnd: HWND;
    Closing: boolean;
    FStringSectInit: boolean;
    FScanThread: TScan;
    FStringBuf: TStringList;
    procedure HandleNewData(var Message: TMessage); message WM_DATA_IN_BUF;
  public
    StringSection: TRTLCriticalSection; // -----> Critical section qui était dans unit1 dans le GUI et qui est maintenant dans main.dpr
    property StringBuf: TStringList read FStringBuf write FStringBuf;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure run;
end;
 
var Application: TMyClass;

Dans unit2, j'utilise cette critical section:

Code :

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

EnterCriticalSection(Application.StringSection);

A la compil:
[Error] Unit2.pas(126): Undeclared identifier: 'Application'

Logique, unit2 n'utilise (uses) pas main.dpr où est déclaré Application.

Quelqu'un pourrait me dire comment faire pour régler ce problème ?

[CapJack]

Déclarer TMyClass et tous ses membres dans une troisième unité unit3, référencée dans unit1 et unit2 ? Non ?

[Booster2ooo]

(unit1 n'existe pas dans le prog en console, c'est main.dpr.)

J'y ai pensé mais j'ai aussi pensé à un problème: disons que je déclare toute ma classe et ses fct/proc dans myclass.pas, "var Application: TMyClass" reste dans main.dpr et donc non-accessible par unit2, non?


//edit: j'ai testé, avec et sans la déclaration de Application dans myclass.pas, ca fonctionne toujours pas.

Main.dpr:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
program TEST;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Unit2,
  Unit1;
 
begin
  Unit1.Main;
end.

Unit1.pas (MyClass.pas dans l'exemple que je prends plus haut)

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
unit Unit1;

interface

uses Messages, Windows, SysUtils, Classes, Erazerz, unit2;

const  WM_DATA_IN_BUF = WM_APP + 1000;
        NbThreads = 50;

type
  TMyClass = class(TComponent)
  private
    fHWnd: HWND;
    Closing: boolean;
    FStringSectInit: boolean;
    FScanThread: TScan;
    FStringBuf: TStringList;
    procedure HandleNewData(var Message: TMessage); message WM_DATA_IN_BUF;
  public
    StringSection: TRTLCriticalSection;
    property StringBuf: TStringList read FStringBuf write FStringBuf;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure run;
    procedure GetIpList(filename: string);
    procedure createthread;
end;

implementation

var Application: TMyClass;
    IpList: TStringList;

...BLABLA des fonctions...

procedure Main;
begin
  Application := TMyClass.Create(nil);
  Application.run;
  If ParamCount <> 0 then Application.GetIpList(ParamStr(1)) else writeln('No ip list specified');
  Application.createthread;
  Application.Free;
end;

end.

Unit2.pas (celle du thread):

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

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, winsock, shellapi;

type
  TScan = class(TThread)
  private
    { Private declarations }
    FStartIP:string;
    function isVuln(IP: string; var vuln: string): boolean;
    function INetAddr(const Host:string):integer;
  protected
    procedure Execute; override;
  public
    property StartIP: string read FStartIP write FStartIP;
  end;

... BLABLA des const...

implementation

uses unit1;

... BLABLA mes fonctions...

procedure TScan.Execute;
var
  CurrentIP, Vulnurl: string;
begin
  CurrentIP := FStartIP;
    if isVuln(CurrentIP, VulnURL) then
    begin
      EnterCriticalSection(Application.StringSection); //<< PROBLEME !!!
      Application.StringBuf.Add(VulnURL);
      LeaveCriticalSection(Application.StringSection);
      PostMessage(Application.Handle, WM_DATA_IN_BUF, 0, 0);
    end;
end;
end.

Et toujours: [Error] Unit2.pas(128): Undeclared identifier: 'Application'

[tourlourou]

TApplication est déclarée dans l'Unit Forms...
pas de fiche, pas d'appli !

il y a d'autres types de variables Application, pê l'un adapté aux applis console : regarde avec F1

[Booster2ooo]

Application n'est pas un TApplication, c'est un TMyClass que j'ai déclaré à la main.

[neodelphi2007]

Je pense qu'il y a trois problèmes:

1. tu déclare Application dans l'implementation de ton unité Unit1, donc inaccessible aux autres unités;
2. La variable Application doit être réservée par Delphi ; pourquoi pas AppConsole ?
3. Mettre ta variable Application (AppConsole) dans l'interface de ton unité Unit1;

[Booster2ooo]

J'ai changé Application de place (interface) et renommé, en effet ça fonctionne.
Merci pour votre aide.