comment utiliser Allegro dans une DLL ?

comment utiliser Allegro dans une DLL ? - C - Programmation

Marsh Posté le 14-07-2009 à 23:29:26    

Bonjour !
 
Je veux utiliser Allegro dans ma propre DLL. Je veux utiliser les fonctions  de «allegro.h » et «alfont.h» dans la procédure de ma DLL.
La procédure de ma DLL que j’appellerai  depuis une application VB2008 doit avoir pour paramètre d’entrées (Char*, int) et me retourner un (pointeur) Bitmap ou tableau d’entiers.
 
Je vous montre le test que j’ai fait avec DEV C++ et VB2008 , mais qui malheureusement ne fonctionne pas !  
ma DLL est compilée sans erreur sans warnings sous DEV C++. mais quand je fais l'appel de ma DLL depuis mon application VB2008 çà génère une erreur
 
 
dll.h

Code :
  1. #ifndef _DLL_H_
  2. #define _DLL_H_
  4. // entête des fonctions  
  5. __declspec (dllexport) int GetBitmap (char*, int);
  7. #endif // _DLL_H_


 
dllmain.c  

Code :
  1. #include "dll.h"
  2. #include <stdio.h>
  3. #include <stdlib.h>
  5. #include <allegro.h>
  6. #include <alfont.h>
  7. #include <winalleg.h>
  9. __declspec (dllexport) int GetBitmap (char *_ch , int _h){
  11.     BITMAP *bmp ;
  12.     ALFONT_FONT *user_font;
  13.    
  14.     int _w=0;
  16.     //format pour le codage du texte (ASCII, ascii normal)
  17.     set_uformat(U_ASCII);
  19.     allegro_init();//initialise allegro
  20.     alfont_init();//initialise la font
  22.     //Charge une police
  23.     user_font = alfont_load_font("times.ttf" );
  25.     // change la taille de police
  26.     alfont_set_font_size(user_font, _h);
  28.     //créé un bitmap
  29.     _w = alfont_text_length(user_font, _ch);
  30.     bmp=create_bitmap(_w,_h);
  32.     //initialise le bitmap a 0
  33.     clear_to_color(bmp,0);
  35.     //Déssine "_ch" a patir de la ppolice "user_font" ds le bitmap "bmp" avec la couleur "makecol(r, g, b)"
  36.     alfont_textprintf_ex(bmp, user_font, 0, 0, makecol(0, 255, 0), 0, _ch);
  38.     //libere la memoire
  39.     destroy_bitmap(bmp);
  40.     alfont_destroy_font(user_font);
  41.     alfont_exit();
  42.     allegro_exit();
  44.     return 1; 
  45. }   
  48. BOOL APIENTRY DllMain (HINSTANCE hInst,    // Library instance handle.  
  49.                        DWORD reason,       // Reason this function is being called.  
  50.                        LPVOID reserved)    // Not used.  
  51. {
  52.     switch (reason)
  53.     {
  54.       case DLL_PROCESS_ATTACH:
  55.         break;
  57.       case DLL_PROCESS_DETACH:
  58.         break;
  60.       case DLL_THREAD_ATTACH:
  61.         break;
  63.       case DLL_THREAD_DETACH:
  64.         break;
  65.     }
  67.     // Returns TRUE on success, FALSE on failure  
  68.     return TRUE;
  69. }


 
 
VB2008

Code :
  1. Module Module1
  2.     Public Declare Function GetBitmap Lib "d:\Ecriture_DLL.dll" (ByRef c As Char, ByVal h As Integer) As Integer
  3. End Module


Code :
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Me.Text = GetBitmap("a", 10)
  3. End Sub


 
Merci d'avance !
 

Reply

Marsh Posté le 14-07-2009 à 23:29:26   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed