ich versuche grad eine DLL einzubinden die so aufgerufen wird
bool funktion(LPCSTR Benutzername, LPCSTR Firma, LPCSTR Seriennummer); Das hab ich mit

zusammenfalten · markieren

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

Nimm mal PChar statt String.

Stimmt der Name? Außerdem hast du in Delphi vergessen, die Aufrufkonvention anzugeben. Versuche as mal mit cdecl, ansonsten mit stdcall.

LPCSTR entspricht auch keinem (Pascal-)String. sondern PCHAR

Wie Peinlich das wars > stdcall

String klappt aber

String klappt? Sicher?

Jo ist die serial Richtig liefert es True, und bei Falscher Serial liefert es False
also alles Super


Danke

String ist eigentlich nur eine Erweiterung von PChar. Der Cast ist auch einfach eine Uminterpretation, sieht man von dem Fall eines leeren Strings ab. Da musst du aufpassen.

Zitat von Gehstock:

String klappt aber

da währe ich mir nicht so sicher!!!

und nochwas, wenn es das sein soll, wonach es aussieht, dann würd ich es auf jedenfall micht so machen wie du, denn für jeden cracker/hacker was auch immer, ist es ein leichtes die funktion zu finden wenn sie schon so einen aussage kräftigen namen hat
also lieber anders nennen! danach ist das natürlich auch noch unsicher, aber wenigstens nicht mehr mit einem blick im disassembler zu finden

zusammenfalten · markieren

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