Discussion :

[Ludelphi7]

Bonjour,
je cherche à faire une copie d'écran avec la bib sympa TBGRABitmap 9.2 sous Ubuntu16 / Laz 1.6.
Le code est le suivant, et fonctionne bien sous Winchose 7 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  ScreenDC : HDC;
  bmp: TBGRABitmap;
Begin
  try
    bmp:= TBGRABitmap.Create;
    ScreenDC := GetDC(0); // récupère le handle de l'écran
    bmp.LoadFromDevice(ScreenDC);
    ReleaseDC(handle,ScreenDC);
    bmp.SaveToFile('testscreencopy.bmp');
  finally
    bmp.free
  end;
end;

Ce code, donc, qui marche très bien sous winchose, marche aussi très bien sous ubuntu si j'utilise un classique bitmap.
Par contre, sous ubuntu, avec un bgrabitmap, il me génère un malheureux fichier de 54octets complètement inadéquat (!).
Dans le même registre, la fonction bmp.TakeScreenshotOfPrimaryMonitor me donne le même pov fichier de 54bytes.
Peut on me dire quel est le souci sous Ubuntu please ?
Merci d'avance
ludo

[jurassic pork]

hello,
je suis sur le problème voir ici

Ami calmant, J.P

[Jipété]

Salut J.P,

je suis sur le problème voir ici

je te réponds ici car là-bas je n'ai pas de compte.

If in all the files of the tbgrabitmap package, i replace DC : System.THandle by : DC : PtrUInt TakeScreenshot works.
Is it a good idea ?

J'aurais tendance à dire "oui" car j'utilise DC pour faire de la copie d'écran, et avec des Ctrl-Clic pour "remonter", j'arrive là, dans LCLtype :

Code :

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

1
2
3
4
5
6
7
8
9
  {$ifndef WINDOWS}
  PInt = ^integer;
  THandle = type PtrUInt; // define our own, because the SysUtils.THandle = System.THandle is a longint
  HANDLE = THandle;
  PHandle = ^THandle;
 
  { Provided for compatibility with Windows registry ONLY }
  HKEY  = Integer;
  HDC   = type THandle;

Bon, je ne suis surement pas une référence, avec tous les problèmes de vieilles versions et 32bits que je trimballe, mais si ça peut t'inspirer, chez moi c'est

Code :

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

1
2
var
  DC: HDC;

[jurassic pork]

Ok merci Jipété , j'attends que le concepteur de BgraBitmap (circular qui est français je crois) passe dans le forum officiel de Lazarus pour voir ce qu'il en pense et propose éventuellement une correction.

Ami calmant, J.P (santé)

[jurassic pork]

hello,
circular a pris en compte la modification que je lui ai suggérée dans la version dev-bgrabitmap de bgrabitmap.

Ok. I applied changes following this idea in "dev-bgrabitmap" branch. Does it fix the problem?

Pour l'obtenir, aller sur https://github.com/bgrabitmap/bgrabitmap cliquer sur le bouton branch: master et choisir dev-bgrabitmap et télécharger la version en cliquant sur le bouton vert clone or download

En tout cas avec cette version le TakeScreenShot fonctionne pour moi sous Ubuntu 16.04 64 bits Lazarus 1.8RC3 64 bits.

Ami calmant, J.P

[Ludelphi7]

Big merci, la version dev-bgrabitmap marche nickel chez moi aussi
Ubuntu 16.04 x64 Lazarus 1.6
ludo

Résolu !