rufid.dll aus eigenem delphi anschprechen und nutzen

[shyd]

Nach diversen Testläufen und google-Suchen bin ich schon dichter an meinem Ziel. Die Funktion UseVersion rufe ich einfach mit einem integer auf.
Kann mir jetzt noch jemand sagen wie ich SucheTelefonnummer füttern muss und was diese dann zurückgibt? Ich habe versucht den Delphi-scr-code soweit zu verstehen, es hat aber nicht gereicht.
Wie ich das sehe, brauch die Funktion SucheTelefonnummer folgende Parameter:
1. ein char-array mit der Nummer, die ich suchen möchte,
2. eine Structure als output mit den gefundenen Daten
3. ein integer für eine Anzahl (dessen Sinn ich aber nicht verstehe)

Es wäre super wenn einer sich die Mühe machen kann um mir den delphi-code aus diesem Projekt näher zu bringen.

Gruß

PS: sry4doppelPost

[StefanA]

Hallo zusammen,

versuche verzweifelt mit dem Beispiel von TKC die Rufid.dll anzusprechen. Aktuelle Klicktel und Rufident Software ist natürlich vorhanden.

Delphi-Quellcode:

unit ruflightu;

interface

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

type
  TitelArray            = Array[1..5] of Byte;

  PDLLEintrag           = ^TDLLEintrag;
  TDLLEintrag           = Packed Record
    Markiert          : Boolean;

    Titel             : TitelArray;

    Adel              : Byte;
    NameVorsatz       : Byte;
    NameZusatz        : Byte;

    Geschlecht        : Byte;
    Vorname           : String[30];
    Anrede            : String[10];
    Name              : String[120];
    Zusatz            : String[120];
    Ortsteil          : String[40];
    Strasse           : String[46];
    Hausnummer        : String[10];
    HausnummerZusatz  : String[20];
    Land              : String[3];
    PLZ               : String[5];
    Ort               : String[70];
    Vorwahl           : String[10];
    TelZusatz         : String[15];
    Telefon           : String[20];
  end;
  
  PDLLArray             = ^TDLLArray;
  TDLLArray             = Array[1..1] of TDLLEintrag;


  TUseVersion = procedure(V : Byte); stdcall;
  TSucheTelefonnummer = procedure( Nummer : PChar; var EintragListe : PDLLEintrag;
                                   var EintragAnzahl : LongInt ); stdcall;


  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    ListBox1: TListBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    DllHdl : THandle;
  public
    { Public-Deklarationen }
  end;


var
 Form1 : TForm1;

 DllHdl : THandle;
 FuncPtr : TFarProc;
 PSucheTelefonnummer : TSucheTelefonnummer;
 PUseVersion : TUseVersion;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
 EList : PDLLEintrag;
 ETemp : PDLLArray;
 ECount : LongInt;
 co : LongInt;
begin
  PSucheTelefonnummer( PChar( Edit1.Text ), EList, ECount );
  ETemp := PDLLArray( EList );

  for co := 1 to ECount do begin
   ListBox1.Items.Add( ETemp^[co].Name + #32 + ETemp^[co].Vorname + #32 +
                       ETemp^[co].Vorwahl + '-' + ETemp^[co].Telefon );
  end;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  PUseVersion( 2 );
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  PUseVersion( 1 );
end;

initialization
  DllHdl := 0;
  FuncPtr := Nil;

  DllHdl := LoadLibrary( 'rufid.dll' );
  if DllHdl = 0 then
   Halt;

  FuncPtr := GetProcAddress( DllHdl, 'SucheTelefonnummer' );
  if FuncPtr = nil then
    Halt
  else
   @PSucheTelefonnummer := FuncPtr;

  FuncPtr := GetProcAddress( DllHdl, 'UseVersion' );
  if FuncPtr = nil then
    Halt
  else
   @PUseVersion := FuncPtr;

end.

Bei PSucheTelefonnummer konnt dann ne Exception:

.. raised exception class EConvertError with message ''' ist kein gültiger Integerwert'. Process stopped. Use Step or Run to continue.

Was läuft hier falsch? Hat jemand ein funktionierendes Beispiel wie ich diese DLL mit Delphi ansprechen kann?

Vielen Dank schon mal
Stefan

[CCRDude]

Praktisch wäre es, wenn Du Deine verwendete Delphi-Version in Dein Profil schreibst, dann würdest Du wahrscheinlich blitzschnell die Antwort bekommen, daß da die Umstellung PChar = PAnsiChar ws. PWideChar bzw. String = AnsiString vs. WideString das Problem verursachen könnte

[Bernhard Geyer]

Die Frage ist auch ob nicht auf DLL-Seite die Schnittstelle nicht auch schon Unicode-Enabled ist.

[StefanA]

Vielen Dank für eure Antworten. Ihr seid ja richtig schnell

Verwende Delphi6 Pro.

Hab mal weiter getestet:

Wenn ich die Exception abfange stehen die geforderten Infos in EList drin. Also schließe ich ein Unicode Problem mal aus. Dummerweise geht aber nach mehrern Aufrufen der Speicherverbrauch meiner Anwendung hoch. Das geht solange bis die Anwendung abschmiert. Hab das sample etwas angepasst und rufe über einen Timer die Funktion mehrmals hinteinander auf (ohne die DLL zu entladen und wieder neu zu laden).

Ein Dispose (EList) am Ende läuft in eine InvalidPointer Operation.

Gruß
Stefan

[gmc616]

ich kann mich irren, aber sollte man vorher nicht für EList Speicher reservieren?

 EList := new(PDLLEintrag); ,


wieder freigaben mit  dispose (EList) nicht vergessen.