Портирование NotesAPI и WinAPI под x64

Проблема со всеми функциями или только с user32 для getWindow ?

 

Все не проверял, но работа с реестром и процессами (RegOpenKey - RegQueryValueEx, CreateProcessA + остальные проверить не получится поскольку эта не запускает процесс и пида нет) - работают не корректно... ;(
работа с окнами, как-то работает и даже что-то возвращает, но тормозит безбожно...

 

За реест не скажу, а вот с одной функций был прикол.

Вместо GetActiveWindow надо использовать GetFocus, хз как и что, но в windows 7 она стала неверно работать.

 

advapi32 на x64 не работает, я пытался реанимировать здесь, но не смог.
Хотел найти альтернативы, м.б. на Java, но тогда не нашёл.

Из перечисленных эти функции у нас задекларированы, вроде ничего не отвалилось:

Declare Function WaitForSingleObject Lib "kernel32" Alias "WaitForSingleObject" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long

Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (Byval hwnd As Long, Byval lpClassName As String, Byval nMaxCount As Long) As Long
Declare Function GetWindow Lib "user32" Alias "GetWindow" (Byval hwnd As Long, Byval wCmd As Long) As Long

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (Byval hwnd As Long, Byval lpString As String, Byval cch As Long) As Long
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (Byval hwnd As Long, Byval lpString As String) As Long

@savl
>> Declare Private Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long
> Вместо GetActiveWindow надо использовать GetFocus, хз как и что, но в windows 7 она стала неверно работать.
У нас для popup'ов GetActiveWindow работает на Win7, вроде никто не жаловался...

 

Хотел найти альтернативы, м.б. на Java, но тогда не нашёл.

domino-jna
который всемсте с разработчиком теперь часть keep

 

domino-jna
который всемсте с разработчиком теперь часть keep

Конкретно, что нужно вызвать вместо advapi32, чтобы получить тот же результат (нужно поддерживать обратную совместимость подписей)?

 

Конкретно, что нужно вызвать вместо advapi32, чтобы получить тот же результат (нужно поддерживать обратную совместимость подписей)?

извини - я чёт окосел - не на то ответил...
какие ф-ции надо "заменять"?

 

какие ф-ции надо "заменять"?

Норм)

Эти:

Declare Private Function W32CryptAcquireContext Lib "Advapi32" Alias "CryptAcquireContextA"(phProv As Long, Byval pszContainer As Lmbcs String, Byval pszProvider As Lmbcs String, Byval dwProvType As Long, Byval dwFlag As Long) As Long
Declare Private Function W32CryptCreateHash Lib "Advapi32" Alias "CryptCreateHash"(Byval hProv As Long, Byval Algid As Long, Byval hKey As Long, Byval dwFlag As Long, phHash As Long) As Long
Declare Private Function W32CryptHashData Lib "Advapi32" Alias "CryptHashData"(Byval hHash As Long, Byval addr_data As Long, Byval dwSize As Long, Byval dwFlag As Long) As Long
Declare Private Function W32CryptGetHashParam Lib "Advapi32" Alias "CryptGetHashParam"(Byval hHash As Long, Byval dwParam As Long, buffer As Long, dwSize As Long, Byval dwFlag As Long) As Long
Declare Private Function W32CryptDestroyHash Lib "Advapi32" Alias "CryptDestroyHash"(Byval hHash As Long) As Long
Declare Private Function W32CryptReleaseContext Lib "Advapi32" Alias "CryptReleaseContext"(Byval hProv As Long, Byval dwFlags As Long) As Long

Declare Private Function W64CryptAcquireContext Lib "Advapi32" Alias "CryptAcquireContextA"(phProv As Double, ByVal pszContainer As LMBCS String, ByVal pszProvider As LMBCS String, ByVal dwProvType As Long, ByVal dwFlag As Long) As Long
Declare Private Function W64CryptCreateHash Lib "Advapi32" Alias "CryptCreateHash"(ByVal hProv As Double, ByVal Algid As Long, ByVal hKey As Double, ByVal dwFlag As Long, phHash As Double) As Long
Declare Private Function W64CryptHashData Lib "Advapi32" Alias "CryptHashData"(ByVal hHash As Double, ByVal addr_data As Long, ByVal dwSize As Long, ByVal dwFlag As Long) As Long
Declare Private Function W64CryptGetHashParam Lib "Advapi32" Alias "CryptGetHashParam"(ByVal hHash As Double, ByVal dwParam As Long, buffer As Long, dwSize As Long, ByVal dwFlag As Long) As Long
Declare Private Function W64CryptDestroyHash Lib "Advapi32" Alias "CryptDestroyHash"(ByVal hHash As Double) As Long
Declare Private Function W64CryptReleaseContext Lib "Advapi32" Alias "CryptReleaseContext"(ByVal hProv As Double, ByVal dwFlags As Long) As Long

Хотя может быть я просто для x64 неправильно задекларировал...

 

Норм)

Эти:

Declare Private Function W32CryptAcquireContext Lib "Advapi32" Alias "CryptAcquireContextA"(phProv As Long, Byval pszContainer As Lmbcs String, Byval pszProvider As Lmbcs String, Byval dwProvType As Long, Byval dwFlag As Long) As Long
Declare Private Function W32CryptCreateHash Lib "Advapi32" Alias "CryptCreateHash"(Byval hProv As Long, Byval Algid As Long, Byval hKey As Long, Byval dwFlag As Long, phHash As Long) As Long
Declare Private Function W32CryptHashData Lib "Advapi32" Alias "CryptHashData"(Byval hHash As Long, Byval addr_data As Long, Byval dwSize As Long, Byval dwFlag As Long) As Long
Declare Private Function W32CryptGetHashParam Lib "Advapi32" Alias "CryptGetHashParam"(Byval hHash As Long, Byval dwParam As Long, buffer As Long, dwSize As Long, Byval dwFlag As Long) As Long
Declare Private Function W32CryptDestroyHash Lib "Advapi32" Alias "CryptDestroyHash"(Byval hHash As Long) As Long
Declare Private Function W32CryptReleaseContext Lib "Advapi32" Alias "CryptReleaseContext"(Byval hProv As Long, Byval dwFlags As Long) As Long

Declare Private Function W64CryptAcquireContext Lib "Advapi32" Alias "CryptAcquireContextA"(phProv As Double, ByVal pszContainer As LMBCS String, ByVal pszProvider As LMBCS String, ByVal dwProvType As Long, ByVal dwFlag As Long) As Long
Declare Private Function W64CryptCreateHash Lib "Advapi32" Alias "CryptCreateHash"(ByVal hProv As Double, ByVal Algid As Long, ByVal hKey As Double, ByVal dwFlag As Long, phHash As Double) As Long
Declare Private Function W64CryptHashData Lib "Advapi32" Alias "CryptHashData"(ByVal hHash As Double, ByVal addr_data As Long, ByVal dwSize As Long, ByVal dwFlag As Long) As Long
Declare Private Function W64CryptGetHashParam Lib "Advapi32" Alias "CryptGetHashParam"(ByVal hHash As Double, ByVal dwParam As Long, buffer As Long, dwSize As Long, ByVal dwFlag As Long) As Long
Declare Private Function W64CryptDestroyHash Lib "Advapi32" Alias "CryptDestroyHash"(ByVal hHash As Double) As Long
Declare Private Function W64CryptReleaseContext Lib "Advapi32" Alias "CryptReleaseContext"(ByVal hProv As Double, ByVal dwFlags As Long) As Long

Хотя может быть я просто для x64 неправильно задекларировал...

навскидку - java crypto API
сделать раперы и пустышки для совместимости по вызовам
по наполнению ЕМНИП у МС достаточно старые/известные алгоритмы были, т.е. не должны быть сильно оригинальными
но вот детали реализации (результат) - это надо сравнивать...
вот напоминающий запрос

Need an example - decrypting string in Java using Microsoft Crypto API

First and foremost, I am not a Java programmer. I'm looking for an example solution to this problem because the Java developer I have does not have much experience working with encryption. Everyt...

stackoverflow.com

по джава типа

Криптография в Java

Привет, Хабр! Представляю вашему вниманию перевод статьи "Java Cryptography" автора Jakob Jenkov. Данная публикация является переводом первой статьи Java Cryptography из серии статей для начинающих,...

habr.com

 

Т е при LS64BITCCALLOUTPointerSupport=1 + doble указатели ф-ция NSFGetServerStats умирает на win сервере?

LS64BITCCALLOUTPointerSupport? У нас 9.0.1 FP8, чего-то такого не помню.

 

LS64BITCCALLOUTPointerSupport с какой версии? У нас 9.0.1 FP8, чего-то такого не помню. У нас сервера только на винде.

c 9.0 и 853fp3 , параметр не был описан особо, можно было только от техподдержки получить.
Nash писал в 2014 году, https://www.nashcom.de/nsh/web.nsf/...4a81e9f2c2b00c1256cc30030c6c1/$FILE/bp102.pdf
36-й слайд, там же , ранее по документу есть упоминание, что раз адресация стала 64 бита, то все указатели при вызове из LS должны быть заменены с long на double для x64.
Но так как клиент остался до сих пор x86 и могут быть сервера x86 , то необходимо иметь два набора кода, для разных версий.

 

@savl
Я не парился по поводу этого параметра. Не знаю, зачем он нужен. У нас смешанная среда - серваки все на 9.0.1 FP8 x64, а клиенты большая часть на 8.5.3 FP6 и некоторые на 9.0.1 FP8, - всё работает норм и без этого параметра.

> все указатели при вызове из LS должны быть заменены с long на double для x64
Некоторые указатели я конечно заменил, но далеко не все, а лишь небольшую часть. Может с параметром и надо менять "все", не знаю. Где заменил, а где код переписал на чистый LS. Работает - и ладно.

 

LS64BITCCALLOUTPointerSupport? У нас 9.0.1 FP8, чего-то такого не помню. У нас сервера только на винде.

На линукс с пользой заюзал

domino & monitoring & zabbix & jmx - Codeby.net | Lotusnotes

Доброго времени. Хотел бы предложить уважаемой публике свои изыскания на предмет сабжа. Исходные данные: 1) You must be registered for see element. 2) You must be registered for see element. 3) You must be registered for see element. 4) Немного теории You must be registered for see element. 5)...

codeby.net