Hi DP'ler,
ich habe ein Problem mit der Parameterübergabe in eine DLL.

Die DLL heisst FTD2XX.DLL und stammt von FTDI. Genutzt wird diese DLL zum ansprechen der USB device in einem USB seriell controller.

Nach durchforsten aller möglichen Dokumentationen komme ich einfach nicht mehr weiter.

In der Dokumentation ist die Funktion wie folgt beschrieben:

FT_STATUS FT_GetComPortNumber (FT_HANDLE ftHandle, LPLONG lplComPortNumber)

Ich habe sie folgenmdermassen implementiert:

markieren

Delphi-Quellcode:

function FT_GetComPortNumber(ftHandle:Dword; ComPortNumber:Dword):FT_Result; stdcall; External FT_DLL_Name name 'FT_GetComPortNumber';


Function GetFTComPortNumber : FT_Result;
var i:Dword;
begin
  Result := FT_GetComportNumber(FT_handle,i); //,@SerialNumber FT_handle
  If Result = FT_OK then FT_Comnumber := 'COM'+IntToStr(comnumber);
end;

Das i steht hier nur versuchsweise, hier soll später eine globale Variable stehen.

Was ich auch anstelle, die Funktion GetFTComPortNumber liefert mir immer die Fehlernummer 6: fehlerhafte Parameter zurück.
FT_handle hat das Format Dword und ist korrekt. Es wird auch schon für andere Funktionen genutzt!

Mach ich irgendetwas grundsätzlich falsch? Kann mir jemand helfen?

Grüsse
rainer

Die Funktion hat als Parameter u.a. Den Com-Port, im DLL-Aufruf wird der Wert aber nicht übergeben.

Ist das so wirklich richtig? Wie bekommt die DLL mit, welchen Port du meinst?

Hi Sir Rufo,

ich soll in i den Port zurück bekommen!
Ich übergebe das handle des USB adapters, übergebe in i einen Pointer auf eine datenstruktur und bekomme darin die Nummer des Com ports zurück.

Grüsse
rainer

Du übergibst aber keinen Pointer auf einen Long (so verlangt es jedenfalls die Doku)

Hi Sir Rufo,

ich hab alles mögliche ausprobiert und bin schon ganz kirre.
Wie würdest du das machen?
Hilf mir bitte einfach mit einem Stück Code weiter.(Wäre jedenfalls nett)

Grüsse
Rainer

Hi Sir Rufo,
ich habe die Lösung:

markieren

Delphi-Quellcode:

function FT_GetComPortNumber(ftHandle:Dword; ComPortNumber:Pchar):FT_Result; stdcall; External FT_DLL_Name name 'FT_GetComPortNumber';

Function GetFTComPortNumber : FT_Result;
var i:Dword;
begin
  Result := FT_GetComportNumber(FT_handle,@i); //,@SerialNumber FT_handle
  If Result = FT_OK then FT_Comnumber := 'COM'+IntToStr(i);
end;

Funktioniert jetzt. Dein Tip war Gold wert. Danke!

Grüsse
rainer

Zitat:

Hilf mir bitte einfach mit einem Stück Code weiter.(Wäre jedenfalls nett)

Es wurde doch ganz klar und deutlich gesagt, wo das Problem liegt?

Deine Parameterdeklaration ist falsch.
> DWORD statt PDWORD
(wobei LPLONG eigenlich ein PLongInt wäre, aber egal)

markieren

Delphi-Quellcode:

function FT_GetComPortNumber(ftHandle: THandle; ComPortNumber: PLongWord): FT_Result; stdcall;
// oder
function FT_GetComPortNumber(ftHandle: THandle; var ComPortNumber: LongWord): FT_Result; stdcall;

[edit]
nja, ob das so unbedingt besser ist?

PCHAR in C++ = Zeiger auf ein CHAR (1 unsigned Byte in C++)
PCHAR in Delphi = Zeiger auf ein Char (1 Zeichen eines Strings dynamischer Größe ... ANSI(bis D2007) = 1 Byte, Unicode(ab D2009) = 2 Byte)

Es ist ja schließlich bekannt, was es für ein Typ sein soll > ein Zeiger auf DWORD/LongWord

[add]

markieren

Delphi-Quellcode:

Function GetFTComPortNumber: String;
var Port: LongWord;
  Res: FT_Result;
begin
  //Res := FT_GetComportNumber(FT_handle, Port);
  Res := FT_GetComportNumber(FT_handle, @Port);
  If Res = FT_OK then Result := 'COM' + IntToStr(Post)
  Else {Fehlermeldung oder Standardwert zurückgeben}
end;

GetFTComPortNumber diese Funktion soll also, laut ihrem Namen den COM-Port zurückliefern, macht sie aber nicht.
In deinem Fall wäre wohl ReadFTComPortNumber o.Ä. besser.

PS: Globale Variablen?
Verpack besser alles schön in eine Klasse, mit Feldern(Variablen) und Methoden(Funktionen).