Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / C++ [игнор отключен] [закрыт для гостей] / dll из BCB в Delphi / 5 сообщений из 5, страница 1 из 1
23.01.2004, 17:15
    #32386548
123456789098
123456789098
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dll из BCB в Delphi
привет всем !!!
народ кто знает подскаите гле я не прав. У меня есть писанная на билдере dll которая имеет вот такой вид:

Код: plaintext
extern  "C"  int __declspec(dllexport) GetStandartProductID(int NonStandartProductID, int &ColorID, unsigned char &modificator)


в Delphi я ее описываю вот так:

Код: plaintext
 function _GetStandartProductID(NonStandartProductID:Integer;Var ColorID:Integer;Var Modifikator:Char):Integer; external'SearchProducr.dll';



но почему то при вызове функция получает какие то левые значения. как побороть ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2004, 17:53
    #32386598
maratka
maratka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dll из BCB в Delphi
я конечно дельфи не юзаю, но попробуйт так -
extern "C" int __stdcall __declspec(dllexport) GetStandartProductID(int NonStandartProductID, int &ColorID, unsigned char &modificator)
а в клиенте - (тут я не уверен)
function _GetStandartProductID@8 ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2004, 17:56
    #32386606
maratka
maratka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dll из BCB в Delphi
ох, сорри, очепятка -
function _GetStandartProductID@ 12 ...
но лучше смотреть export table
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2004, 18:13
    #32386634
ZrenBy
ZrenBy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dll из BCB в Delphi
Во так работает ( cdecl добавил)
Код: plaintext
1.
2.
3.
4.
extern  "C"  int __declspec(dllexport) GetStandartProductID(int NonStandartProductID, int& ColorID, unsigned char& modificator);
...
int __declspec(dllexport) GetStandartProductID(int NonStandartProductID, int& ColorID, unsigned char& modificator){
   return(NonStandartProductID+ColorID+(int)modificator);
}

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
function _GetStandartProductID(NonStandartProductID:Integer;var ColorID:Integer;var Modifikator:Char):Integer; cdecl;external'Project1.dll';
...
procedure TForm1.Button1Click(Sender: TObject);
var R,a,b:Integer; c:Char;
begin
   a :=  100 ;
   b :=  20 ;
   c := # 3 ;
   R := _GetStandartProductID(a,b,c);
   Application.MessageBox(PChar(IntToStr(R)),'', 0 );
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2004, 10:33
    #32387409
123456789098
123456789098
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dll из BCB в Delphi
Всем огромное спасибо.
отдельное спасибо ZrenBy . cdecl то что нужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / C++ [игнор отключен] [закрыт для гостей] / dll из BCB в Delphi / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 394ms
Закрыть
start [/forum/topic.php?fid=57&mobile=1&tid=2035490]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 70ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 39ms
get tp. blocked users:
 2ms
others: 234ms
total:  394ms
x
x
Закрыть


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