ich versuche grad eine
DLL einzubinden die so aufgerufen wird
bool funktion(LPCSTR Benutzername, LPCSTR Firma, LPCSTR Seriennummer);
Das hab ich mit
Delphi-Quellcode:
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
function CheckSerial(Benutzername,Firma,Seriennummer :
String):Boolean;
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 :
String):Boolean;
external '
rert.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckSerial(Edit1.Text,Edit2.Text,Edit3.Text)
then caption := '
Ok'
else caption := '
falsch'
end;
end.
getan
aber das Result bleibt immer False obwohl ich die richtigen Seriennummern eingebe
Benutzername und Firma ist glaub nicht so wichtig weil ich diese beim generieren der
DLL nicht angeben musste
hat jemand ne Idee