SendMessage и обработка сообщения

[fack00]

собственно отправляю своему приложению сообщение так:

var s:string;
...
s:='123asdxZZZ';
SendMessage(wda, WM_Mysetlinkmessage, 0, Integer(PChar(s)));

при приеме обрабатываю так:

sMemo5.lines.add(pchar(Message.lParam));

все работает верно, но если

строку
s:='123asdxZZZ';
заменить на
s:=paramstr(0);

то в Memo добавляется пустая строка. Как исправить?

[Stilet]

Специально не поленился проверить:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const   WM_Mysetlinkmessage=WM_USER+1;

type
  TForm1 = class(TForm)
    Button1: TButton;
    sMemo5: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure w(var m:TMessage); message WM_Mysetlinkmessage;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:=ParamStr(0);
SendMessage(Handle, WM_Mysetlinkmessage, 0, Integer(PChar(s)));

end;

procedure TForm1.w(var m: TMessage);
begin

sMemo5.lines.add(pchar(M.lParam));

end;

end.

Все работает, как и предполагается.
Где-то ты накосячил в другом месте.

paramstr(0)<>0

Улыбнуло )

[fack00]

Stilet, создал новый проект и да, все работает (по вашему коду).

В моей же программе текст передается не самому себе, а другой копии программы..
ЗЫ
paramstr(0)<>0
ошибочка)

[Пепел Феникса]

дык естественно, вы в курсе про раздельное адресное пространство?
с этого и надо было начинать.
используйте WM_COPYDATA

[fack00]

Пепел Феникса,
в курсе.
только почему один текст передается, а другой нет?

к примеру:
пусть paramstr(0)='C:\123.exe'
и s:='C:\123.exe';
так первое отправит, а второе нет..

я хочу вариант без буфера обмена..

[Пепел Феникса]

а приложение одно и тоже?
думаю да, просто совпал адрес константы.(а второе переменная и адрес не совпадет, да и не с чем)

я хочу вариант без буфера обмена..

я про него говорил?

[fack00]

Пепел Феникса, да. Налаживаю работу нескольких копий..)
про совпадение констант не понял..

Stilet, создал новый проект и да, все работает (по вашему коду).

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

[Пепел Феникса]

текстовая константа(как и любая другая, но там хитрости бывают) хранится внутри процесса всегда, и внутри копий одного и того же процесса имеют одинаковый адрес, вспомните историю Ирония Любви или с легким паром. почти тоже самое.

а если переменная, а не константа(то что вы присвоили константу-строку переменной строке не считается, до тех пор пока переменная не изменена), а Paramstr всегда вернет переменную, то это получается, что приперлись в чужой дом, по определенному адресу(вы его передаете сами), ломитесь, и в итоге конечно остаетесь ни с чем(а то и с AV).

надеюсь объяснил.

[fack00]

Пепел Феникса,
если я правильно понял:
это не текстовая константа, а числовая и т.к.

const WM_Mysetlinkmessage=WM_USER+1;

WM_USER не меняется, т.к. копии идентичны

Paramstr(0) - путь до exe копии программы и он может быть у каждой копии своей. (тип-строка)
я же передаю эту строку, как текст, а не запускаю или что-то еще..

в заключение, все должно работать, как часы. Но в силу каких-то невомых мне сил - don`t work!

[Пепел Феникса]

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

пусть наша константа имеет адрес X(он постоянен).
тогда в случае передачи адреса X, получаем
П1(процесс1)->X="bla"
П2(процесс2)->X="bla"
все ОК.

теперь пусть ParamSTR(0) в П1 нам вернул строку, её адрес Y(каждый раз разный).
передаем адрес Y, получаем
П1->Y="C:/MyExe.exe"
П2->Y=Фига с маслом

ибо П2 и знать не знает о том что же лежало по адресу Y у П1.
поэтому я и советую применить сообщение WM_COPYDATA, которое за нас копирует данные из П1 в П2.(почитайте про него, не мало написано)

const WM_Mysetlinkmessage=WM_USER+1;

про идентификатор сообщения я вообще не говорил.

Но в силу каких-то невомых мне сил - don`t work!

я уже объяснил причину.
напомню что SendMessage принимает два Integer параметра, а не строки.