kkuuhhaa
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору налетел тут на странности с перегрузкой функции interface integer function ZipAdd(i,file1,file2) !DUB$ ATTRIBUTES C, ALIAS:'_ZipAdd' :: ZipAdd integer i character*(*) file1,file2 !DUB$ATTRIBUTES REFERENCE :: file1,file2 END function integer function mem2zip(i,file1,j,k) !DUB$ ATTRIBUTES C, ALIAS:'_ZipAdd' :: mem2zip integer i,j,k character*(*) file1 !DUB$ATTRIBUTES REFERENCE :: file1 END function end interface Результат зависит от последовательности описания функций, но вместе не работают. extern "C" ZRESULT ZipAdd(HZIP hz,const TCHAR *dstzn, void *src,unsigned int len); ZRESULT ZipAdd(HZIP hz,const TCHAR *dstzn, const TCHAR *fn); 1я (ZipAdd) крэшится по защите доступа вне зависимости от порядка записи, а, если объявить наоборот, то 2й вызов (mem2zip) не работает. Что-то я не понимаю на уровне ДНК Спасибо ЗЫ Фу, рассосалось. | Всего записей: 131 | Зарегистр. 14-05-2008 | Отправлено: 12:46 20-02-2014 | Исправлено: kkuuhhaa, 13:19 26-02-2014 |
|