Hallo,
ich habe folgendes Problem:
ich möchte eine in C++ geschriebene DLL in Delphi benutzen.
Die Deklaration der einzigen Funktion ist bekannt:

markieren

Code:

- int versacom(TRAB *tr, char * otrailer),
- TRAB Struktur:

TRAB    {
           int       prio;                   
   int   typ;            
   int   optim,             
             repeat,                                   service,               
      tel_hie,            
                  group_tra;            
      int    station;
            AVER   aver;               
AVERI   averi;                         
   long   duration;         
   char   value[6];                
   int   tostate,                
                   tipair,                 
                   pronum,                 
                   ontime,                
                   offtime;
           char   b1;            
           int   promask,
                   wkday,
      time_cycle,
                   fun;
   char   loadtel[26],         
      lt_ntrail[26],          
      msg[70],          
      msg_bin[200];          

- AVER und AVERI Struktur:

AVER { 
   uchar   region,
            section[4],
      class[2],
      division[2];
      };

AVERI { 
   long   senu;
   int   relay;   
      };

In Delphi hab ich die Typdeklarationen so festgelegt:

zusammenfalten · markieren

Delphi-Quellcode:

type
  AVER=record
    region:char;
    section:string[4];
      clas:string[2];
      division:string[2];
  end;

  AVERI=record
   senu:longint;
   relay:integer;
  end;

  TRAB=record
     prio:integer;   
     typ:integer;            
     optim:integer;   
     repeate:integer;
     service:integer;          
     tel_hie:integer;      
     group_tra:integer;    
     station:integer;
     aver:aver;            
     averi:averi;         
     duration:longint;         
     value:string[6];       
     tostate:integer;    
     tipair:integer;
     pronum:integer;
     ontime:integer;
     offtime:integer;
     b1:char;   
     promask:integer;
     wkday:integer;
     time_cycle:integer;
     fun:integer;
     loadtel:string[26];         
     lt_ntrail:string[26];         
     msg:string[70];         
     msg_bin:string[200];
end;

Nun gibts zwei Probleme:

1.) Wenn ich versuche die Funktion zu deklarieren nimmt er nur einen Parameter.

2.) Ich bekomme was ich auch tue eine Zugriffsverlezung.

Weiss jemand weiter?

Rainer

Könntest du mal bitte die Tabs im oberen Code duch Leerzeichen ersetzten? Dann kann man das auch lesen.

Poste mal das .h file hier und zwar ohne Tabulatoren und vollstaendig.

string[xx] ist nicht gut. Nimm array [0..xx-1] of Char.

Was soll 1. denn heissen?

2. bedeutet das die Struktur nicht die richtige Groesse hat. Das packicng der Elemente ist auch noch nicht geklaert.
Die calling convention (cdecl oder stdcall) muss bestimmt werden.

Hallo tut mir leid, dass das so unformatiert aussah, konnte ich aber leider nicht sehen.

markieren

Code:

- int versacom(TRAB *tr, char * otrailer),
- TRAB Struktur:

TRAB   { 
   int       prio;                    
   int  typ;            
   int  optim,repeat,service,tel_hie,group_tra;
   int    station;
   AVER  aver;              
   AVERI  averi;                        
   long  duration;        
   char   value[6];                
   int  tostate,tipair,pronum,ontime,offtime;
   char  b1;            
   int  promask,wkday,time_cycle, fun;
   char  loadtel[26],lt_ntrail[26],msg[70],msg_bin[200];        

- AVER und AVERI Struktur:

AVER { 
     uchar  region,section[4],class[2],division[2];
      };

AVERI { 
   long  senu;
   int  relay;  
      };

Das Problem ist: ich habe weder den Quellcode noch sonst irgendwelche Informationen über diese DLL muss aber damit arbeiten.

Rainer

Wenn der Inhalt der Records bekannt ist, dann deklarier die eine Funktion doch so:

markieren

Delphi-Quellcode:

type
  PTRAB = ^TRAB;

function versacom(tr: PTRAB; otrailer: PChar): integer; external [DLLName]+'.dll' name 'versacom';

Bei geht so was immer.
Oder du benutzt LoadLibrary und GetFuntionEntryPoint oder wie das auch alles heissen mag.

Na dann deklariere erst mal alle arrays wie ich es angegeben habe.
Die records sind wahrscheinlich packed record.
uchar sollte als Byte uebersetzt werden.

function versacom(var tr: TRAB; otrailer: PChar): Integer; stdcall; Das ist die wahrscheinlichste Deklaration fuer die Funktion.

Hallo,

den Funktionsaufruf hab ich jetzt!
Das prog wurschtelt auch in der DLL rum. Irgendwann bekomme ich die Exception: access violation at 0x00000000...

Stimmen die Übergabestrukturen nicht?
Was ist mit den C++ Typen?

C++ D7
-------------------------
int integer
long longint

stimmt das?
Im Internet steht darüber einmal das und einmal das.
Robert, ich habe alles was du vorgeschlagen hast umgesetzt.

Vielen Dank im vorraus
Rainer

Das müsste so stimmen. Kennst du schon das Dll-Tutorial von Assarbad? Dort gibt es auch eine umfangreiche der Datentypen.

Moin!

Kann es sein, das du Speicher für den PChar alloziieren musst? Stichwort StrAlloc()...

MfG
Muetze1

Der C char[2] (2 Byte) ist ungleich dem Pascal String[2] (3 Byte).

Ich würde die Strukturen nochmal prüfen.