🚀 go-pugleaf

DarekM pisze:
> Mentor pisze:
>> Witam
>>   Potrzebuje napisać w oparciu o biblioteke dll program który by 
>> zczytywał dane ze sterownika PLC dane i zapisywał je w bazie danych....
>>
>> Biblioteka produkcji visilogic... "UnCmDrv1.dll"
> 
> 
> Nie wiem czy o to Ci chodzi. Poszukaj h2pas, który powinien generować z 
> pliku nagłówkowego unit z deklaracjami funkcji z tej biblioteki.
> 
> 
> Darek

Może wstawie przykład z basica excel'a...

Dim mComDriver          As UnCmDrv1.clsCommDriver
Dim WithEvents mTimer   As UnCmDrv1.clsTimer

Private Function prvOpenPort() As Boolean
Dim eComParam As tPC_CommSettings  '<<<< zmienna z biblioteki dll

    'Create new instance of the Comm Driver Dll.
    Set mComDriver = New UnCmDrv1.clsCommDriver   '<< tutej mamy 
utworzenie jak by klasy w zmiennej mComDriver

    'Configure the connection parameters.
    With eComParam
       .Baudrate = eBR_38400
       .DataBits = eDB_8
       .Parity = eP_None
       .StopBits = eSB_1
       .TimeOut = 500
       .Retries = 3
    End With
    mComDriver.Comm_Autodetect = True    ' na ktorej wykonujemy operacje :/
    mComDriver.ShowCommMessages = True

    'Opens the com.
    prvOpenPort = mComDriver.Comm_Open(Cells(5, 4), eComParam)

End Function
__________________________

Tu pytanie jak coś podobnego zrobić w delphi ?
vb wykazuje spis funkcji i procedór dll'a i clsCommDriver z samej nazwy 
widać że to klasa osadzona w bibliotece dll

h2pas nie łyka tego wywala błąd

Pozdrawiam Mentor