-
Forum: Multimedia
Delphi
by .chicken,
28. Mär 2007
Nich gut? ^^
-
Forum: Multimedia
Delphi
by .chicken,
28. Mär 2007
Ja also 0 = Ass und z.B. 0 = Pik, dh. Ass + Pik (0 + 0) = Pik-Ass (0);
So find ichs am leichtesten, ich muss vielleicht abundann nochmal die Werte nachgucken aber find das einfacher damit zu arbeiten ;-)
Danke trotzdem für die Hilfe!
-
Forum: Multimedia
Delphi
by .chicken,
28. Mär 2007
Naja gut...
Ich dachte halt ich könnte sie sowohl zum Zeichen der Karten, als auch für die restlichen Funktionen, die meine Karten brauchen nutzen können.
Die Integer Variablen sind um die Karten zu identifizieren. Also ich hab da lieber 3" oder so stehn als "suitHearts", ich kann damit irgendwie besser arbeiten und man kann die Werte besser in Schleifen zuweisen oder hinterher die Hände...
-
Forum: Multimedia
Delphi
by .chicken,
28. Mär 2007
Ne also ich meinte das anders...
Ich hatte ja, bevor ich die cards.dll benutzt habe immer einen record.
type TKarte=record
Bild: Integer;
Farbe: Integer
end;
-
Forum: Multimedia
Delphi
by .chicken,
28. Mär 2007
Also erstens weise ich nochmal auf meine editierten Beitrag weiter oiben hin, da hab ich nomma ne Frage gestellt und dann schon wieder eine :D
Ist es Möglich dass ich der Klasse Cards noch die properties "Bild" und "Farbe" hinzufüge?
Somit könnte ich mir meine neue Typendefinition sparen:
type TCard = record
Bild, Farbe: Integer;
end;
Hoffe ihr versteht was ich machen will. Habs...
-
Forum: Multimedia
Delphi
by .chicken,
27. Mär 2007
Ok, super danke, vielleicht versteh ich den Code ja wenn ich mich nomma genau dransetze! Vielen Dank für eure Hilfe!!!!! :dp:
Da Hab ich nochma ne Frage (sorry :D )
TCardInit = function (var dx, dy : Integer) : Integer; stdcall;
TCardTerm = function : Integer; stdcall;
TCardDraw = function (const hDC : Cardinal; const x, y, iCard, iFlags : Integer;
const dwColor : Cardinal)...
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
Super, dakne fuer die Antworten ich versuch das dann morgen mal hinzukriegen! Finde den Mist komplizierter als den Rest des Pokerspiels :D (Kartenabfrage etc...)
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
Ok, super danke, das klappt jetzt zwar soweit, schade finde ich nur, dass ich nich ganz verstehe was du in deiner cards32.pas machst! Trotzdem danke ;-)
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
Ok, hier biddeschön :)
Also ihr seht ja noch nich viel drin, will erst das mit der .dll hinrkiegen, der Rest (den hatte ich auch schonmal zur Hälfte) kommt dann später!
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
Häh? Ich verstehe grad net ganz was du meinst? Der Fehler liegt in der Zeile oben...!?
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
Ok, klappt jetzt soweit, aber nur halb :D
cdtinit(CardWidth, CardHeight);
cdtdraw(Form1.Canvas.Handle, 0, 0, 0, 0, 1); //hier is immer ein fehler
Da oben in der Zeile gibts immer n Fehler:
"Project xxxx raised exception class yyyyy with message 'zzzzzz'.
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
Ok, super danke, damit wär aber immernoch nicht mein Problem mit der Fehlermeldung geklärt, denn die Cards32 hab ich bereits unter Uses angegeben!
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
Ok, hab mich nun erstmal mit der kürzeren Variante beschäftigt! Ich vestehe auch einigermaßen was wo vorgeht.
Ich weiss nurnoch nicht ganz wie ich jetzt die Karten zeichne
function cdtDraw(const hDC : Cardinal; const x, y, iSuits, iCard : Integer; const dwColor : Cardinal) : Integer;
{
Zeichnet die Karte in der Default-Größe an die angegebene Stelle auf eine Form, PictureBox oder auf...
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
das sieht ja mal schnike aus ^^
danke
edit: abner warum is die cards32.pas denn da schon wieder so groß? also viel mehr text als bei der andern!
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
Ok, danke die hatte ich zwar schonmal gefunden, allerdings mit weniger Kommentaren!?
Ich les mir das mal in Ruhe durch und guck ob ichs verstehe!
Dankeschön
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
Da find ich aber auch nix ausser dem hier:
http://www.delphiforfun.org/Programs/Library/cards2.htm
Und der benutzt wieder irgendsoein Tool, das möcht ich ungern...
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
Und was hab ich von dem Spass dann? Sorry ich blick da grad ma voll nicht durch! :wall:
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
Also das hier ist der Code den ich gefunden habe (von Kaemmi is der uebigens, danke an dem Punkt ;-)):
//im implementation-Abschnitt deklarieren
//das hier ist nur ein beispiel, das wahrscheinlich an die funktionen deiner DLL angepasst werden muss
type TTestFunction = function(x,y:Integer):integer;
var DLLHandle:THandle;
Func:TFarProc;
TestFunction:TTestFunktion;
...
-
Forum: Multimedia
Delphi
by .chicken,
26. Mär 2007
Also ich programmiere grade ein Kartenspiel (schon vor längerem mal angefangen aber dann wieder auf Eis gelegt). Damals hab ich die Karten noch selbst gemacht, aber das will ich jetzt nicht mehr und mir wurde gesagt man kann die Karten aus der Cards.dll nutzen.
Habe das Forum durchsucht und auch einiges gefunden, was mir aber nicht wirklich geholfen hat, weil ich den Großteil des Codes nicht...