Форум программистов [Powered by Invision Power Board]

Код

unit Unit2;

interface

uses
  Windows, Forms, Controls, StdCtrls, Classes, SysUtils;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DllHandle : HMODULE;
  GetFIOPadeg   : function (pLastName, pFirstName, pMiddleName: PChar;
                           bSex: Boolean; nPadeg: LongInt; pResult: PChar;
                           var nLen: LongInt): Integer; stdcall;

  Form2: TForm2;
  Sex:boolean;
  nLen:LongInt;
  pResult:PChar;
  pVar:integer;
  FPadeg:Boolean;
  Fio,nName,SName:string;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
   Fio:='Пупкин';
   nName:='Иван';
   SName:='Иванович';
end;

procedure TForm2.FormShow(Sender: TObject);
begin
   Label1.Caption:=Fio;
   Label2.Caption:=nName;
   Label3.Caption:=SName;
   Sex:=True;
   if Assigned(GetFIOPadeg) then
     begin
       nLen := Length(FIO)+10;
       pResult:=StrAlloc(nLen);
       try
          pVar:=GetFIOPadeg(PChar(Fio),'','',Sex,3, pResult, nLen);
          Label4.Caption:=pResult;
       finally
          StrDispose(pResult);
       end;
       nLen := Length(nName)+10;
       pResult:=StrAlloc(nLen);
       try
         GetFIOPadeg('',PChar(nName),'',Sex,3, pResult, nLen);
         Label5.Caption:=pResult;
       finally
          StrDispose(pResult);
       end;
       nLen := Length(sName)+10;
       pResult:=StrAlloc(nLen);
       try
         GetFIOPadeg('','',PChar(SName),Sex,3, pResult, nLen);
         Label6.Caption:=pResult;
       finally
          StrDispose(pResult);
       end;
     end;
   if Sex then
     Label7.Caption:='Муж.'
   else
     Label7.Caption:='Жен.';
end;

initialization
  DllHandle := LoadLibrary('padeg.dll');
  FPadeg:=True;
  if DllHandle <> 0 then
    Begin
      @GetFIOPadeg := GetProcAddress(DllHandle, 'GetFIOPadeg');
    end
  else
    FPadeg:=False;
finalization
  FreeLibrary(DllHandle);
end.
end.