Type a page name and press Enter. You'll jump to the page if it exists, or you can create it if it doesn't.
To create a page in a module other than cards, prefix the name with the module name and a period.
CardsWrappe (cards)
.
MODERATORS/EDITORS: Please delete this page, it is a duplicate of "Card Wrapper" (I'd assume this page is a typo).
C# Code:
using System;
using System.Drawing;
using System.Runtime.InteropServices;
namespace Cards
{
/// <summary>
/// Class wrapper to Cards.dll
/// </summary>
public sealed class Card
{
#region API Declares
[DllImport("cards.dll")]
private static extern bool cdtInit([In] ref int width, [In] ref int height);
[DllImport("cards.dll")]
private static extern int cdtDrawExt(IntPtr hDC, int x, int y, int dx, int dy,
int ecsCard, int ectDraw, int clr);
[DllImport("cards.dll")]
private static extern int cdtDraw(IntPtr hDC, int x, int y, int ecsCard,
int ectDraw, int clr);
[DllImport("cards.dll")]
private static extern int cdtAnimate(IntPtr hDC, int ecbCardBack, int x, int y, int iState);
#endregion
#region fields
private static int _standardWidth;
private static int _standardHeight;
#endregion
#region Constructor
static Card()
{
bool ret = Card.cdtInit(ref _standardWidth, ref _standardHeight);
if (!ret)
throw new ApplicationException("Can't load cards.dll !");
// free up library when process exits
AppDomain.CurrentDomain.ProcessExit += new EventHandler(CurrentDomain_ProcessExit);
}
#endregion
#region Public Static Members
public static void DrawFace(Graphics g, int x, int y, int width, int height, int faceValue, CardSuit suit, Color invertedColor)
{
if (faceValue<0 || faceValue>12)
throw new ArgumentOutOfRangeException("FaceValue", faceValue, "faceValue must be in the range 0 - 12.");
int cardValue = (int)suit + faceValue * 4;
IntPtr hDc = g.GetHdc();
try
{
cdtDrawExt(hDc, x, y, width, height, cardValue, invertedColor!=Color.Empty ? 2 : 0, ConvertColor(invertedColor));
}
finally
{
g.ReleaseHdc(hDc);
}
}
public static void DrawFace(Graphics g, int x, int y, int width, int height, int faceValue, CardSuit suit)
{
DrawFace(g, x, y, width, height, faceValue, suit, Color.Empty);
}
public static void DrawFace(Graphics g, int x, int y, int faceValue, CardSuit suit, Color invertedColor)
{
if (faceValue<0 || faceValue>12)
throw new ArgumentOutOfRangeException("FaceValue", faceValue, "faceValue must be in the range 0 - 12.");
int cardValue = (int)suit + faceValue * 4;
IntPtr hDc = g.GetHdc();
try
{
cdtDraw(hDc, x, y, cardValue, invertedColor!=Color.Empty ? 2 : 0, ConvertColor(invertedColor));
}
finally
{
g.ReleaseHdc(hDc);
}
}
public static void DrawFace(Graphics g, int x, int y, int faceValue, CardSuit suit)
{
Card.DrawFace(g, x, y, faceValue, suit, Color.Empty);
}
public static void DrawDeck(Graphics g, int x, int y, int width, int height, CardDeck deck)
{
IntPtr hDc = g.GetHdc();
try
{
cdtDrawExt(hDc, x, y, width, height, (int)deck, 1, 0);
}
finally
{
g.ReleaseHdc(hDc);
}
}
public static void DrawDeck(Graphics g, int x, int y, CardDeck deck)
{
IntPtr hDc = g.GetHdc();
try
{
cdtDraw(hDc, x, y, (int)deck, 1, 0);
}
finally
{
g.ReleaseHdc(hDc);
}
}
public static void DrawDeck(Graphics g, int x, int y, int width, int height, Color backgroundColor)
{
IntPtr hDc = g.GetHdc();
try
{
cdtDrawExt(hDc, x, y, width, height, (int)CardDeck.CrossHatch, 1, Card.ConvertColor(backgroundColor));
}
finally
{
g.ReleaseHdc(hDc);
}
}
public static void DrawDeck(Graphics g, int x, int y, Color backgroundColor)
{
IntPtr hDc = g.GetHdc();
try
{
cdtDraw(hDc, x, y, (int)CardDeck.CrossHatch, 1, Card.ConvertColor(backgroundColor));
}
finally
{
g.ReleaseHdc(hDc);
}
}
#endregion
#region Properties
/// <summary>
/// Gets the standard width of the cards.
/// </summary>
public static int StandardWidth
{
get
{
return Card._standardWidth;
}
}
/// <summary>
/// Gets the standard height of the cards.
/// </summary>
public static int StandardHeight
{
get
{
return Card._standardHeight;
}
}
#endregion
#region private members
private static void CurrentDomain_ProcessExit(object sender, EventArgs e)
{
Card.cdtTerm();
}
private static int ConvertColor(Color c)
{
if (c!=Color.Empty)
return (Convert.ToInt32(c.B) << 16) + (Convert.ToInt32(c.G) << 8) + c.R;
return 0;
}
#endregion
}
Namespace Cards
''' <summary>
''' Wrapper class for the Cards.dll
''' </summary>
Public NotInheritable Class Card
#Region "API Deceleration"
<DllImport("cards.dll")> Private Shared Function cdtInit(ByRef width As Integer, ByRef height As Integer) As Boolean
End Function
<DllImport("cards.dll")> Private Shared Sub cdtTerm()
End Sub
<DllImport("cards.dll")> Private Shared Function cdtDraw(ByVal hDC As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal ecsCard As Integer, ByVal ectDraw As Integer, ByVal clr As Integer) As Integer
End Function
<DllImport("cards.dll")> Private Shared Function cdtDrawExt(ByVal hDC As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal ecsCard As Integer, ByVal ectDraw As Integer, ByVal clr As Integer) As Integer
End Function
<DllImport("cards.dll")> Private Shared Function cdtAnimate(ByVal hDC As IntPtr, ByVal ecbCardBack As Integer, ByVal x As Integer, ByVal y As Integer, ByVal iState As Integer)
End Function
#End Region
#Region "Fields"
Private Shared _standardWidth As Integer
Private Shared _standardHeight As Integer
#End Region
#Region "Constructor"
Shared Sub New()
Dim ret As Boolean = Card.cdtInit(_standardWidth, _standardHeight)
If (Not ret) Then
Throw New ApplicationException("Can't load 'cards.dll'!")
End If
' Free up library when process exits
AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf CurrentDomain_ProcessExit
End Sub
#End Region
#Region "Public Shared Members"
Public Shared Sub DrawFace(ByVal g As Graphics, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal faceValue As Integer, ByVal suit As CardSuit, ByVal invertedColor As Color)
If (faceValue < 0 OrElse faceValue > 12) Then
Throw New ArgumentOutOfRangeException("FaceValue", faceValue, "faceValue must be in the range 0 - 12.")
End If
Dim cardValue As Integer = DirectCast(suit, Integer) + faceValue * 4
Dim hDC As IntPtr = g.GetHdc()
Try
cdtDrawExt(hDC, x, y, width, height, cardValue, IIf(invertedColor <> Color.Empty, 2, 0), ConvertColor(invertedColor))
Finally
g.ReleaseHdc(hDC)
End Try
End Sub
Public Shared Sub DrawFace(ByVal g As Graphics, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal faceValue As Integer, ByVal suit As CardSuit)
DrawFace(g, x, y, width, height, faceValue, suit, Color.Empty)
End Sub
Public Shared Sub DrawFace(ByVal g As Graphics, ByVal x As Integer, ByVal y As Integer, ByVal faceValue As Integer, ByVal suit As CardSuit, ByVal invertedColor As Color)
If faceValue < 0 OrElse faceValue > 12 Then
Throw New ArgumentOutOfRangeException("FaceValue", faceValue, "faceValue must be in the range 0 - 12.")
Dim cardValue As Integer = DirectCast(suit, Integer) + faceValue * 4
Dim hDc As IntPtr = g.GetHdc()
Try
cdtDraw(hDc, x, y, cardValue, IIf(invertedColor <> Color.Empty, 2, 0), ConvertColor(invertedColor))
Finally
g.ReleaseHdc(hDc)
End Try
End If
End Sub
Public Shared Sub DrawFace(ByVal g As Graphics, ByVal x As Integer, ByVal y As Integer, ByVal faceValue As Integer, ByVal suit As CardSuit)
Card.DrawFace(g, x, y, faceValue, suit, Color.Empty)
End Sub
' parameter card is a two chars String: the first is the value and the second is the suit
' example: "7c" is seven fo club
Public Shared Sub DrawFace(ByVal g As Graphics, ByVal x As Integer, ByVal y As Integer, ByVal card As String)
Dim faceValue As Integer = "A23456789JQK".IndexOf(card(0))
Dim suit As Integer = "cdhs".IndexOf(card(1))
DrawFace(g, x, y, faceValue, suit, Color.Empty)
End Sub
Public Shared Sub DrawDeck(ByVal g As Graphics, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal deck As CardDeck)
Dim hDc As IntPtr = g.GetHdc()
Try
cdtDrawExt(hDc, x, y, width, height, DirectCast(deck, Integer), 1, 0)
Finally
g.ReleaseHdc(hDc)
End Try
End Sub
Public Shared Sub DrawDeck(ByVal g As Graphics, ByVal x As Integer, ByVal y As Integer, ByVal deck As CardDeck)
Dim hDc As IntPtr = g.GetHdc()
Try
cdtDraw(hDc, x, y, DirectCast(deck, Integer), 1, 0)
Finally
g.ReleaseHdc(hDc)
End Try
End Sub
Public Shared Sub DrawDeck(ByVal g As Graphics, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal backgroundColor As Color)
Dim hDc As IntPtr = g.GetHdc()
Try
cdtDrawExt(hDc, x, y, width, height, DirectCast(CardDeck.CrossHatch, Integer), 1, Card.ConvertColor(backgroundColor))
Finally
g.ReleaseHdc(hDc)
End Try
End Sub
Public Shared Sub DrawDeck(ByVal g As Graphics, ByVal x As Integer, ByVal y As Integer, ByVal backgroundColor As Color)
Dim hDc As IntPtr = g.GetHdc()
Try
cdtDraw(hDc, x, y, DirectCast(CardDeck.CrossHatch, Integer), 1, Card.ConvertColor(backgroundColor))
Finally
g.ReleaseHdc(hDc)
End Try
End Sub
#End Region
#Region "Properties"
Public Shared ReadOnly Property StandardWith() As Integer
Get
Return Card._standardWidth
End Get
End Property
Public Shared ReadOnly Property StandardHeight() As Integer
Get
Return Card._standardHeight
End Get
End Property
#End Region
#Region "private members"
Private Shared Sub CurrentDomain_ProcessExit(ByVal sender As Object, ByVal e As EventArgs)
Card.cdtTerm()
End Sub
Private Shared Function ConvertColor(ByVal c As Color) As Integer
If c <> Color.Empty Then
Return (Convert.ToInt32(c.B) << 16) + (Convert.ToInt32(c.G) << 8) + c.R
End If
Return 0
End Function
#End Region
#Region "enums"
Public Enum CardSuit As Integer
Clubs = 0
Diamonds = 1
Hearts = 2
Spades = 3
End Enum
helpful tips or sample code to share for using this API in managed code?
corrections to the existing content?
variations of the signature you want to share?
additional languages you want to include?
Select "Edit This Page" on the right hand toolbar and edit it! Or add new pages containing supporting types needed for this API (structures, delegates, and more).
Revisions