OFF: Delphi, передача строки между приложениями #429624

отправляю: --------------------------------------------------- var  MemHnd : HWND;  AText: PChar; begin .... .... ....        AText := 'Vasi';        SendMessage(HWND_BROADCAST, WM_OURMESSAGE, Length(AText) * SizeOf(Char), LParam(@AText));        sleep; .... .... ---------------------------------------------- принимаю: ----------------------------------------------- procedure TSDIAppForm.DefaultHandler(var Message); var   FilenameForOpening: string;   s: string; begin   with TMessage(Message) do   begin      if (Msg = WM_OURMESSAGE) then        begin              SetLength(FilenameForOpening, WParam div SizeOf(Char));              p := Ptr(LParam);              Move(PChar(p^), PChar(FilenameForOpening)^, WParam);              s := FilenameForOpening; // вот тут "#0#0#0#0" ?????              s := s + ' ';        end .... .... .... initialization   WM_OURMESSAGE := RegisterWindowMessage('Add_1c+_Server_block'); ------------------------------------------------- туплю уже давно, все примеры из инета перепробовал, нифига не переносит... может дело в типе мессаге? может пользовательские так не работают?

Ну и как ты обратишься к Чужому адресу???

ППЦ

Адресация то разная.

почитай я и сам понимаю проблемму, но не понимаю как у НИХ работает?

LParam(@AText) - адрес (числом, например $FC01FC01) в 1-ом приложении p := Ptr(LParam);  - адрес (числом, например $FC01FC01) во втором приложении

У них - WCopyData - спец сообщение Винды.

WM_COPYDATA захелпь в Win SDK

GlobalAddAtom попробуй

Ты здесь вообще? Чего ты там такого глобального строгаешь?

строгаю сервер административного запрета запуска 1с

ну дак ты делай как там, а не как сам придумал :))) намёк CDS:TCopyDataStruct

Да вы программист (типа - ответ есть, он верен, но абсолютно не понятен). :-)

Хммм... А расскажи принцип действия!

здесь всё написано

я только для своего собственого стартАпа, сервер будет создавать определенный файл в каталоге с базой и держать на нем блокировку, а стартап не будет давать запустить если такая ситуевина

просто он вместо адреса структуры передает адрес строки

О, ясно! А контроль за запуском через хук?

вот к этому приделываю

обычно для межпроцессового обмена используют отображение файла в память

Ага. А еще можно UDP/TCP заюзать. Нафиг этот изврат? MS дала инструмент WM_COPYDATA, так что его не пользовать то?

Еще одна защита?

А чего там за прикол - "в связи с борьбой за лицензионную чистоту"?

В аську!

да нету тут секретов, просто есть некоторые споры, что лезть в процессы 1с нельзя (и тот же 1с++ попадает под эти заморочки), то я не юзаю ничего, что можно расценить как декомпеляция, внедрение кода и т.д.

На самом деле можно использовать ClipBoard или просто глобальную память. hGlobal=GlobalAlloc(GPTR,Размер); Pointer=GlobalLock(hGlobal); CopyMemory(Pointer,НашУказатель,Размер); GlobalUnLock(Pointer); SendMessage(ДругоеПриложение,WM_USER,Размер,(LPARAM)hGlobal); В другом приложении: Pointer=GlobalLock(lParam); CopyMemory(НовоеМесто,Pointer,wParam); GlobalUnLock(Pointer); GlobalFree(lParam); Где-то так.

А я через NamedPipes