Fichier Thumbs.db

Question

Posez votre question Signaler

Fichier Thumbs.db

papyvore

Messages postés: 167
Date d'inscription: samedi 15 novembre 2003
Dernière intervention: 21 février 2019

- 8 nov. 2017 à 14:26 - Dernière réponse : papyvore

Messages postés: 167
Date d'inscription: samedi 15 novembre 2003
Dernière intervention: 21 février 2019

- 8 nov. 2017 à 18:20

Delphi / Pascal Posez votre question Signaler

Bonjour,
quelqu'un aurait il déjà utilisé l'unité ThumbDatabase de
https://www.3delite.hu/Object%20Pascal%20Developer%20Resources/download.html#TThumbDatabase
qui permettrait de récupérer
// * D:\card.jpg //* Filename with full path *
// * 41639 //* File size - for simplicity the file size is checked weather the file had undergone changes *
// * 300 //* Width of the original file, -1 for non image files *
// * 250 //* Height of the original file, -1 for non image files *
// * D:\ace.png //* The following files...
ainsi que les vignettes .

ce que j'essais de faire .
Mais j'avoue que j'ai du mal à la mise en oeuvre .
Si quelqu'un a une idée
merci.

--
papyvore

Afficher la suite

A voir également:

Votre réponse

Répondre au sujet

1 réponse

Votre réponse

Répondre au sujet

Posez votre question

Cirec · Answer 1 · 2017-11-08T15:01:24+0100

Signaler Commenter la réponse de Cirec

Cirec

Messages postés: 4229
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 3 août 2018

41 8 nov. 2017 à 15:01

0

Merci

Bonjour,

je n'ai pas encore eu l'occasion d'utiliser cette librairie mais
je vois d'après le lien que tu donnes qu'il faut encore télécharger la lib ID3v2
de coté là tu n'as pas eut de soucis tout c'est bien passé ?

pour plus de précisions:
ton problème est il d'avantage lié à l'utilisation ou l'installation de cette lib

Cordialement,

Signaler Commenter la réponse de papyvore

papyvore

Messages postés: 167
Date d'inscription: samedi 15 novembre 2003
Dernière intervention: 21 février 2019

5 - 8 nov. 2017 à 18:20

merci de me répondre
le soucis est l'utilisation

procedure TForm2.Button4Click(Sender: TObject);
var
  FrameID1 : ID3v2Library.TFrameID;
  Wid, Heig, ThumbWid, ThumbHeig: Int64;
 ThumBase1  : TThumbDatabase;

begin
if OpenDialog1.Execute then
    LoadFromFileToMemo(OpenDialog1.FileName, Memo1);
//charge le memo en hexa juste pour voir  
  Stream1 := TStream.Create;

 ThumBase1 := TThumbDatabase.Create;
// ThumBase1.fEntries.LoadFromFile(OpenDialog1.FileName) ;???????

if ThumBase1.GetThumb(OpenDialog1.FileName , Stream1 , Wid, Heig, ThumbWid, ThumbHeig, FrameID1) then
  begin
//pour vérifier 
   label1.Caption := inttostr(ThumbWid)+' '+ inttostr(ThumbHeig)
  end;
  Stream1.Free;
  ThumBase1.Free;

end;

voilà ce que j'ai testé mais je comprend pas comment alimenter fEntries

Fichier Thumbs.db

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !