begin process at 2008 07 19 19:22:16
1 212 979 membres
299 nouveaux aujourd'hui
14 165 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Exporter une Fonction API avec Delphi.NET


Information sur le tutorial

Catégorie :API Tutorial .NET ( DotNet ) Date de création : 19/05/2008 20:38:13 Vu : 769 fois

Note :
Aucune note

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Description

Ce tutorial vous explique comment creer une API en .NET à l'aide de l'EDI de Borland en créant une assembly .NET

Tutorial

I.Prérequis

Il nous faudra ici une version de Delphi 2005 (avec le framework 1.1). La version personnelle est disponible en téléchargement et conviendra a ce tutorial

II.Création du projet

Ouvrir Delphi 2005.Créer un nouveau projet Delphi.NET (Fichier->Nouveau->Autre->Projet Delphi pour .NET) et sélectionner Bibliothèque.

Au-dessus de "uses",on rajoute la directive {$UNSAFECODE ON}

puis on crée une procédure:

procedure SayHello;
begin
MessageBox.Show('I am a test');
end;

et ensuite,on met

exports
  SayHello;

On enregistre le projet,on le compile,et on copie la dll obtenue dans le répertoire C:\

Maintenant,le moment est venu de tester notre DLL...

Pour cela,on va dans Démarrer,Exécuter et on tape

      rundll32 C:\nom_de_votre_dll.dll SayHello

et,après quelques secondes d'attente (on est en managé,quand même!),on a normalement une boîte de message contenant "I am a test" qui s'affiche !

III.Le code complet

Je mets ici le code au complet du projet (il y a juste le .dpr...).
Le code à saisir est en gras

library Library1;


uses
  SysUtils,
  Classes,
  System.Reflection,
  System.Runtime.InteropServices;

[assembly: AssemblyTitle('')]
[assembly: AssemblyDescription('')]
[assembly: AssemblyConfiguration('')]
[assembly: AssemblyCompany('')]
[assembly: AssemblyProduct('')]
[assembly: AssemblyCopyright('')]
[assembly: AssemblyTrademark('')]
[assembly: AssemblyCulture('')]

procedure SayHello;
begin
MessageBox.Show('I am a snail');
end;
exports
  SayHello;

[assembly: AssemblyVersion('1.0.*')]

[assembly: AssemblyDelaySign(false)]
[assembly: AssemblyKeyFile('')]
[assembly: AssemblyKeyName('')]

 

    Aucun commentaire pour le moment.

Ajouter un commentaire

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Boutique

Boutique de goodies CodeS-SourceS