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.
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:
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]