Seite 1 von 1

deklaration von Variabeln in PBI für prceduren möglich?

Verfasst: 07.05.2009 14:24
von heiße Luft
Hallo,
ich hänge schon wieder.
Die Vorgeschichte gibts hier:
http://www.purebasic.fr/german/viewtopic.php?t=19784
Und hier komme ich nicht so recht weiter

ich habe eine include Datei für MS-VB.
Dort werden hauptsächlich Konstanten deklariert und Daten-Typen angelegt.
Jetzt sehe ich das dort auch Deklarationen für Functionen(PB Procedure) gemacht werden.
In VB sieht das so aus:

Code: Alles auswählen

'PVICM_EXPORT INT WINAPI PviInitialize (INT, INT, LPCSTR, LPVOID);
Declare Function PviInitialize Lib "PviCom.dll" (ByVal Timeout As Long, _
                                                 ByVal RetryTime As Long, _
                                                 ByVal InitParameters As String, _
                                                 ByVal Res2 As Long) As Long
in C siehts so aus

Code: Alles auswählen

PVICM_EXPORT INT WINAPI PviInitialize (LONG ComTimeout,
					                 LONG RetryTimeMessage,
						         LPCSTR	pInitParam,
						         LPVOID	pRes2);
Kann ich das in PB auch so machen, oder muß ich die Deklaration in den Proceduren machen?
Wenn ich das richtig verstehe heißt

Code: Alles auswählen

Declare Function PviInitialize Lib "PviCom.dll"
in MS-VB
Deklariere für die Function "PviInitialize" aus der Datei PviCom.dll folgende Variablen (....

Wie sieht die Syntax in PB aus?

Verfasst: 07.05.2009 14:27
von ts-soft
> Wie sieht die Syntax in PB aus?
so:
http://www.purebasic.fr/german/viewtopi ... 435#243435

// Nachtrag:

Code: Alles auswählen

Prototype.l PviInitialize(ComTimeout.l, RetryTimeMessage.l, pInitParam.s, pRes2.l)

If OpenLibrary(0, "PviCom.dll")
  Global PviInitialize.PviInitialize = GetFunction(0, "PviInitialize")
EndIf

Verfasst: 07.05.2009 14:42
von edel
Genau wie in C musst du die lib dazu linken, also Import benutzen.