AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein VB-Funktionen nach Delphi konvertieren
Thema durchsuchen
Ansicht
Themen-Optionen

VB-Funktionen nach Delphi konvertieren

Ein Thema von hilfmir · begonnen am 26. Dez 2009 · letzter Beitrag vom 26. Dez 2009
 
hilfmir

Registriert seit: 26. Dez 2009
4 Beiträge
 
#1

VB-Funktionen nach Delphi konvertieren

  Alt 26. Dez 2009, 10:08
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]
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:28 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz