Utilisation d'un callback event durant l'utilisation de L_CreateThumbnailFromFile

**Tardiff Jean-François** · 09/02/2007, 09h16

Bonjour,

Un des programmes de la société utilise l'ordre L_CreateThumbnailFromFile de leadTools version 13.

Certaines images sont longue a traiter, il je dois mettre un panneaux de traitememnt pour indiquer le travaille restant à éffectuer.

Je cherche donc comment utiliser l'evenement de call back (pfnCallback) de l'ordre.

Autrmemnt dit j'ai actuellement

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 nTmp := L_CreateThumbnailFromFile(
    PChar(pFileInfo.FileNameAndPath),
    pFileInfo.Bmp,
    //sizeof(BITMAPHANDLE), //!!!HL!!!
    @aTO,
    Nil,    // pfnCallback;  /* optional callback function */
    nil,
    nil,
    @aFi);

Et je cherche comment utilise pfnCallback.

Merci

**LadyWasky** · 09/02/2007, 13h00

Tu devrais trouver ton bonheur avec du code qui utilise EnumWindows et une procedure de callback, ici par exemple :
http://www.developpez.net/forums/sho...ht=EnumWindows

c'est exactement le même principe

Ou dans la FAQ aussi :
http://delphi.developpez.com/faq/?pa...dlefenetreproc

**Tardiff Jean-François** · 09/02/2007, 14h05

Bon,
Cela vance, j'arrive a passer une fonction.

Cependant il me reste un problème.

Me basant sur http://www.leadtools.com/help/leadto...romFileExD.htm
Je pensait que la fonction devait avoir la forme.

Code :

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

1
2
3
4
 
function EnumWindowsCallback
    (Sender: TObject; Bitmap: TBitmapHandle; FileName: String;
     nStatusCode, nPercent: Integer): Boolean;

Je rentre bien dans la fonction, mais cela plante ensuite. La déclaration doit être fausse. Du coup quuelqun sait il la déclaration pour leadtool version13.
Tous ce que je sais c'est que les appellent on théoriquememnt changé entre les version 12 et 13.

Dans tous les cas, merci Waskol, par ce que je ne n'aurait pas trouver comment passer la fonction

**LadyWasky** · 09/02/2007, 14h17

De rien,
sinon, à mon avis, tout ce qu'il te reste à faire c'est de les contacter...

Peut-être en enlevant Sender: TObject;...

**jambonstar** · 09/02/2007, 14h20

Envoyé par waskol

De rien,
sinon, à mon avis, tout ce qu'il te reste à faire c'est de les contacter...

Bonne chance, parce que LeadTools, c'est un vrai bonheur leur support. Surtout qu'ils vont tanter de te vendre leur derniere version (et surement pas la Raster)

**LadyWasky** · 09/02/2007, 14h22

et L_CreateThumbnailFromFile, c'est dans qu'elle DLL ?

**Tardiff Jean-François** · 09/02/2007, 14h38

J'ai envoyer un courriel à Leadtools, mais je ne suis pas certain d'avoir la réponse avant le prochain dégel.
En attendant, je cherche comment résoudre le problème.

**Tardiff Jean-François** · 09/02/2007, 14h48

Je ne sais pas dans quelle DLL est la fonction.LeadTool en contient tellement.
En supprimer une et tout un pan de l'aaplication ce mest à planter (Planter grave dirait certains).

**LadyWasky** · 09/02/2007, 15h00

ça y'est je l'ai "chopé".

Vas vite voir ici :
http://www.leadtools.com/help/LEADTO...ilCallBack.htm

**Tardiff Jean-François** · 09/02/2007, 15h30

Non cela ne fonctionne pas. sauf erreur de mas part naturellment, mais je ne le crois pas.
Si l'on click sur le lien (en fin de page)

Code :

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

1
2
3
 
Example
  refer to LFile::CreateThumbnail.

cela envoi à CreateThumbnail et non L_CreateThumbnail.

C'est cela Leadtools. Il est possible de tout faire, mais attention . vous pouvez utiliser Leadtools Vector, Vector pro, raster, Raster Pro avec un apelle identique ou différent pour chaque.
Plus les versions qui font aussi varier les appelles.

Puissant, mais Sympa.

**LadyWasky** · 09/02/2007, 15h47

Essais toujours avec une fontion de ce prototype (on ne sait jamais) :

Code :

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

CreateThumbnailCallBack (var FileInfo:TFileInfo; var Bitmap:TBitmapHandle;Buffer:PChar;var uFlags:word,var nRow,nLines:integer);

**Tardiff Jean-François** · 09/02/2007, 16h07

Cela ne fonctionne pas. Je ne pense pase que les fonction leadtools començant par L_ accepte les formats delphi. Bon c'est vrai qu'il l'on annoncé, mais je ,e l'ai pas constaté dans le code.

J'espère que leadTool me repondra lundi.