Ich möchte eine fremde .dll in mein Delphi-Programm einbinden.

Die Hilfe zur dll enthält Beispiele, wie sich die Funktionen mit VB aufrufen lassen.
Z.B.

markieren

Code:

Private Declare Function openComDevice Lib “sucoma32.dll”_
   ( ByVal xpComDevice As String,_
     ByRef xwPortID As Long) As Integer

wie hat ein solcher Funktionsaufruf in Delphi auszusehen?
mein bisheriger Versuch funktioniert nicht:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.verbindenButtonClick(Sender: TObject);
var
   ergebnis:integer;
   portid: integer;
begin
  {$I-}
  ergebnis:=opencomdevice(pchar('COM1:9600'),portid);
  {$I+}
  if ergebnis<>0 then edit1.text:='Fehler'
                 else edit1.text:='verbunden';
end;

leider gibts da immer eine Fehlermeldung.


und wie hat die entsprechende Deklaration in Delphi auszusehen?
ist das so korrekt?

Function openComDevice(xpComDevice:String; xwPortID:integer ):Integer; stdcall; external 'sucoma32.dll';

Mit VB hatte ich noch nie was zu tun.

[edit=Matze][code]- und [delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]

Vielleicht so...
function openComDevice(xpComDevice:PChar; var xwPortID:LongInt):Integer; stdcall; external 'sucoma32.dll';

Hallo "hilfmir"

Versuch dies.

markieren

Delphi-Quellcode:

Function openComDevice(xpComDevice: PChar; var xwPortID: DWORD): Integer;
  stdcall; external 'sucoma32.dll';

lg. Astat

Vielen Dank euch beiden.

Beide Varianten funktionieren.

Zitat von hilfmir:

Vielen Dank euch beiden.

Beide Varianten funktionieren.

Würde die Datentypen nochmal prüfen
Long 4 Bytes Ganze Zahlen von -2.147.483.648 bis +2.147.483.647

gruss