|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.12.2018, 13:37 | #1 |
Форумчанин
Регистрация: 11.06.2010
Сообщений: 525
|
Delphi - Где находится процедура
Доброе время суток форумчане,
Скачал файл проекта Udf, и саму dll, но оказалась она под х32. Откомпелировал ее под x64, но оказалась она стала работать не так, что и было предсказуемо Я как бы нашел место где может быть ошибка, это место "with BLOb do PutSegment(Handle, Buffer, ReadLength);" и объявление «TISC_BlobPutSegment» при сохранении файла в blob поле, но я как-то не найду ее код. Код:
Заранее спасибо Последний раз редактировалось KBO; 13.12.2018 в 17:08. |
13.12.2018, 15:31 | #2 |
Лис
Старожил
Регистрация: 18.09.2015
Сообщений: 2,409
|
PChar переименуйте в PAnsiChar.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
У дзен программиста программа делает то что он хотел, а не то что он написал . |
13.12.2018, 16:47 | #3 |
Форумчанин
Регистрация: 11.06.2010
Сообщений: 525
|
|
13.12.2018, 16:57 | #4 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,707
|
А далее дизасм и в либы базы. TISC_BlobPutSegment определена в IB_Externals.pas, что как бы намекает. Почему не взять https://github.com/madorin/fibplus где прототип уже правильно написан?
|
13.12.2018, 16:59 | #5 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
IB_Externals
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
13.12.2018, 17:38 | #6 |
Форумчанин
Регистрация: 11.06.2010
Сообщений: 525
|
да, нашел этот "ib_externals.pas" у меня в загашнике за 06.04.1998, сравнил с тем что что на сайте, да, добавились новые типы и некоторые поменялись.
Да типы поменялись в "TISC_BlobPutSegment", но все равно как мне посмотреть, что там в нутри? Или мне просто нужно потключить скаченный "ib_externals.pas" к библиотеки?.. Вместе с этим модулем, мне пришлось скачать еще: "FIBPlatforms.pas FIBPlus.inc StdFuncs.pas FIBSafeTimer.pas FIBConsts.pas StrUtil.pas " - надеюсь иду правильным путем... Последний раз редактировалось KBO; 13.12.2018 в 18:10. |
13.12.2018, 18:55 | #7 |
Форумчанин
Регистрация: 11.06.2010
Сообщений: 525
|
Откампилировалось, но результат тот же. Может чего не правльно сделал:
1) В моем модуле (пост #1), подключил два модуля "FIBPlatforms" и "StdFuncs," 2) в моем же модуле, заменил весь блок "type" на сроки из скаченного "ib_externals.pas", т.е. Код:
var BLOb: TBLOb); cdecl; export;" на Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
где находится кэшь WebBrowser? | ninja2 | Windows Forms | 12 | 12.09.2015 21:20 |
Где находится компонент TSystemTray? | Winexcel | Общие вопросы Delphi | 12 | 12.11.2013 22:50 |
Где находится серийный номер windows xp | kreiver | Windows | 8 | 06.03.2013 09:22 |
где находится TPageControl | ВалекFCRK | Общие вопросы Delphi | 4 | 28.07.2011 23:05 |
Где находится компонент ТMailMessage? | romanzi | Работа с сетью в Delphi | 0 | 21.11.2010 11:34 |