Pour récupérer le DC (Device Context) de ton imprimante, GetDC ne te sert à rien du tout. Je me demande d'ailleurs avec quel Hwnd tu l'as appelé... Bref, si tu veux récupérer le DC de ton imprimante, il faut que tu apelle la fonction CreateDC, en lui passant en paramètres les info du driver de ton imprimante. (Ne me demande pas de détails, je ne me souviens plus...)

Si tu y arrives, fait un signe, parce que j'émet quelques doutes sur le succès de ton entreprise
Je ne pense pas que tu aura de meilleurs résultats comme cela, car au final, il y a un vrai problème de refresh quand on dessine avec GDI sur des objets PB, à part pour un simple affichage (je pense te l'avoir déjà signalé d'ailleurs)... Mais vu que tu vas sûrement tenter le test, et si ça ne marche pas, je pense à un truc: code l'opération de dessin dans un user event correspondant à PBM_onpaint. Peut-être cela permettra à windows de prendre en compte ton dessin lors de l'impression...

Je me suis donc tourné vers CreateDC...

Voici mon nouveau "Global external functions" :

FUNCTION ulong CreateDC(ref string lpDriverName, ref string lpDeviceName, ref string lpOutput, ref DEVMODE lpInitData) LIBRARY "gdi32.dll" ALIAS FOR "CreateDCA"

Function ulong GetDC(ulong hwnd) library "user32.dll"

Voici la structure DEVMODE, récupérée sur le net et quelque peu complétée (voir plus bas) :

global type devmode from structure
  character    dmdevicename[32]
  integer    dmspecversion
  integer    dmdriverversion
  integer    dmsize
  integer    dmdriverextra
  long    dmfields
  integer    dmorientation
  integer    dmpapersize
  integer    dmpaperlength
  integer    dmpaperwidth
  integer    dmscale
  integer     dmCopies
  integer    dmdefaultsource
  integer    dmprintquality
  long    dmPosition
  long    dmDisplayOrientation
  long    dmDisplayFixedOutput
  integer    dmcolor
  integer    dmduplex
  integer    dmresolution
  integer    dmttoption
  integer    dmcollate
  character    dmformname[32]
  integer    dmlogpixels
  long    dmbitsperpel
  long    dmpelswidth
  long    dmpelsheight
  long    dmdisplayflags
  long    dmNup
  long    dmdisplayfrequency
  long    dmicmmethod
  long    dmicmintent
  long    dmmediatype
  long    dmdithertype
  long    dmreserved1
  long    dmreserved2
  long    dmPanningWidth
  long    dmPanningHeight
end type

Et voici maintenant mes appels powerscript :

// Recherche des infos sur l'imprimante par défaut : nom, driver, port
String ls_fullstring=PrintGetPrinter()
String ls_name, ls_driver, ls_port, ls_temp
Long ll_place
ll_place=pos (ls_fullstring, "~t")
ls_name=left(ls_fullstring, ll_place -1)
ls_temp=mid(ls_fullstring, ll_place +1)
ll_place=pos (ls_temp, "~t")
ls_driver=left(ls_temp, ll_place -1)
ls_port=mid(ls_temp, ll_place +1)

// Driver trouvé = "winspool"
ls_driver += ".drv"  // Testé avec "windspool" et "windspool.drv"
    
// Print test    
string ls_null
long ll_null
SetNull(ls_null)
SetNull(ll_null)
  
ulong hdl = Handle(this) // Handle de ma fenêtre à imprimer
ulong hdc

devmode lstr_devmode_null

// Test 1
hdc = GetDC(hdl)
MessageBox('', string(hdl) + ' - ' + string(hdc)) // 1116054 - 453055004
Post(hdl, 791, hdc, 0) // Rien ne se passe
  
// Test 2
hdc = CreateDC(ls_driver, ls_null, ls_null, lstr_devmode_null)  
MessageBox('', string(hdl) + ' - ' + string(hdc)) // 1116054 - 0
Post(hdl, 791, hdc, 0) // Rien ne se passe

Je ne comprends pas bien pourquoi il me faut utiliser CreateDC, mais quoi qu'il en soit je ne dois pas faire ce qu'il faut. La documentation sur CreateDC dit que ça retourne NULL si la fonction échoue ou si la structure DEVMODE n'est pas la structure courante. En effet, ma structure ne contenait pas autant de choses que celle montrée dans le lien précédant... Je l'ai donc complétée, sans améliorer mes résultats. Je conserve un gros doute au sujet de ma structure, d'autant plus que ça signifie que mon application sera dépendante de la version de la DLL gdi32.dll du poste client.

Bref, je dois encore creuser pour réussir à simplement appeler CreateDC, même si selon moi GetDC faisait ce qu'il fallait (mon imprimante est installée et positionnée comme imprimante par défaut. Il en sera de même chez le client final).

Dernière modification par Nyphel (08-10-2008 14:17:09)

Oula je comprends beaucoup mieux tout à coup. Je croyais que CreateDC créait un contexte, et que GetDC me retournait le handle d'un contexte... Indépendamment du support technique/driver. Et comme WM_PRINT demande un handle de contexte, je pensais que tout était parfait

J'ai donc ajouté mon ";Ansi" dans mon "Global external functions" :

FUNCTION ulong CreateDC(ref string lpDriverName, ref string lpDeviceName, ref string lpOutput, ref DEVMODE lpInitData) LIBRARY "gdi32.dll" ALIAS FOR "CreateDCA;Ansi"

J'avoue que je découvre ces appels de DLLs, et je n'avais pas compris que la spécification de l'encodage variait d'une version à l'autre de PowerBuilder.

En revanche, je ne peux pas faire mon appel comme ceci :

hdc = CreateDC(ls_driver, ls_device, 0, 0)

Pb me dit alors : "Reference argument must be a non-constant and non-readonly variable reference."

Ca m'ennuie aussi de perdurer dans cette voie, mais sinon je ne vois pas comment imprimer ma fenêtre avec ses images.
Nous avions déjà mentionné l'idée d'enregistrer l'image sur le disque, de la loader dans un Picture Control et d'imprimer le tout... Toutefois je ne parviens pas à récupérer le "texte/code" de l'image elle-même (JPG) dans le but de l'enregistrer. L'image est cryptée, et je ne parviens pas à faire l'appel de la méthode qui me retourne le contenu décrypté. C'est ce que j'essaie de faire depuis un moment, et ce pour quoi j'ai demandé de l'aide dans ce post... Sur lequel tu m'aides déjà activement

Encore une fois, merci pour tout Cortex !

Dernière modification par Nyphel (08-10-2008 14:48:59)

Haem... Désolé ! Avec la nouvelle déclaration de la fonction, je peux exécuter le code sans problème. Toutefois je n'ai toujours pas de HDC retourné.

FUNCTION ulong CreateDC(string lpDriverName, string lpDeviceName, long lIgnored1, long lIgnored2) LIBRARY "gdi32.dll" ALIAS FOR "CreateDCA;Ansi"

  hdc = CreateDC(ls_driver, ls_null, 0, 0)  
  MessageBox('', string(hdl) + ' - ' + string(hdc))  
      Post(hdl, 791, hdc, 0)

Tu as raison, je vais expliquer un peu tout cela, clairement, et en détails !

L'idée est la suivante : une caméra prend des photos et les stocke dans un dossier.
Mon application Pb affiche ces photos.

Toutefois, par soucis de sécurité, il est indispensable que ces photos ne puissent jamais être modifiées entre le moment où elles sont prises, et le moment où l'utilisateur a fini d'utiliser l'application Pb qui les affiche et permet de les consulter. Pour cela plusieurs mesures sont prises :
- dès que la photo est faite, elle est encryptée
- quand mon application souhaite afficher une photo, elle fait appel à une DLL (objet COM) qui décrypte la photo. L'objet COM prend en argument le handle de la fenêtre où je souhaite afficher cette photo, et c'est ensuite l'objet COM lui-même qui se charge de décrypter et d'afficher la photo dans la fenêtre. Mon application n'a aucun contrôle sur la photo.

Techniquement, côté Pb, ça se passe comme suit :
- j'ai une datawindow qui retrouve des données via une procédure stockée Oracle. Pour chaque row, j'ai une colonne qui me donne le chemin d'accès à la photo correspondant aux données.
- ma datawindow est bien entendu placée dans une fenêtre.
- lorsque l'utilisateur clic sur un row, j'affiche l'image qui correspond à ce row, dans ma fenêtre.

Depuis ma fenêtre, mon utilisateur peut demander à imprimer les données concernant 1 row (et un seul...). Dès lors, je prends les données du row en question et je vais les "mettre en page" dans une datawindow masquée qui ne sert qu'à ça. Au lieu d'avoir mes informations sous forme de colonnes, je fais un vrai rapport détaillé et mis en page, avec logos et tout le tralala.
Ma datawindow disposant elle aussi d'un handle, je peux y afficher mon image : je demande à mon objet COM d'afficher l'image dans la datawindow, ce qu'il fait très bien.

Vient le moment d'imprimer : ma datawindow s'imprime correctement, mais l'image n'est pas imprimée. Soit... C'est pas si étrange que ça, puisque l'image est "posée" sur la datawindow mais qu'elle 'nen fait pas partie.

Plusieurs solutions furent abordées sur différents posts du forums :

1) Ici, où j'ai voulu tout simplement passer le handle d'un control de ma datawindow à mon objet COM, pour qu'il dessine dans un PictureControl imprimable. Toutefois, on a pas de handle pour les control qui sont dans une datawindow, qui est dans une fenêtre... Et Pb crashe en tentant d'y accéder. J'ai même tenté de faire un nested report dans ma datawindow, mais le handle retourné vaut 0.

2) J'ai ensuite tenté d'utiliser une méthode de mon objet COM. Cette méthode devait me retourner le contenu de l'image décryptée, sous format chaine de caractères. Dès lors il me suffisait d'enregistrer cette image dans un fichier texte temporaire, puis de charger cette image dans un PictureControl de ma datawindow, avant d'imprimer le tout. Il n'y a pas de problème de confidentialité, l'image peut être copiée tant que l'original n'est pas modifié.
Malheureusement, il y a plusieurs problèmes :
- Tout d'abord, la méthode de l'objet COM prend un argument de type unsigned char**. Je ne parviens pas à lui transmettre un argument Pb du bon type, et l'application crashe inexorablement. Ce problème fut abordé par ici.
- Ensuite, je me suis aperçu que le paramètre attendu n'était peut-être pas une chaine de caractère qui serait modifiée par la méthode de l'objet COM, mais plutôt une adresse mémoire obtenue via la GCHandle structure... Et ce fut abordé par là.
On notera mon manque de documentation sur le sujet. J'essaie d'en obtenir mais sans réel succès.

3) Enfin, vient l'idée de ne plus imprimer ma fenêtre en utilisant la méthode dw.print() de PowerBuilder, mais en utilisant directement l'événement d'impression Windows. C'est le but de ce post-ci

Voili voilà, je ne sais pas si c'est très clair, mais j'espère avoir "posé" une vue d'ensemble de la problématique.

Ok, magnifique, on y voit plus clair

Bon, l'idéal aurait été que les gars qui ont fait le composant COM en aient fait un composant embeddable (avec composante graphique), et alors tu l'aurais ajouté comme OLE object parmi les controles de ta DW, il aurait juste servi à traduire ton image. Ca, c'est la solution 100% propre, chacun faisant exactement ce qu'il sait faire... Evidemment, j'imagine que vu que tu arrives pas à trouver la doc, c'est aussi que la team en question est tout aussi injoignable...

Il reste la possibilité de faire ce fameux contrôle embeddable, soit en C++ (bonjour l'angoisse) mais plus aventageusement en .NET.

Tu peux aussi faire un petit outil en .NET par exemple qui extraierait les images en clair dans un folder fixé, à la demande de ton applic PB (tu met cette applic .NET en COM visible, comme ça tu l'appelle de PB comme n'importe quel objet COM/OLE).

Sinon tu peux aussi te faire un Wrapper en utilisant PBNI (comme l'a proposé Buck), mais si tu n'en as jamais fait, ni non plus de C++, vaut mieux abandonner et préférer les soluces .NET, beaucoup plus faciles même si tu n'a pas d'expérience.

Voilà à chaud ce que je vois comme solutions à discuter peut-être avec ton équipe...

erasorz a écrit:

my 2 cents : tu pourrais aussi faire un printscreen de ta window et imprimer l'image globale résultante...

Moui, aussi... à la limite... Jusqu'au jour où on te demande de juste rajouter telle ou telle info sur le print

erasorz a écrit:

(d'ailleurs y'a du GetDC )

Ca veut dire quoi au juste cette remarque? 'ttention hein...

Bien le bonjour,

En fait l'idée qui guide la discussion dans ce post, c'est de remplir une datawindow avec les données et l'image que je souhaite imprimer, puis de demander à Windows d'imprimer la fenêtre telle qu'elle... Plutôt que de demande à Pb d'imprimer la datawindow, dans laquelle il ne connait pas les images.

Au final, je pense qu'il y a une solution équivalente et beaucoup plus simple : je créé une fenêtre de stockage. Dans cette fenêtre je place ma datawindow, mais ma datawindow ne contiendra pas mon image. Du coup je peux obtenir le handle d'un picture control placé par-dessus la datawindow, dans lequel je vais charger l'image.
Suite à cela, j'ouvre un job d'impression, et j'envoie ma fenêtre complète.

C'est pas terrible, ça fait une fenêtre dédiée à cela, je vais devoir transmettre toutes mes données de ma fenêtre principale à celle-ci... Mais je pense que ça peut fonctionner.

Non, j'en ai réclamé une et ils ils gentiment répondu qu'il me suffisait de passait par l'événement WM_PRINT qui gère l'impression Windows ;)

Je me demande si il n'y aurait pas une piste avec un certains "COMDLG32.ocx".

Dernière modification par Nyphel (09-10-2008 13:01:30)

Ensuite j'ai voulu faire la même chose avec l'événement d'impression.
Je dispose d'un exemple VB6 qui m'aide à me mettre sur la bonne voie (l'exemple imprime bien, mais l'image n'est pas visible)

Code: vb
    Printer.Print
    Printer.ScaleMode = vbInches
    Printer.Font.Name = "Arial"
    Printer.Font.Size = 12
    Printer.CurrentX = 1: Printer.CurrentY = 1
    Printer.Print "Print Test";

    Printer.CurrentX = 100: Printer.CurrentY = 100
   
    SendMessage pctPreview1.hwnd, WM_PRINT, Printer.hdc, 20

Quel est le type de l'objet pctPreview1 dans ton exemple vb6 ?

Il semblerait finalement que cet OCX ne soit pas très intéressant.

Le principe est d'ouvrir la boite de dialogue d'impression, et de récupérer le HDC de l'imprimante sélectionnée... Sauf que dans mon cas je ne dois pas ouvrir la boite de dialogue, et donc je ne récupère pas de HDC viable. Qui plus est j'ai bien des difficultés à l'utiliser.

Je pense maintenant que la solution se situe au niveau du CreateDC. Il semblerait en fait que le second paramètre - obtenu par EnumDisplayDevices - soit requis, j'essaie de récupérer la valeur correcte de ce paramètre... Mais bon... Pour le moment j'ai du mal.

Dernière modification par Nyphel (10-10-2008 08:52:31)

Et bien en fait - avant de chercher à imprimer - je dois afficher la photo.
Pour afficher une photo, je dois appeler une fonction d'un objet COM qui se charge de décrypter la photo et de l'afficher dans une fenêtre. Cette fonction prend dont en argument le handle de cette fenêtre.

Je souhaite afficher ma photo au milieu de données textuelles, dans une datawindow.
Le code VB fait exactement la même chose, et place l'image dans un PictureControl. Pour ma part, l'idée sera donc d'avoir un PictureControl dans ma datawindow... Mais le hic c'est que Pb est incapable de me retourner le handle d'un objet placé dans une datawindow.

Dès lors, je ne peux plus placer ma photo dans un PictureControl d'une datawindow.
Si je le place directement dans une fenêtre, hors de la datawindow qui contient les données textuelles, alors j'ai des soucis à l'impression. Quand Pb imprime la fenêtre, on dirait qu'il imprime une sorte de screenshot/ImprEcran.

Ouais... Bingo... :D

Ca pourrait être une solution, oui... Il faudrait que je détermine la position de l'image en fonction :
- de la position du controle dans la DW,
- de la position de la DW dans la fenêtre,
- de la position de la fenêtre dans l'application (MDI),
- de la position de l'application (ou de la fenêtre principale) sur le bureau,
- et - bien entendu - de la résolution du bureau.

Oui, ça se tente !

Dès que j'ai quelques heures de libres, j'essaie ça
Merci pour l'idée Erasorz !