|
|
|
новичок
участник
Last Login: 25.03.2000 2:39
Сообщ.: 5,
Visits: 56
|
|
Описываю функцию/процедуру в ActiveX DLL, компилирую в NewDll.Dll, но потом не могу получить доступ к этой функции из другой программы.
Может кто знает, в чем проблема? Сорсы прилагаю.
-------------- Dll Src: ---------------------
Option Explicit
Friend Sub Copier(FromPath As String, ToPath As String)
Dim File1 As FileListBox
Dim i As Integer
File1.Path = FromPath
If File1.ListCount <> 0 Then
For i = 0 To File1.ListCount - 1
File1.ListIndex = i
FileCopy FromPath & "\" & File1.filename, ToPath & "\" & File1.filename
Next i
Else
End If
End Sub
-------------- App Src: ---------------
Module:
Declare Sub Copier Lib "NewDll" (ByVal FromPath As String, ByVal ToPath As String)
-.-.-.-.-.-.-.-
Form:
Private Sub Command1_Click()
Call Copier("c:\from\", "c:\into\")
End Sub
-----------------------------------
Выдает ошибку:
Can't find DLL entry point Copier in NewDll.
|
|
|
|
|
новичок
участник
Last Login: 25.03.2000 2:39
Сообщ.: 5,
Visits: 56
|
|
Hi, all
Дас, объяснили мне, что DLL в классическом смысле этого слова ("С"шного аналога) сделать не удастся.
Необходимо создать класс и функции писать внутри него. А после:
- создаем DLL,
- получаем к ней доступ,
- определяем переменную класса ...
- и наконец используем ее функции.
Ну Пока.
|
|
|
|
|
Forum Guru
участник
Last Login: 25.02.2000 8:07
Сообщ.: 59,
Visits: 661
|
|
|
|
|