Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как передать строку WideString другой прогрмме 
:(
    Опции темы
artful
Дата 18.10.2008, 17:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 17.9.2007

Репутация: нет
Всего: нет
Подскажите как передать строку типа WideString другой программепри помощи SendMessage
вот что я делаю...


программа отправляющая строку

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  type TFileMsg=record
    Op:byte;
    ipd:Cardinal;
    From_F:PWideChar;
    to_F:PWideChar;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure SendMsg(msg:TFileMsg);
var
  wnd: HWND;
  ms:TCopyDataStruct;
begin
   wnd := FindWindow('Ttest31337',nil);
  if wnd <> 0 then begin
  ms.cbData:=sizeof(TFileMsg);
  ms.lpData:=@msg;
  SendMessage(wnd, WM_COPYDATA, 0, Integer(@ms));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var msg:TFileMsg;
a,b:WideString;

begin
a:='test';
b:='artful';
  msg.Op:=1;
  msg.From_F:=Addr(a[1]);
  msg.to_F:=Addr(b[1]);
  SendMsg(msg);
end;

end.


программа получающая соощение

Код


unit Unit1;

interface

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

  type
  Ttest = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
   procedure CopyData(var Msg:TWMCopyData); message WM_COPYDATA;
  public
    { Public declarations }
  end;

  type TFileMsg=record
    Op:byte;
    ipd:Cardinal;
    From_F:PWideChar;
    to_F:PWideChar;
  end;


var
  test: Ttest;

implementation

{$R *.dfm}
procedure Ttest.CopyData(var Msg:TWMCopyData);
var t:TFileMsg;
a:WideString;
begin
    move(pointer(Msg.CopyDataStruct.lpData)^, t, Msg.CopyDataStruct.cbData);
     a:=t.From_F;
     showmessage(a);

end;


end.


Обясните как правельно это реализовать...
PM MAIL ICQ   Вверх
Christoph
Дата 18.10.2008, 18:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 1
Всего: 11
А обязательно описывать свою структуру сообщения?
Там помоему есть сообщение WM_GETTEXT

Код

var
  Buffer: PChar;
begin
   Buffer := GetMemory(1000);
   SendMessage(Handle, WM_GETTEXT, 1000, Integer(Buffer));
 


Вот в буфере и будет у тебя это строка , а как считать текст из памяти..не знаю smile


Это сообщение отредактировал(а) Christoph - 18.10.2008, 18:25


--------------------
user posted image
PM MAIL ICQ   Вверх
artful
Дата 18.10.2008, 22:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 17.9.2007

Репутация: нет
Всего: нет
увы но описовать свою структуру просто необходимо...
PM MAIL ICQ   Вверх
MetalFan
Дата 19.10.2008, 09:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
Цитата(artful @  18.10.2008,  17:15 Найти цитируемый пост)
  type TFileMsg=record
    Op:byte;
    ipd:Cardinal;
    From_F:PWideChar;
    to_F:PWideChar;

ты в записи описал УКАЗАТЕЛИ на строки. в АП другого процесса эти указатели никакой смысловой нагрузки не несут


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
artful
Дата 19.10.2008, 15:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 17.9.2007

Репутация: нет
Всего: нет
как тогда передать строку в другое адресное пространство... ???
PM MAIL ICQ   Вверх
MetalFan
Дата 19.10.2008, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
как последовательность байт


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
artful
Дата 19.10.2008, 18:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 17.9.2007

Репутация: нет
Всего: нет
ну чтож.. буду эксперементировать.. потом если что спрошу более конкретно.. =) большое спосибо !
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0490 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.