DLL Aufruf

[Gehstock]

Delphi-Quellcode:

unit Main; 

interface 

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

Function CheckSerial(Benutzername, Firma, Seriennummer : PChar) : Boolean ; stdcall; 

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    Edit1: TEdit; 
    Edit2: TEdit; 
    Edit3: TEdit; 
    Procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 
Function CheckSerial(Benutzername, Firma, Seriennummer : PChar) : Boolean ; external 'Serial.dll'; 

Procedure TForm1.Button1Click(Sender: TObject); 
Begin 
if (Length(Edit1.Text)) and (Length(Edit2.Text)) and (Length(Edit3.Text)) > 0 then 
  Begin 
    if CheckSerial(PChar(Edit1.Text), PChar(Edit2.Text), PChar(Edit3.Text)) then 
    Caption := 'Ok' else caption := 'Falsch'; 
  End else 
    ShowMessage('Bitte alle Felder Ausfüllen'); 
End; 


end.

Ok damit ihr Beruhigt seid