ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Сопоставление Delphi и C++
9 сообщений из 34, страница 2 из 2
  2  все
Сопоставление Delphi и C++
    #39653515
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
patrick1968Мне бы понять как здесь должен выглядеть второй параметр?
Что там понимать. Там - указатель на структуру. Если переменная в стеке - собаку перед ней надо писать, чтобы указатель получить, если переменная - уже указатель на структуру (тип ^T_SK) - то не надо собаку.
...
Рейтинг: 0 / 0
31.05.2018, 18:09
| Ответить | Цитировать | Написать  
Сопоставление Delphi и C++
    #39653774
patrick1968
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
patrick1968
Участник
В данном случае ошибка Incompatible types: T_SK and Pointer
...
Рейтинг: 0 / 0
01.06.2018, 10:31
| Ответить | Цитировать | Написать  
Сопоставление Delphi и C++
    #39653875
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
patrick1968В данном случае ошибка Incompatible types: T_SK and Pointer
В каком этом? Покажи полный код на делфи (не забыв о тэге SRC)
...
Рейтинг: 0 / 0
01.06.2018, 12:07
| Ответить | Цитировать | Написать  
Сопоставление Delphi и C++
    #39654009
Кукареку
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кукареку
Гость
Хватит мозги парнише колупать

Возьми из lazarus - h2pas
Код: sql
1.
2.
h2pas.exe -s -d -D -e -p  -v -w -l NameDll.dll -o OutResult.txt ScriptConvert.h
pause




К примеру
...
Рейтинг: 0 / 0
01.06.2018, 14:25
| Ответить | Цитировать | Написать  
Сопоставление Delphi и C++
    #39655502
patrick1968
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
patrick1968
Участник
Вроде многое решилось
Остался один нюанс, при закрытии формы приложения выходит access violation в модуле system

if InitContext.DLLInitState = 0 then
while ExitProc <> nil do
begin
@P := ExitProc;
ExitProc := nil;
P;
 end;

вот тут
в приложении использую функции из DLL, наверное проблема в этом
может кто "прольет свет"
...
Рейтинг: 0 / 0
05.06.2018, 12:31
| Ответить | Цитировать | Написать  
Сопоставление Delphi и C++
    #39655705
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
patrick1968может кто "прольет свет"
Вряд ли, у тебя же секретный код, а не видя кода в таких случаях сложно сказать, где ошибка в коде.
patrick1968в приложении использую функции из DLL, наверное проблема в этом
Ну да, как вариант - перестать использовать dll, тогда ошибок скорее всего не будет.
...
Рейтинг: 0 / 0
05.06.2018, 15:52
| Ответить | Цитировать | Написать  
Сопоставление Delphi и C++
    #39660217
sedandrey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sedandrey
Гость
patrick1968,

При сравнении указателя на функцию с чем-то сравнивается результат вызова этой функции
неправильно
Код: pascal
1.
while ExitProc <> nil do


правильно
Код: pascal
1.
while Assigned(ExitProc) do



В этом месте вызывается процедура по адресу nil после присвоения в теле цикла
...
Рейтинг: 0 / 0
13.06.2018, 12:45
| Ответить | Цитировать | Написать  
Сопоставление Delphi и C++
    #39660271
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
sedandreyПри сравнении указателя на функцию с чем-то сравнивается результат вызова этой функции
неправильно
Код: pascal
1.
while ExitProc <> nil do

Да, что вы говорите? А ничего, что ExitProc объявлена так
Код: pascal
1.
  ExitProc: Pointer;        { Last installed exit procedure }

?
...
Рейтинг: 0 / 0
13.06.2018, 13:42
| Ответить | Цитировать | Написать  
Сопоставление Delphi и C++
    #39661195
sedandrey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sedandrey
Гость
_Vasilisk_sedandreyПри сравнении указателя на функцию с чем-то сравнивается результат вызова этой функции
неправильно
Код: pascal
1.
while ExitProc <> nil do

Да, что вы говорите? А ничего, что ExitProc объявлена так
Код: pascal
1.
  ExitProc: Pointer;        { Last installed exit procedure }

?
Да уж, поймал. Не увидел что это про SYSTEM, думал кусок своего кода...
Тогда ошибка вообще в другом месте.
...
Рейтинг: 0 / 0
15.06.2018, 12:03
| Ответить | Цитировать | Написать  
9 сообщений из 34, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Сопоставление Delphi и C++
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&gotonew=1&tid=2040747]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 92ms
get topic data:
 12ms
get first new msg:
 7ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 239ms
total:  450ms
созд. / загр.: 450ms
x
x
Закрыть


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