Фрагмент кода перенести / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Фрагмент кода перенести

5 сообщений из 5, страница 1 из 1

Фрагмент кода перенести

#39666105

patrick1968

Участник

Сообщения: 541

Рейтинг: 0 / 0

Добрый день. Помогите, пожалуйста, с переводом кода на Delphi
такой вот фрагмент на VFP

lcStringToSend=Strconv(lcstr + Chr(0), 5)
lnPtrStringToSend = WinAPI_HeapAlloc(WinAPI_GetProcessHeap(), 0, Lenc(lcStringToSend))
Sys(2600, lnPtrStringToSend,Lenc(lcStringToSend), lcStringToSend) && Copy value to memory
Local lcCOPYDATASTRUCT As String
lcCOPYDATASTRUCT = ;
BINTOC(ID_DATA, "4RS") ; && ULONG_PTR dwData
+ BinToC(Lenc(lcStringToSend), "4RS") ; && DWORD cbData
+ BinToC(lnPtrStringToSend, "4RS") && PVOID lpData

...

Рейтинг:

0 / 0

26.06.2018, 16:12

| Ответить | Цитировать | Написать

Фрагмент кода перенести

#39666289

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Дельфи не знаю, подписал комментарии что каждая строка делает

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.

lcStringToSend=Strconv(lcstr + Chr(0), 5) && перевод lcstr в юникод (UTF-16)
lnPtrStringToSend = WinAPI_HeapAlloc(WinAPI_GetProcessHeap(), 0, Lenc(lcStringToSend)) && Выделение памяти 
Sys(2600, lnPtrStringToSend,Lenc(lcStringToSend), lcStringToSend) && Копирование lcStringToSend в lnPtrStringToSend 
Local lcCOPYDATASTRUCT As String
lcCOPYDATASTRUCT = ; && заполнение структуры из 3-х полей 
                BINTOC(ID_DATA, "4RS") ;                                  && ULONG_PTR dwData
+ BinToC(Lenc(lcStringToSend), "4RS") ;                              && DWORD cbData
+ BinToC(lnPtrStringToSend, "4RS")                                      && PVOID lpData

...

Рейтинг:

0 / 0

27.06.2018, 07:36

| Ответить | Цитировать | Написать

Фрагмент кода перенести

#39666324

patrick1968

Участник

Сообщения: 541

Рейтинг: 0 / 0

Спасибо за комментарий, я примерно представляю, что каждый оператор делает, но вот со структурами проблемно, хотелось бы точнее понять

...

Рейтинг:

0 / 0

27.06.2018, 09:13

| Ответить | Цитировать | Написать

Фрагмент кода перенести

#39666327

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

В фоксе нет структур, поэтому приходится извращаться через строки.
Это запись три целых числа по 4 байта, т.е. просто 12-байтная последовательность

Код: plaintext

1.
2.
3.
4.

lcCOPYDATASTRUCT = ; && заполнение структуры из 3-х полей 
                BINTOC(ID_DATA, "4RS") ;                                  && ULONG_PTR dwData
+ BinToC(Lenc(lcStringToSend), "4RS") ;                              && DWORD cbData
+ BinToC(lnPtrStringToSend, "4RS")                                      && PVOID lpData

на С++ будет примерно так выглядеть

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

struct my_struct {
   ULONG_PTR dwData;
   DWORD cbData;
   PVOID lpData;
}
...

my_struct ms;
ms.dwData = ID_DATA;
ms.cbData = Lenc(lcStringToSend);
ms.lpData = lnPtrStringToSend;

...

Рейтинг:

0 / 0

27.06.2018, 09:21

| Ответить | Цитировать | Написать

Фрагмент кода перенести

#39666329

Sergey Sizov

Участник

Сообщения: 1 524

Рейтинг: 0 / 0

Dima T[/src]
на С++ будет примерно так выглядеть

Код: plaintext

1.
2.
3.
4.
5.
6.

struct my_struct {
   ULONG_PTR dwData;
   DWORD cbData;
   PVOID lpData;
}
...

А на Pascal и его производных

Код: pascal

Record ...

...

Рейтинг:

0 / 0

27.06.2018, 09:23

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Фрагмент кода перенести

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&fpage=10&tid=1581782]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	54ms
get topic data:	13ms
get forum data:	3ms
get page messages:	48ms
get tp. blocked users:	2ms
others:	275ms

total:	426ms