dll einbinden / Pointer Probleme

[Pow3rus3r]

So, der Verbindungsaufbau funktioniert nun endlich. Es lag an einem falschen Datentyp bei der IP Adresse. Dort habe ich nun einen Ansistring verwendet.

Nun stehe ich aber schon vor dem nächsten Problem. In der DLL gibt es eine Funktion, die folgende Struktur füllt und dann über einen Pointer ausgelesen werden soll:

typedef struct COM_Version
{
u08 Major;
u08 Minor;
u08 Patch;
u08 Build;
} COM_Version;


u08 steht dabei für unsigned char.
Welchen Datentyp kann ich hier in Delphi verwenden, um diese Daten auszulesen? Ich denke, es muss in irgendeiner Weise ein Array verwendet werden, oder? Mit Datentyp char funktioniert es in Delphi leider nicht (Zugriffsverletzung).

[DeddyH]

Versuch einmal:

Delphi-Quellcode:

type 
  TCOM_Version = packed record
    Major,
    Minor,
    Patch,
    Build: Byte; 
  end;

Ggf. musst Du die Felder in umgekehrter Reihenfolge deklarieren, kommt darauf an, wie sie befüllt werden.

[Bummi]

Wie wäre es mit einem Array of Byte?

[Pow3rus3r]

ich habe die type Definition nun in Delphi so übernommen - aber es tat sich leider nichts. Immernoch Zugriffsverletzung.

Der Code sieht nun wie folgt aus (Typedeinition nicht mit inbegriffen):

Delphi-Quellcode:

function COM_GetVersionReq(var zeiger:Pointer; version:TCOM_Version): NativeUInt ; cdecl; external 'HwCom.dll';

procedure TForm1.btngetversionClick(Sender: TObject);
var
  typevers: TCOM_Version;
begin
  return := COM_GetVersionReq(zeiger, typevers);
end;

Die public Variable Zeiger wurde schon von einer anderen Funktion (COM_TcpOpen) gefüllt.

Typevers istd er Rückgabewert, den die Funktion liefern soll. Müsste ich hier evtl. wieder einen Pointer auf die Variable "typevers" setzen, um den Wert von der Funktion bekommen zu können?

[DeddyH]

Ich rate einmal ins Blaue:
return := COM_GetVersionReq(zeiger, @typevers);

[Pow3rus3r]

leider nicht. Immernoch "Zugriffsverletzung bei Adresse xyz. Schreiben von Adresse abc aufgetreten".

Hmm, Klingt fast danach, als wollte die Funktion was reinschreiben, wird aber durch irgend einen Grund daran gehindert, oder?

[DeddyH]

Wie sieht denn der Original-Aufruf aus?

[Pow3rus3r]

Der Originalaufruf sieht so aus:

Code:

//---------------------------------------------------------------------------
// Example of an implementation of a COM_GetVersionReq call
//---------------------------------------------------------------------------

void CHwComTestGuiDlg::OnBnClickedButtonGetversion()
{
    COM_Version version;
    if (COM_RETURN_OK == PrintErrorInfos("COM_GetVersionReq",COM_GetVersionReq(m_hCom,&version)))
    {
        printf("COM_Version: %d.%d.%d.%d\r\n",version.Major,version.Minor,version.Patch,version.Build);
    }
}

Sieht in meinen Augen aber sehr ähnlich aus, wie mein "Delphi-Versuch". m_hCom ist das Handle, welches durch die COM_TcpOpen Funktion gefüllt wurde - äquivalent meinem Delphi Programm.