三种语言对Delphi的dll的调用

   近来因为工作的原因，需要写一个Delphi的dll供他人调用，于是写了几个例子，供大家参考。

1 。Delphi 的dll： Barcode.dll

library Barcode;



uses
  SysUtils,
  Forms,
  Windows,
  Messages,
  Classes,
  HisInterfaceDataModUnit  in   ' HisInterfaceDataModUnit.pas '   ... {HisInterfaceDataModule: TDataModule} ;
  //myRapFuncs  in   ' myRapFuncs.pas ' ;

... {$R *.res}
procedure PrintBarcode(Barcode,PatNo,PatName,SickBed,ItemStr,Sample:PChar);stdcall;
//注意如果传入字符串类型的参数要用： PChar
begin
     if  not Assigned(HisInterfaceDataModule) then
     HisInterfaceDataModule: = THisInterfaceDataModule.Create(nil);
  FBarcode: = Barcode;
  FPatNo: = PatNo;
  FPatName: = PatName;
  FSickBed: = SickBed;
  FItemStr: = ItemStr;
  FSample: = Sample;
  HisInterfaceDataModule.Print;
end;
exports
  PrintBarcode;
begin

end.

HisInterfaceDataModUnit.pas:

unit HisInterfaceDataModUnit;

interface

uses
  SysUtils, Classes,  ppBarCode2D, ppPrnabl, ppClass, ppCtrls, ppBarCod, ppBands,
  ppCache, ppComm, ppRelatv, ppProd, ppReport,myRapFuncs, ppModule,
  raCodMod, ppStrtch, ppMemo, ppParameter, ppRichTx,Inifiles;

type
  THisInterfaceDataModule  =   class (TDataModule)
    ppReport1: TppReport;
    ppParameterList1: TppParameterList;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppBarCode1: TppBarCode;
    PaNameLabel: TppLabel;
    PatNoLabel: TppLabel;
    SickbedLabel: TppLabel;
    SampleLabel: TppLabel;
    SampleLabel1: TppLabel;
    PatNoLabel1: TppLabel;
    ppBarCode2: TppBarCode;
    PaNameLabel1: TppLabel;
    SickbedLabel1: TppLabel;
    ppMemo1: TppMemo;
    ppMemo2: TppMemo;
    ppFooterBand1: TppFooterBand;
    raCodeModule1: TraCodeModule;


   private

    function AddZeroToStr(S: string ;Zero:Integer):String;
    function GetIniStr(Section,Ident: string ):  string ;
     ... { Private declarations }
   public

   procedure Print;

     ... { Public declarations }
  end;

var
  HisInterfaceDataModule: THisInterfaceDataModule;
  FBarcode,FPatNo,FPatName,FSickBed,FItemStr,FSample: string ;

implementation

uses Variants;

... {$R *.dfm}
... { THisInterfaceDataModule }

function THisInterfaceDataModule.AddZeroToStr(S: string ;Zero:Integer):String;
var
  L:Integer;
  tempStr:String;
begin
  tempStr: = S;
  L: = Length(Trim(tempStr));
   while  L < Zero  do
  begin
    Insert( ' 0 ' ,tempStr, 1 );
    L: = Length(Trim(tempStr));
  end;
  Result: = tempStr;
end;
Function THisInterfaceDataModule.GetIniStr(Section,Ident: string ): string ;
var
 MyFile:TiniFile;
 S:String;
begin
  MyFile: = TIniFile.Create( ' c:arcode.ini ' );
  S: = '' ;
   if  myfile.ValueExists(Pchar(Section),Pchar(Ident)) then
  S: = myfile.ReadString(Pchar(Section),Pchar(Ident), '' );
  MyFile.Free;
  rESULT: = S;
end;

procedure THisInterfaceDataModule.Print;
var
  i:Integer;
  myPrinterName,myDeviceType: string ;
begin
  ppBarCode1.Data: = FBarcode;
  ppBarCode2.Data: = FBarcode;
  PatNoLabel.Caption : = FPatNo;
  PaNameLabel.Caption: = FPatName;
  SickbedLabel.Caption: = FSickBed;
  SampleLabel.Caption: = FSample;
  ppMemo1 .Text: = FItemStr;


  PatNoLabel1.Caption : = FPatNo;
  PaNameLabel1.Caption: = FPatName;
  SickbedLabel1.Caption: = FSickBed;
  SampleLabel1.Caption: = FSample;

  ppMemo2 .Text: = FItemStr;

  myDeviceType: = GetIniStr( ' ReportSetup ' , ' DeviceType ' );

   if   myDeviceType = ' Printer '  then   ppReport1.DeviceType: = ' Printer '   else  ppReport1.DeviceType: = ' Screen ' ;

  myPrinterName: = '' ;
  i: = StrToIntDef(GetIniStr( ' PrinterSetup ' , ' PrinterIndex ' ), 0 );
   if  ppReport1.PrinterSetup.PrinterNames.Count >= i then
  myPrinterName: = ppReport1.PrinterSetup.PrinterNames[i];
   if   myPrinterName <> ''  then
  ppReport1.PrinterSetup.PrinterName: = myPrinterName;

  ppReport1.PrintToDevices;
  ppReport1.PrintReport;

end;
end.

 用Delphi调用的例子：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, DBClient, MConnect, SConnect,
  ADODB, Provider;

type
  TForm1  =   class (TForm)
    Button6: TButton;
    Button1: TButton;

    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
   private

    procedure Print2(Barcode,PatNo,PatName,SickBed,ItemStr,Sample: string );

     ... { Private declarations }
   public
     ... { Public declarations }
  end;

var
  Form1: TForm1;


   /**/ ///// DLL文件：Barcode.dll
  ///// 函数名 PrintBarcode
  //  参数依次为
   // 1:条码
  //  2:住院号
  //  3:姓名
  //  4:病区病床
  //  5:项目名
  //  6:样本类型（如 红色管 、蓝色管、 小便）

  ... {
   现在显示打印预览 是为了调试方便，以后正式版本不显示 打印预览
 }

   // 静态调用
  Procedure PrintBarcode(Barcode,PatNo,PatName,SickBed,ItemStr,Sample: string );stdcall; External  ' Barcode.dll ' ;


implementation

... {$R *.dfm}

// 动态调用
procedure TForm1.Print2(Barcode,PatNo,PatName,SickBed,ItemStr,Sample: string );
type
  TMyProc  = procedure (Barcode,PatNo,PatName,SickBed,ItemStr,Sample: string )  ;stdcall;
var
  DLLHandle: THandle;
  DLLSub: TMyProc;
  DllPath: string ;

begin
  DllPath: = ' Barcode.dll ' ;
   if  DllPath = ''  then  Exit;
  DLLHandle : =  LoadLibrary(Pchar(DllPath));
   if  DLLHandle  <>   0  then
  begin
    @DLLSub : =  GetProcAddress(DLLHandle,  ' PrintBarcode ' );
     if  Assigned(DLLSub) then
    begin


      DLLSub(Barcode,PatNo,PatName,SickBed,ItemStr,Sample);
    end;
  end;

end;


procedure TForm1.Button6Click(Sender: TObject);  // 静态调用
begin
  PrintBarcode( ' 10001 ' , ' 23333 ' , ' 李先念 ' , ' 一区45床 ' , ' 肝功能组，肾功能组，蛋白组，电解质 ' , ' 红色管 ' );
end;

procedure TForm1.Button1Click(Sender: TObject);  // 动态调用
begin
  Print2( ' 10001 ' , ' 23333 ' , ' 李先念 ' , ' 一区45床 ' , ' 肝功能组，肾功能组，蛋白组，电解质 ' , ' 红色管 ' );
end;

end.

用C#调用的例子:

using  System;
using  System.Collections.Generic;
using  System.ComponentModel;
using  System.Data;
using  System.Drawing;
using  System.Text;
using  System.Windows.Forms;
using  System.Runtime.InteropServices;

namespace  WindowsApplication1
... {
    public partial class Form1 : Form
    ...{
        public Form1()
        ...{
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        ...{
            PrintBarcode("10001","23333","李先念","一区45床","肝功能组，肾功能组，蛋白组，电解质","红色管");

            
        }
        
        [DllImport("Barcode.dll", EntryPoint = "PrintBarcode", CharSet = CharSet.Ansi   ,
          CallingConvention = CallingConvention.StdCall)]
        public extern static void PrintBarcode(string Barcode, string PatNo, string PatName,
            string SickBed, string ItemStr, string Sample);
    }
}

用VF调用的例子：

DECLARE  PrintBarcode IN Barcode.dll STRING @ , STRING @,STRING @ ,STRING @ ,STRING
    @ ,STRING @ 

STORE  ' 10001 '  TO Barcode
STORE  ' 23333 '  TO PatNo
STORE  ' 李先念 '  TO PatName
STORE  ' 一区45床 '  TO SickBed
STORE  ' 肝功能组，肾功能组，蛋白组，电解质 '  TO temStr
STORE  ' 红色管 '  TO Sample1

PrintBarcode(@Barcode,@PatNo,@PatName,@SickBed,@temStr,@Sample1)