ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / перевод приложения на 64 бит
25 сообщений из 56, страница 2 из 3
  2  все
перевод приложения на 64 бит
    #39388772
Ghost Writer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ghost Writer
Участник
с модулем Windows тоже можно таким способом:
Код: pascal
1.
FileTimeToSTRTime(FILETIME(Context^.pCertInfo^.NotBefore))
...
Рейтинг: 0 / 0
20.01.2017, 23:10
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39388773
alexer81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexer81
Гость
Ghost Writeralexer81,

вместо модуля Windows подключи JwaWindows
спасибо за наводку. нужно было Windows совсем убрать.
а в JwaWindows есть тоже свой Tfiletime и он недружит с JwaWinType.Tfiletime
...
Рейтинг: 0 / 0
20.01.2017, 23:18
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39388775
Ghost Writer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ghost Writer
Участник
тогда FILETIME(Context^.pCertInfo^.NotBefore)
...
Рейтинг: 0 / 0
20.01.2017, 23:22
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39388782
alexer81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexer81
Гость
спасибо с FILETIME разобрался. всё работает. переход JwaWinCrypt завершен :) (почти)

в JwaWinCrypt CryptStringToBinary описан так :

Код: pascal
1.
2.
3.
function CryptStringToBinary(pszString: LPCSTR; cchString: DWORD;
  dwFlags: DWORD; ppBinary: BYTE; var ppcbBinary: DWORD;
  ppdwSkip: DWORD): BOOL; stdcall;



а в wincrypt2 в соответствии с описанием MS

Код: pascal
1.
2.
function CryptStringToBinary(pszString: PChar; cchString: dword; dwFlags: dword;
pbBinary: pointer; var pcbBinary: dword; var pdwSkip: dword; var pdwFlags: dword): boolean; stdcall;



как же тогда тут узнать размер ppcbBinary если ppBinary не указатель? надо же первые раз сделать вызов:

Код: pascal
1.
CryptStringToBinary(pchar(Data), Length(Data), Flags, nil, sz, skip);
...
Рейтинг: 0 / 0
20.01.2017, 23:52
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39388797
Ghost Writer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ghost Writer
Участник
alexer81как же тогда тут узнать размер ppcbBinary если ppBinary не указатель?
ppcbBinary - это и есть размер.
но мне не понятно куда делся 7-й параметр pdwFlags, который возвращает информацию из какого формата был файл перекодирован.
...
Рейтинг: 0 / 0
21.01.2017, 00:25
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39388798
Ghost Writer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ghost Writer
Участник
компилируется, но при запуске
---------------------------
Точка входа в процедуру CryptToStringBinaryA не найдена в библиотеке DLL crypt32.dll.
---------------------------
...
Рейтинг: 0 / 0
21.01.2017, 00:28
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39388799
Ghost Writer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ghost Writer
Участник
сверху даже комментарий. джедаи про него забыли ))
Код: pascal
1.
// *pdwFlags returns the actual format used in the conversion, optional
...
Рейтинг: 0 / 0
21.01.2017, 00:33
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39389354
alexer81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexer81
Гость
написал в своём модуле так :
Код: pascal
1.
2.
function CryptStringToBinary(pszString: LPCSTR; cchString: dword; dwFlags: dword;pbBinary: pointer;
                             var pcbBinary: dword; var pdwSkip: dword;var pdwFlags: dword): boolean; stdcall;


работает.
...
Рейтинг: 0 / 0
23.01.2017, 10:41
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39389357
alexer81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexer81
Гость
у меня есть сборник win32api от JEDI там файлы 2001-2002 г.г. так там в JwaWinCrypt вообще нет этой функции
...
Рейтинг: 0 / 0
23.01.2017, 10:47
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39389374
wlx-plugin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wlx-plugin
Гость
alexer81,

Извините, что не в тему.
Так все-таки Ваша разработка - это именно wlx-плагин ?
Если да, и вы используете LCL, то не затруднит ли Вас показать код инициализации формы плагина для 64-х битного TotalCommandera?
...
Рейтинг: 0 / 0
23.01.2017, 11:08
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39389387
alexer81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexer81
Гость
wlx-pluginalexer81,

Извините, что не в тему.
Так все-таки Ваша разработка - это именно wlx-плагин ?
Если да, и вы используете LCL, то не затруднит ли Вас показать код инициализации формы плагина для 64-х битного TotalCommandera?
плагин у меня есть написаный на дельфи7. на лазарус перевожу только из-за поддержки 64 бит.
как что получится сообщу вам.
...
Рейтинг: 0 / 0
23.01.2017, 11:20
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39389393
wlx-plugin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wlx-plugin
Гость
alexer81плагин у меня есть написаный на дельфи7. на лазарус перевожу только из-за поддержки 64 бит.
как что получится сообщу вам.

Спасибо, с интересом буду ждать.

Насколько я знаю Гислер (автор TotalCommander) в своих плагинах LCL не использовал: http://www.ghisler.ch/board/viewtopic.php?t=36164&highlight=wlx lazarus&sid=7e615a020cdbde2b25014fa8de79e3f7
Но это сообщение из 2013-го...

Нужен "hello word" для современных версий.
...
Рейтинг: 0 / 0
23.01.2017, 11:30
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39389995
O'Rioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
O'Rioch
Гость
alexer81у меня есть сборник win32api от JEDI там файлы 2001-2002 г.г. так там в JwaWinCrypt вообще нет этой функции

а что, в 2002 году уже вышла Windows Vista ?
...
Рейтинг: 0 / 0
24.01.2017, 07:14
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39390006
Ghost Writer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ghost Writer
Участник
O'Riochа что, в 2002 году уже вышла Windows Vista ?а причем тут Vista? на XP уже была.
...
Рейтинг: 0 / 0
24.01.2017, 08:00
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39390333
alexer81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexer81
Гость
wlx-plugin,
по поводу плагина.
Дельфийский код оказался несовместимым использовал твой.
на 32 бит работает но плагин не встраивается в lister - выглядит как дочерним окном внутри listera. пока не найду где что исправить.
на 64 бит открывает файл показывает информацию и сразу вываливается ошибка
автор---------------------------
Total Commander 9.0a
---------------------------
Access violation.
Access violation
Windows 7 SP1 6.1 (Build 7601), base: 0400000

Please report this error to the Author, with a description
of what you were doing when this error occurred!

Stack trace (x64):40A700
4312C2 43E721 43E436 44040C 440881 78CDCC 440827 404895

Press Ctrl+C to copy this report!
Continue execution?
---------------------------
Да Нет
---------------------------
...
Рейтинг: 0 / 0
24.01.2017, 15:06
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39390341
wlx-plugin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wlx-plugin
Гость
alexer81wlx-plugin,
по поводу плагина.
Дельфийский код оказался несовместимым использовал твой.
на 32 бит работает но плагин не встраивается в lister - выглядит как дочерним окном внутри listera. пока не найду где что исправить.
на 64 бит открывает файл показывает информацию и сразу вываливается ошибка
автор---------------------------
Total Commander 9.0a
---------------------------
Access violation.
Access violation
Windows 7 SP1 6.1 (Build 7601), base: 0400000

Please report this error to the Author, with a description
of what you were doing when this error occurred!

Stack trace (x64):40A700
4312C2 43E721 43E436 44040C 440881 78CDCC 440827 404895

Press Ctrl+C to copy this report!
Continue execution?
---------------------------
Да Нет
---------------------------


Так в том то и беда, что для 64-х бит ломается...
Сама идея использования формы (т.е. LCL) в dll плохая...

Для 32-х бит у формы Border := bsNone нужно поставить.

А что новые версии Delphi не умеют 64 bit?
Почему бы в эту сторону не посмотреть?
...
Рейтинг: 0 / 0
24.01.2017, 15:14
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39390386
alexer81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexer81
Гость
wlx-pluginДля 32-х бит у формы Border := bsNone нужно поставить.

а в дельфи и без этого обходилось

wlx-pluginСама идея использования формы (т.е. LCL) в dll плохая...

ранее часто использовал незнаю что в этом плохого.

wlx-pluginА что новые версии Delphi не умеют 64 bit?
Почему бы в эту сторону не посмотреть?

какую версию и где её взять?
вот диск с дельфи7 я купил за 70 р. на книжном рынке в 2002 г.
...
Рейтинг: 0 / 0
24.01.2017, 15:50
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39390391
wlx-plugin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wlx-plugin
Гость
alexer81какую версию и где её взять?
вот диск с дельфи7 я купил за 70 р. на книжном рынке в 2002 г.

https://www.embarcadero.com/ru/products/delphi/starter/promotional-download
...
Рейтинг: 0 / 0
24.01.2017, 15:55
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39390833
wlx-plugin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wlx-plugin
Гость
wlx-pluginalexer81какую версию и где её взять?
вот диск с дельфи7 я купил за 70 р. на книжном рынке в 2002 г.

https://www.embarcadero.com/ru/products/delphi/starter/promotional-download

А нет, этот starter не поддерживает 64bit: https://www.embarcadero.com/products/delphi/product-editions

Вот блин, думал таки можно и легально, и бесплатно... но нет...
...
Рейтинг: 0 / 0
25.01.2017, 10:33
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39393302
wlx-plugin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wlx-plugin
Гость
alexer81,

Да, кстати, этот код работает для 64-х битного Double Commander.
Проблема именно с Total Commander 64bit
...
Рейтинг: 0 / 0
27.01.2017, 17:00
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39395153
alexer81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexer81
Гость
wlx-pluginalexer81,

Да, кстати, этот код работает для 64-х битного Double Commander.
Проблема именно с Total Commander 64bit
да работает без ошибок. ну что же придется замещать импорт ))
...
Рейтинг: 0 / 0
31.01.2017, 09:38
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39395253
wlx-plugin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wlx-plugin
Гость
alexer81...
да работает без ошибок. ну что же придется замещать импорт ))

Что значит "замещать импорт" ?
Т.е. Вы оставляете поиски решения для TotalCommander 64bit?
...
Рейтинг: 0 / 0
31.01.2017, 11:23
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39396481
alexer81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexer81
Гость
wlx-pluginalexer81...
да работает без ошибок. ну что же придется замещать импорт ))

Что значит "замещать импорт" ?
Т.е. Вы оставляете поиски решения для TotalCommander 64bit?
ну решение пока такое: delphi xe 7.
известный пример плагина wlx Листер плагин на Borland Delphi 7 для начинающих
на основе его и свой делал. работает без ошибок и под 32 и под 64.
...
Рейтинг: 0 / 0
01.02.2017, 16:13
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39404176
alexer81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexer81
Гость
оказывается что ошибка
автор---------------------------
Total Commander 9.0a
---------------------------
Access violation.
Access violation
Windows 7 SP1 6.1 (Build 7601), base: 0400000

Please report this error to the Author, with a description
of what you were doing when this error occurred!

Stack trace (x64):40A700
4312C2 43E721 43E436 44040C 440881 78CDCC 440827 404895

Press Ctrl+C to copy this report!
Continue execution?
---------------------------
Да Нет
---------------------------
вылетает после того как курсор мышки начинает шевелится над плагином
...
Рейтинг: 0 / 0
14.02.2017, 14:44
| Ответить | Цитировать | Написать  
перевод приложения на 64 бит
    #39404181
alexer81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexer81
Гость
т.е. если курсор отвести в сторону от тотала. то ошибка не появится, и тотал и запущенный плагин будут работать нормально.закрываться без ошибок. пока курсор мыши не появится над окном плагина
...
Рейтинг: 0 / 0
14.02.2017, 14:49
| Ответить | Цитировать | Написать  
25 сообщений из 56, страница 2 из 3
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / перевод приложения на 64 бит
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39390006&tid=2040185]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 165ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 65ms
get tp. blocked users:
 2ms
others: 240ms
total:  513ms
созд. / загр.: 513ms
x
x
Закрыть


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