Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
Топик располагается на нескольких страницах: [1] 2 3   вперед  Ctrl      все
 SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 300
Отправляю сообщение из одного приложения в другое, если оба 32х битные, всё нормально, если оба 64, тоже без проблем. Если же разрядность разная - приходит хаотичный набор данных.
Ну и первый вопрос, можно ли включить возможность при компиляции 64 разрядных приложений останавливаться на Брекпоинтах? Делфи их просто игнорирует.
Второй вопрос, почему происходит ошибка передачи данных и как её избежать.

Посылаю посредствам:
Function TCoreShell.SendDataPipe  (SendHandle:THandle;var Data:TFluxPipe; nMessage:integer):Integer;
Begin
    CDS.dwData := nMessage;           // 
    CDS.cbData := SizeOf(Data); //тут достаточно большой массив данных в виде записи (думаю 10+мб)
    CDS.lpData := @Data;     //
    result := SendData (CDS,SendHandle);
End;

Function TCoreShell.SendData(const copyDataStruct: TCopyDataStruct; receiverHandle : THandle):integer ;
begin
  result := SendMessage(receiverHandle, WM_COPYDATA, Integer(Handle),   Integer(@copyDataStruct)) ;
end;

Принимаю:

procedure TForm_3DViewer.WMCopyData(var MessageData: TWMCopyData);
Var
 Data:integer;
begin 
  Data:=MessageData.CopyDataStruct.dwData;
...
  if Data=9 then    //нейтронные поля
  begin
    GetAFluxMessage (MessageData)
  end;

  if Data=10 then  //перемещение
...
end;

Procedure TForm_3DViewer.GetAFluxMessage (var MessageData: TWMCopyData);
var
 i,j,k:integer;
 FluxPipe: TFluxPipe;
Begin
    FluxPipe:= TFluxPipe(MessageData.CopyDataStruct.lpData^);
   ... много кода присвоения.   
End;
20 мар 20, 13:11    [22102902]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 49515

Андрей Игоревич
Integer(@copyDataStruct))

В 64-х разрядном приложении-то? Это называется "новичкам везёт".

Posted via ActualForum NNTP Server 1.5

20 мар 20, 13:24    [22102910]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 26442
Тут нужно понимать разницу между 32-битной ссылкой и 64-битной.
20 мар 20, 13:24    [22102912]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 300
Dimitry Sibiryakov

Андрей Игоревич
Integer(@copyDataStruct))

В 64-х разрядном приложении-то? Это называется "новичкам везёт".

Int64?
wadman
Тут нужно понимать разницу между 32-битной ссылкой и 64-битной.

Я понимал ссылку как номер байта с которого начинаются данные в памяти? Это не так?

Сообщение было отредактировано: 20 мар 20, 13:38
20 мар 20, 13:38    [22102924]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 300
...

Сообщение было отредактировано: 20 мар 20, 13:38
20 мар 20, 13:38    [22102926]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 26442
Андрей Игоревич
Я понимал ссылку как номер байта с которого начинаются данные в памяти? Это не так?

Разница в длине ссылки: 32 бита и 64. Отсюда и проблемы. Есть куча других вариантов передачи информации между приложениями. Пайпсы, файлы, сокеты и т.п.
20 мар 20, 13:51    [22102937]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 49515

wadman
Разница в длине ссылки: 32 бита и 64. Отсюда и проблемы.

Нет, проблемы не отсюда. Для WM_COPYDATA система честным образом копирует данные между
адресными пространствами и, естественно, она использует указатели правильного размера.
Проблема в том, что документацию не читают отдельно взятые личности.

https://docs.microsoft.com/en-us/windows/win32/dataxchg/wm-copydata

Posted via ActualForum NNTP Server 1.5

20 мар 20, 14:19    [22102959]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 49515

Андрей Игоревич
Int64?

Ты не поверишь, но четвёртый параметр у SendMessage() должен иметь тип LPARAM.

Posted via ActualForum NNTP Server 1.5

20 мар 20, 14:21    [22102960]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 300
wadman
Андрей Игоревич
Я понимал ссылку как номер байта с которого начинаются данные в памяти? Это не так?

Разница в длине ссылки: 32 бита и 64. Отсюда и проблемы. Есть куча других вариантов передачи информации между приложениями. Пайпсы, файлы, сокеты и т.п.

Файл слишком медленно. А какой способ не слишком сложный и позволяет быстро и разово передавать десятки мегабайт данных?
На вопрос зачем (очень уж часто его любят задавать), вот пример, каждое обновление - пересылка где-то 10 мб.
+
Картинка с другого сайта.



Dimitry Sibiryakov

Андрей Игоревич
Int64?

Ты не поверишь, но четвёртый параметр у SendMessage() должен иметь тип LPARAM.

Не понял
https://docs.microsoft.com/en-us/windows/win32/dataxchg/wm-copydata
A pointer to a COPYDATASTRUCT structure that contains the data to be passed.

Ну Int64? Или вы что-то другое хотите сказать? Во всех примерах используют Integer или LongInt, ну я как-то подзабыл, что он 32 бита. Ну и смена данного параметра ничего не изменила, данные приходят неверные.
Картинка с другого сайта.

Сообщение было отредактировано: 20 мар 20, 14:41
20 мар 20, 14:37    [22102975]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 300
Андрей Игоревич
Картинка с другого сайта.

Забавно, что если включить 32-битную платформу, уже не требует.

Картинка с другого сайта.
20 мар 20, 14:45    [22102983]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Kazantsev Alexey
Member

Откуда:
Сообщений: 4200
Андрей Игоревич,

NativeInt или, как уже сказали LPARAM/WPARAM.
20 мар 20, 14:48    [22102984]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
vavan
Member

Откуда: Казань
Сообщений: 3489
Андрей Игоревич
какой способ не слишком сложный и позволяет быстро и разово передавать десятки мегабайт данных?
не надо ничего передавать, если оба на одной машине. почитайте про mmf
20 мар 20, 14:51    [22102985]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Мимопроходящий
Member

Откуда: бурятский тундрюк, эсквайр
Сообщений: 31138

20.03.2020 14:51, vavan пишет:
> не надо ничего передавать, если оба на одной машине. почитайте про mmf

+100500
тем более, десятки мегабайт.

Posted via ActualForum NNTP Server 1.5

20 мар 20, 14:53    [22102989]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Kazantsev Alexey
Member

Откуда:
Сообщений: 4200
vavan
почитайте про mmf

А потом придумайте, как это синхронизировать. С мьютексами познакомитесь и всё такое
20 мар 20, 14:54    [22102990]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 300
Kazantsev Alexey
Андрей Игоревич,

NativeInt или, как уже сказали LPARAM/WPARAM.


  result := SendMessage(receiverHandle, WM_COPYDATA, WPARAM(Handle),
            LPARAM(@copyDataStruct)) ;


Вот такой код не работает. Точнее 32-32 и 64-64 работает, 32-64 нет.

И ещё вопрос, одно из приложений при компиляции под 64 крашит Делфи с ошибкой "Disconnect session".
20 мар 20, 14:55    [22102992]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Kazantsev Alexey
Member

Откуда:
Сообщений: 4200
Пример во вложении.

К сообщению приложен файл (wmcd.zip - 107Kb) cкачать
20 мар 20, 15:34    [22103026]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Kazantsev Alexey
Member

Откуда:
Сообщений: 4200
Андрей Игоревич
одно из приложений при компиляции под 64 крашит Делфи с ошибкой "Disconnect session"

Скорее всего дебаггер отваливается. Штош.
20 мар 20, 15:36    [22103028]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 300
Kazantsev Alexey
Пример во вложении.

Угу. Работает. Я, кажется, сообразил где у меня происходит рассинхрон.
SizeOf(Data);

в 32-битах равно 202440, а в 64 - 204432
Может ли в этих 8 байтах быть причина, и какая переменная меняет своё размер при смене разрядности?
Data, в этом случае, выглядит так:
TFluxInHeight = record
 InHeight: array [0..100] of Single;
end;

TFluxPipe = record   //передача сообщение в 3DViewer
 CutOff    :Extended;
 Time      :Extended;
 NFA       :Integer;
 NHeight   :Integer;
 InFA:     array [1..500] of TFluxInHeight;
 Height:   array [0..100] of Single;
end;


Сообщение было отредактировано: 20 мар 20, 16:36
20 мар 20, 16:35    [22103059]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 300
...

Сообщение было отредактировано: 20 мар 20, 16:36
20 мар 20, 16:35    [22103060]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 49515

https://stackoverflow.com/questions/5616418/getting-64-bit-data-in-wm-copydata-command-instead-of-expected-32-bit-dword

Posted via ActualForum NNTP Server 1.5

20 мар 20, 16:39    [22103065]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Kazantsev Alexey
Member

Откуда:
Сообщений: 4200
Андрей Игоревич,

packed record
...
end;
20 мар 20, 16:43    [22103067]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 300
Dimitry Sibiryakov

https://stackoverflow.com/questions/5616418/getting-64-bit-data-in-wm-copydata-command-instead-of-expected-32-bit-dword

Kazantsev Alexey
Андрей Игоревич,

packed record
...
end;

Применю, но вообще причина была в этих двух строчках

 CutOff    :Extended;
 Time      :Extended;

При смене их типа на Single - всё заработало и сообщения начали передаваться. Не знал что в 64-битах Extended меньше на 4 байта... Как-то и не задумывался в этом направлении искать.

Спасибо большое за помощь. Проблема побеждена.

Сообщение было отредактировано: 20 мар 20, 16:51
20 мар 20, 16:49    [22103073]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Kazantsev Alexey
Member

Откуда:
Сообщений: 4200
Андрей Игоревич,

Кстати да, Extended в 32 и 64 битах это разные типы. Используй Double вместо него.
20 мар 20, 16:51    [22103074]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
X-Cite
Member

Откуда: Минск
Сообщений: 1664
http://docwiki.embarcadero.com/RADStudio/Rio/en/Simple_Types_(Delphi)
20 мар 20, 22:06    [22103316]     Ответить | Цитировать Сообщить модератору
 Re: SendMessage и WM_COPYDATA между 32 и 64 разрядными приложениями.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 300
X-Cite
http://docwiki.embarcadero.com/RADStudio/Rio/en/Simple_Types_(Delphi)

Ясно-понятно. Могли бы и сделать разные названия для этого, типа Extended64, NativeInt64,... Ведь Int64 же сделали.
20 мар 20, 22:14    [22103323]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: [1] 2 3   вперед  Ctrl      все
Все форумы / Delphi Ответить