dll Progammieren

[Digielm]

Hier mal das Toll was die DLL aufruft

Delphi-Quellcode:

unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Forms,
  Dialogs, Controls, StdCtrls, System.ComponentModel;

Function SetPhoneNumbersFormatted(Phonenumber, countrycodewithoutplus : String) : String;  stdcall;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
 
implementation
{$R *.nfm}

Function SetPhoneNumbersFormatted(Phonenumber, countrycodewithoutplus : String) : String; stdcall;
  external 'nummer.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(SetPhoneNumbersFormatted('2321321321','48'));
end;

end.