Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Создание объекта из DLL / 7 сообщений из 7, страница 1 из 1
01.11.2008, 09:58
    #35629772
konst541
konst541
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание объекта из DLL
Может некорректно написал сабж, ситуация следующая:
Есть библиотека стороннего разработчика (один файл dll). Необходимо в PB (ver.9) создать объект описанный в этой dll и использовать его методы.

Есть пример создания этого объекта для VB. Как подобное сделать в PB не представляю. Подскажите, пожалуйста, откуда начать и где почитать. Примеры приветствуются, спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2008, 10:43
    #35629880
Локшин Марк
Локшин Марк
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание объекта из DLL
Самое простое - сделайте так как написано для VB, а с этим уже взаимодействуйте из PB. Вообще, создание объектов которые лежат в dll - не совсем тривиально и зависит от того, на чем эта dll была написана, т.к. такого понятия как "объект" в dll в терминах Windows не существует.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2008, 11:17
    #35629967
konst541
konst541
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание объекта из DLL
Локшин Марксделайте так как написано для VB, а с этим уже взаимодействуйте из PB.

Я не представляю как такой код(подход) можно применить к PB:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim Ctrl As GflAx.GflAx  'вот это смущает более всего :-)

Private Sub Form_Load()
Set Ctrl = New GflAx.GflAx 'и это

With Ctrl
    .LoadBitmap App.Path & "\image.jpg" 'Load the file
'далее неважно ...

нашел в PB help:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
OLEObject PBObject, PBNVObject

long ll_status
double ld_result

PBObject = CREATE OLEObject //createobject
ll_status = PBObject.ConnectToNewObject("GflAx.GflAx") // GflAx.
IF ll_status <>  0  THEN
	// Handle the error
ELSE
	PBObject.LibraryList = "c:\work\pb\prncert - trunc\xnview\GflSDK\GflAx\Lib\std\GflAx.dll"
	PBObject.MachineCode = TRUE

	PBNVObject = CREATE OLEObject

	PBNVObject = &
		PBObject.CreateObject("GflAx.GflAx")
	IF IsNull(PBNVObject) THEN
		// Handle the error
	ELSE
		//ll_status = PBNVObject.uf_calc ( 12 ,  14 , REF result)
	END IF

	DESTROY PBNVObject
	PBObject.DisconnectObject( )
END IF

DESTROY PBObject

Подскажите я правильно "копаю" в сторону OLE?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2008, 11:26
    #35629985
spas2001
spas2001
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание объекта из DLL
Да, делал я такое, если найду пример скину
Фотографии в базу грузил
-----------------------------------------------------------------------------
Главная деталь любой машины - голова ее владельца
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2008, 13:10
    #35630315
Локшин Марк
Локшин Марк
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание объекта из DLL
konst541Подскажите я правильно "копаю" в сторону OLE?
Ну если там есть в той библиотеке OLE объект, то да, иначе нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2008, 13:46
    #35630413
18-я весна
18-я весна
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание объекта из DLL
konst541
Я не представляю как такой код(подход) можно применить к PB:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim Ctrl As GflAx.GflAx  'вот это смущает более всего :-)

Private Sub Form_Load()
Set Ctrl = New GflAx.GflAx 'и это

With Ctrl
    .LoadBitmap App.Path & "\image.jpg" 'Load the file
'далее неважно ...

Этому соответствует код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
OLEObject PBObject

long ll_status
PBObject = CREATE OLEObject //createobject
ll_status = PBObject.ConnectToNewObject("GflAx.GflAx") // GflAx.
IF ll_status <>  0  THEN
    // Handle the error
ELSE
    PBObject.LoadBitmap(ls_app_path + "\image.jpg")
    ....
    PBObject.DisconnectObject( )
END IF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2008, 14:11
    #35630492
konst541
konst541
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание объекта из DLL
Этому соответствует код:
...

Спасибо Вам! и остальным!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Создание объекта из DLL / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 374ms
Закрыть
start [/forum/topic.php?fid=15&mobile=1&tid=1336488]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 48ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 233ms
total:  374ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]