Hallo,
hänge mal wieder an einer DLL Anbindung.
Aus der C++ .h Datei:

markieren

Code:

// Function export for C and Visual Basic

__declspec(dllexport) int __stdcall GetDevInfo(char* mystring);

Normalerweise hat das mit anderen DLL´s immer so funktioniert:

markieren

Code:

function GetDevInfo(Answer:PAnsiChar):integer; stdcall ; external 'MyDevice.dll';

Beim Aufruf knallt´s dann aber gar fürchterlich....


Gruss
Calli

Hallo,

char* ist ein pointer normalerweise lässt sich der für Delphi mit pAnsiChar oder pChar ersetzen.

Grüße
Klaus

Was soll die Methode denn machen? Du scheinst ihm einen Zeiger geben zu sollen wo er Text reinschreibt. Was gibst du ihm denn? Hast du Speicherbereich angelegt? Steht in der Doku wie viel Speicher das sein soll?

Hi,
da soll ein Revision - String drinstehen. Länge unbekannt..

Dank fehlender Code-Kennzeichnung ist oben aus meinen PAnsichar der Smily geworden..

Hab PChar und PAnsichar probiert. Immer Access Violation.

Du musst Speicher für die Rückgabe reservieren.

markieren

Delphi-Quellcode:

var info: Array[0..255] of AnsiChar; // Hab mal 256 Bytes genommen. Musst mal schauen wie viel du ca. brauchst.
begin
  FillChar(info, SizeOf(info), 0);
  GetDevInfo(@info[0]);
  ShowMessage(info);
end;

Super, danke dir !! Passt. Logisch eigentlich....

Dann hab ich noch eine Send/Receive Funktion. Also in einem Turn Kommandos ans Gerät und Antwort bekommen.

__declspec(dllexport) int __stdcall STM_CMD(char *StringCmd, char *StringReply);

Wie sollte ich das angehen ?

Danke und Gruss
Calli

Hallo,
genau wie die andere Funktion, nur das es jetzt 2 Strings sind.

function blap(param1: PAnsiChar; param2: PAnsiChar): Integer; stdcall; Und gerade beim 2. Parameter wieder vorher Speicher holen.

Passt...danke.

Per Param1 muss ein Hex Kommando ( Array of Bytes, 1-20 Bytes je nach Kommando / Daten ) an die DLL übergeben werden.
Das muss ich nun noch irgendwie "umbiegen".

Hallo,
dann nimm einen Record mit 20 Bytes.
und übergib immer den Record als ganzes.
Das erspart Dir einerseits die Pointer-Hampelei und macht außerdem das Debugging einfacher.

markieren

Delphi-Quellcode:

type
  TByteArray=packed record
    B1: Byte;
    B2: Byte;
    ...
    B20: Byte;
  end;

var
A: TByteArray;
begin
FillChar(A, SizeOf(A), #0);
BlaBlub(Pointer(@A),

[DELPHI]

Das Pointer() nimmst Du, falls der Compiler meckert.

Die tatsächliche Länge interessiert ja eh nur die Dll.

Als Ergänzung:

"Pitfalls of converting" von Rudy Velthuis:

http://rvelthuis.de/articles/articles-convert.html