Доброго времени суток Господа!
У меня возник вопрос!
Как же всё таки подключить DLL'ку написанную на VC в Delphi?

Вот фу-я:
int __declspec(dllexport) __stdcall ExtPing(int nCommPort, BOOL bIsIrDA = FALSE);

Для импорта её же я написал:
function ExtPing(nCommPort:integer; bIsIrDA:boolean=FALSE):integer; external 'Cipher.dll' name 'ExtPing';
пробовал и:
function ExtPing(nCommPort:integer; bIsIrDA:boolean):integer; external 'Cipher.dll' name 'ExtPing';
При запуске прложения дебугег говорит, что не может найти точку входа в эту вот процедуру!
В чём же моя ошибка?

Заранее благодарен за любую помощь!

ЗЫ Весь материал тут

ЗЫ 8000 Series Terminal - mazdai....

попробуй так:

Код

function ExtPing(nCommPort:integer; bIsIrDA:boolean=FALSE):integer; stdcall; external 'Cipher.dll' name '?ExtPing@@YGHHH@Z';

думаю тебе это поможет:

Код

CCipher::CCipher(void) CCipher::~CCipher(void) class CCipher & CCipher::operator=(class CCipher const &) int CCipher::CheckComm(void) int CCipher::ClearDatabase(int) int CCipher::ClearDoc(int) void CCipher::CloseComm(void) int ExtClearDatabase(int,int,int) int ExtClearDoc(int,int,int) int ExtFinish(int,int) int ExtGetCurrentState(char *,int,int) long ExtGetDataCount(int,int,int) long ExtGetFreeMemory(int,int) long ExtGetRecordsCount(int,int,int) int ExtGetSerialNumber(char *,int,int) int ExtGetTime(char *,int,int) int ExtPing(int,int) int ExtPutRecord(int,char const *,int,int) int ExtReadData(int,char *,int,int) int ExtReadRecord(int,char *,int,int) int ExtUpdateTime(int,int) int CCipher::Finish(void) int CCipher::GetCurrentState(char *) long CCipher::GetDataCount(int) int CCipher::GetErrorDescription(int,char *) long CCipher::GetFreeMemory(void) int CCipher::GetLastError(void) long CCipher::GetRecordsCount(int) int CCipher::GetSerialNumber(char *) int CCipher::GetTime(char *) int CCipher::InitComm(void) int CCipher::OpenComm(int,int) int CCipher::OpenIrDA(void) int CCipher::Ping(void) int CCipher::PutRecord(int,char const *) int CCipher::ReadData(int,char *) int CCipher::ReadRecord(int,char *) int CCipher::SendCommand(char const *,char *) int CCipher::TestIrDA(unsigned long) int CCipher::UpdateTime(void)

Код

??0CCipher@@QAE@XZ ??1CCipher@@QAE@XZ ??4CCipher@@QAEAAV0@ABV0@@Z ?CheckComm@CCipher@@QAEHXZ ?ClearDatabase@CCipher@@QAEHH@Z ?ClearDoc@CCipher@@QAEHH@Z ?CloseComm@CCipher@@QAEXXZ ?ExtClearDatabase@@YGHHHH@Z ?ExtClearDoc@@YGHHHH@Z ?ExtFinish@@YGHHH@Z ?ExtGetCurrentState@@YGHPADHH@Z ?ExtGetDataCount@@YGJHHH@Z ?ExtGetFreeMemory@@YGJHH@Z ?ExtGetRecordsCount@@YGJHHH@Z ?ExtGetSerialNumber@@YGHPADHH@Z ?ExtGetTime@@YGHPADHH@Z ?ExtPing@@YGHHH@Z ?ExtPutRecord@@YGHHPBDHH@Z ?ExtReadData@@YGHHPADHH@Z ?ExtReadRecord@@YGHHPADHH@Z ?ExtUpdateTime@@YGHHH@Z ?Finish@CCipher@@QAEHXZ ?GetCurrentState@CCipher@@QAEHPAD@Z ?GetDataCount@CCipher@@QAEJH@Z ?GetErrorDescription@CCipher@@QAEHHPAD@Z ?GetFreeMemory@CCipher@@QAEJXZ ?GetLastError@CCipher@@QAEHXZ ?GetRecordsCount@CCipher@@QAEJH@Z ?GetSerialNumber@CCipher@@QAEHPAD@Z ?GetTime@CCipher@@QAEHPAD@Z ?InitComm@CCipher@@IAEHXZ ?OpenComm@CCipher@@QAEHHH@Z ?OpenIrDA@CCipher@@IAEHXZ ?Ping@CCipher@@QAEHXZ ?PutRecord@CCipher@@QAEHHPBD@Z ?ReadData@CCipher@@QAEHHPAD@Z ?ReadRecord@CCipher@@QAEHHPAD@Z ?SendCommand@CCipher@@IAEHPBDPAD@Z ?TestIrDA@CCipher@@IAEHK@Z ?UpdateTime@CCipher@@QAEHXZ

Очень уж любопытно, а как это вообще понимать?
то есть по какому принцепу это всё так шифруется?

cully спасибо!

Цитата

Очень уж любопытно, а как это вообще понимать? то есть по какому принцепу это всё так шифруется?

Это долбаный компилер C\C++ так обзывает каждую функцию исходя из типов параметров, типа результата и, собственно, самого имени функции.

Как вот это вот

Код

class CIPHER_API CCipher { public: //methods BOOL OpenComm(int nCommPort, BOOL bIsIrDA = FALSE); BOOL CheckComm(); void CloseComm(); int  GetLastError(); BOOL GetErrorDescription(int nError, LPSTR szData); BOOL Ping(); BOOL GetSerialNumber(LPSTR szData); BOOL GetTime(LPSTR szData); BOOL UpdateTime(); long GetFreeMemory(); BOOL GetCurrentState(LPSTR szData); long GetDataCount(int nDoc); long GetRecordsCount(int nBase); BOOL ClearDoc(int nDoc); BOOL ClearDatabase(int nBase); int  ReadData(int nDoc, LPSTR szData); int  ReadRecord(int nBase, LPSTR szData); BOOL PutRecord(int nBase, LPCSTR szData); BOOL Finish(); //start of implementation block CCipher(void); //variables HANDLE  m_hComm; DCB   m_dcb; OVERLAPPED m_ov; COMSTAT m_stat; int  m_nLastError; int  m_nCommPort; BOOL m_bIsIrDA; protected: //methods BOOL InitComm(); BOOL OpenIrDA(); BOOL TestIrDA(DWORD spec); BOOL ReadData(LPCSTR szCommand, LPSTR szData); //variables char szIrDA[16]; };

Изобразить в дельфях?
Спасибо!

нда
asm
push указатель на имя dll
call loadlbrary
push указатель на кактамфункциюзовут
push eax
call getprocaddress
end;
сия хрень вернет в еах адрес той самой функ которую просили
и пофигу на чем написана dll

Это сообщение отредактировал(а) oleg1973 - 6.12.2003, 03:49

да нет!
Мне нужно тот класс экспортнуть!

Ну поможите плз!

почитай здесь: http://forum.vingrad.ru/index.php?act=ST&f=2&t=13274

Ну да, помню помню! но тогда я так и не получил нужного мне ответа!

а в чем проблема? что конкретно не получается?

Ну переведи мне ПЛЗ в дельфёвый вид этот класс. И всё! ПЛЗ!

Frikazoid Классы в каждом языке устроены по-разному. В Delphi и BCB постарались сделать их максимально схожими. И то, нет-нет да слышен вскрик наступившего на очередные грабли несовместимости. Про бинарный перенос классов из MSVC слышать пока не приходилось. Либо proxy-DLL, либо полухакерская адаптация, если для нее оставлены лазейки (как, например, поступили ребята с классами из GDI+).

Об этом ведь уже писалось. Причем именно по твоему вопросу. Причем подробно и с вариантами решений.