title image


Smiley Beispiel
Eigentlich hat frager schon alles wichtige gesagt. Ohne genaues Wissen über die DLL ist nichts möglich.



Wenn eine ISDN-Karte in deinem PC eingebaut ist, zeigt dir dieses Beispiel die Versionsnummer an.



Eine genaue Beschreibung der capi2032.dll (die gehört zur ISDN-Karte) und deren Parameter findest du im CAPI-SDK.

Bei der Firma AVM kannst du dir dieses CAPI-SDK downloaden.



Beispiel: Anzeige der CAPI-Version

unit Unit1;

interface

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



type

TForm1 = class(TForm)

lblCapiMajor: TLabel;

lblCapiMinor: TLabel;

lblManufacturerMajor: TLabel;

lblManufacturerMinor: TLabel;

procedure FormCreate(Sender: TObject);

private

public

end;



var

Form1: TForm1;



// Die Parameter sind im CAPI-SDK beschrieben

function CAPI_GetVersion(var CAPIMajor, CAPIMinor, ManufacturerMajor, ManufacturerMinor: DWord): DWord; stdcall;



implementation

{$R *.DFM}



// Der Functions/Procedurename ist im CAPI-SDK beschrieben

function CAPI_GetVersion; external 'capi2032.dll' name 'CAPI_GET_VERSION';



procedure TForm1.FormCreate(Sender: TObject);

var CAPIMajor, CAPIMinor, ManufacturerMajor, ManufacturerMinor: DWord;

begin

CAPI_GetVersion(CAPIMajor, CAPIMinor, ManufacturerMajor, ManufacturerMinor);

lblCAPIMajor.Caption := 'CAPIMajor = '+IntToStr(CAPIMajor);

lblCAPIMinor.Caption := 'CAPIMinor = '+IntToStr(CAPIMinor);

lblManufacturerMajor.Caption := 'ManufacturerMajor = '+IntToStr(ManufacturerMajor);

lblManufacturerMinor.Caption := 'ManufacturerMinor = '+IntToStr(ManufacturerMinor);

end;



end.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: