Discussion :

[Paul TOTH]

j'ai comme un doute...les données sont des pointeurs...sauf peut-être le TMonitorEx...

pas le temps maintenant mais il faudrait tester tout simplement en chargeant la DLL qui fonctionne dans une appli et vérifier ce quelle retourne en effet le port monitor étant une simple DLL il est possible de l'invoquer normalement

j'avais déjà fait des tests sommaires en 32 bits sur le EnumPorts

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
 
procedure TForm1.test(dll: PChar);
var
  h: THandle;
  p: function (pRegistryRoot: PWideChar): PMonitorEx; stdcall;
  m: PMonitorEx;
  e: Bool;
  need, count: Cardinal;
  buf:array[0..500] of Char;
  w: PWideChar;
begin
  h := LoadLibrary(dll);
  p := GetProcAddress(h, 'InitializePrintMonitor');
  m := p('System\CurrentControlSet\Control\Print\Monitors\ImagePrinter Port');
  e := m.Monitor.pfnEnumPorts(nil, 2, nil, 0, @need, @count);
  Memo1.Lines.add(Format('EnumPorts = %d, need = %d, count = %d, %d',[Ord(e), need, count, GetLastError]));
  FillChar(buf, SizeOf(buf), 0);
  e := m.Monitor.pfnEnumPorts(nil, 2, @buf, SizeOf(buf), @need, @count);
  Memo1.Lines.add(Format('EnumPorts = %d, need = %d, count = %d, %d',[Ord(e), need, count, GetLastError]));
  Memo1.Lines.add(IntToHex(cardinal(@buf), 4));
  Move(buf[0], w, SizeOf(w));
  if w = nil then
    Memo1.Lines.Add('nil')
  else
    Memo1.Lines.add(string(w));
  Move(buf[4], w, SizeOf(w));
  if w = nil then
    Memo1.Lines.Add('nil')
  else
    Memo1.Lines.add(string(w));
  Move(buf[8], w, SizeOf(w));
  if w = nil then
    Memo1.Lines.Add('nil')
  else
    Memo1.Lines.add(string(w));
  Move(buf[12], w, SizeOf(w));
  if w = nil then
    Memo1.Lines.Add('nil')
  else
    Memo1.Lines.add(string(w));
  Dump(buf, need);
  FreeLibrary(h);
end;

[Paul TOTH]

bon, ça ne fonctionne pas encore mais ça ne plante plus en 64bits, ça venait de la taille de dwMonitorSize

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 TMonitorEx = packed record
  {$IFDEF WIN64}
    dwMonitorSize  : Int64;
  {$ELSE}
    dwMonitorSize  : Cardinal;
  {$ENDIF}
    Monitor        : TMonitor;
  end;
  PMonitorEx = ^TMonitorEx;

je voulais avoir une console pour afficher les messages, mais ça crée une boîte de dialogue des plus étrange qui donne accès à la console dans une autre session.

[BuzzLeclaire]

Re

Donc c'est un problème de taille, je vais testé aussi de me côté semaine prochaine ou demain.

Merci de l'info.

[Paul TOTH]

J'ai trouvé d'où vient ce message, c'est lié à Vista/Seven qui interdit à un service d'interagir avec l'interface utilisateur....

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[BuzzLeclaire]

J'ai trouvé d'où vient ce message, c'est lié à Vista/Seven qui interdit à un service d'interagir avec l'interface utilisateur....

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Salut Paul, désolé du retard mais je reprends au mieux ce topic que je ne lacherai pas facilement, je dois vraiment arriver a faire ce driver.

Sur ton dernier topic ce ne serais pas juste un problème d'UAC ?

[Paul TOTH]

Salut Paul, désolé du retard mais je reprends au mieux ce topic que je ne lacherai pas facilement, je dois vraiment arriver a faire ce driver.

Sur ton dernier topic ce ne serais pas juste un problème d'UAC ?

non, c'est bien une limitation spécifique des services...l'UAC est désactivée depuis bien longtemps sur mon PC

[Montor]

A la place de tout implementer on peut utilier un port qui existe deja
créer une dll avec le même nom de driver renommer la dll origine ex:driver.dll vers +driver.dll
ca fonctionne

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
 
  function Init(pRegRoot:LPWSTR):pMonitorEx;stdcall;
  external '+driver.dll' name 'InitializePrintMonitor';
 
var
   Mon:rMonitorEx;
   Ex:rMonitorEx;
 
 
function InitializePrintMonitor(pRegRoot:LPWSTR):pMonitorEx;stdcall;export;
var
   P:pMonitorEx;
begin
   DbgSend('InitializePrintMonitor start');
   P:=Init(pRegRoot);
   Move(P^,Ex,P.dwMonitorSize);
   Result:=@Mon;
   DbgSend('InitializePrintMonitor end');
end;
 
function OpenPort(pName:LPWSTR;H:PHANDLE):BOOL;stdcall;
begin
   DbgSend('OpenPort');
   Ex.OpenPortFunc(pName,H);
end;
 
function StartDocPort(hPort:HANDLE;pPrinterName:LPWSTR;
                       JobID,Level:DWORD;pDocInfo:LPBYTE):BOOL;stdcall;
begin
   DbgSend('StartDocPort');
   Ex.StartDocPort(hPort,pPrinterName,JobID,Level,pDocInfo);
end;
ainsi de suite ...

[Paul TOTH]

A la place de tout implementer on peut utilier un port qui existe deja
créer une dll avec le même nom de driver renommer la dll origine ex:driver.dll vers +driver.dll
ca fonctionne

euh...c'est quoi l'intérêt ?!

[Montor]

pour savoir si on a la bonne coquille