Project1, Unit1 :
unité Unit1 ;
interface
utilisations
Windows, messages, SysUtils, variantes, classes, graphiques, commandes, formes,
Dialogues, StdCtrls ;
type
TForm1 = classe (TForm)
Button1 : TButton ;
procédé Button1Click (expéditeur : TObject) ;
privé
{Déclarations privées}
public
{Déclarations publiques}
extrémité ;
variété
Form1 : TForm1 ;
exécution
{$R *.dfm}
myDLLFunction de fonction (szText : PChar) : Booléen ; stdcall ; external « project2.dll » ;
procédé TForm1.Button1Click (expéditeur : TObject) ;
variété
szText : PChar ;
commencer
szText : = un « certain texte » ;
si myDLLFunction (szText) puis
showmessage (« CORRECT ") ;
extrémité ;
extrémité.
=======================
Projet 2, dpr simple :
bibliothèque Project2 ;
{Note importante au sujet de gestion de la mémoire principale de DLL : ShareMem doit être
première unité dans la clause des UTILISATIONS de votre bibliothèque ET votre projet (choisis
La source de Projet-Vue) EMPLOIE la clause si votre DLL exporte n'importe quelles procédures ou
fonctions qui passent des cordes comme paramètres ou résultats de fonction. Ceci
s'applique à toutes les cordes passées à et de votre DLL--même ceux cela
sont nichés dans les disques et les classes. ShareMem est l'unité d'interface à
le directeur de mémoire partagée de BORLNDMM.DLL, qui doit être déployé le long
avec votre DLL. Pour éviter d'employer BORLNDMM.DLL, passer l'information de corde
using des paramètres de PChar ou de ShortString. }
utilisations
SysUtils,
Classes ;
{$R *.res}
myDLLFunction de fonction (szText : PChar) : Booléen ; stdcall ;
commencer
Résultat : = rectifier ;
extrémité ;
exportations
myDLLFunction ;
commencer
extrémité.
|