AFFICHER UNE CARTE À JOUER GRÂCE À LA DLL "CARDS.DLL"

Signaler
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
-
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/19265-afficher-une-carte-a-jouer-grace-a-la-dll-cards-dll

Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
8
Bonjour,
chez moi cette fonction ne marche pas ...

Voila mon unité :

unit UCards;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, JPEG;

function cdtDraw(DC:HDC; X,Y,Card,Typ:Integer; Color:TColor):Integer; StdCall; external 'CARDS.DLL';
function cdtInit(var Width,Height:Integer):Integer; StdCall; external 'CARDS.DLL';
function cdtTerm:Integer; StdCall; external 'CARDS.DLL';

implementation

end.

Dans une autre unité (avec une fiche cette fois ) :

uses UCards; // Pour utiliser l'unité plus haut

... ...

procedure TForm1.Create;
begin
UCards.cdtInit(Img.Width, Img.Height);
( Width 150 / Height 200)
end;

Voila le message d'erreur :

"Le point d'entrée de la procédure cdtinit est introuvable dans la bibliothèque de liaisons dynamique Cards.Dll"

Je suis sous Windows XP
Si tu avais une explication et/ou une solution au problème, j'apprecierai grandement une aide de ta part :)

Cordialement, Bacterius !