Как записать данные в другую программу?

[Спартак]

Сообщение от mihali4

А когда она должна взять эти данные? Когда в эдите будет нажат энтер? Или она все время должна отслеживать изменения в эдите? Если так - сделайте "взять данные" по таймеру или по событию изменения содержимого эдита...

именно по таймеру... каждые n секунд должно проверяться содержимое Edit-а. С такой проблемой я даже не сталкивался... вот и ищу... только пока толку мало

[mihali4]

С такой проблемой я даже не сталкивался... вот и ищу... только пока толку мало

А в чем проблема-то? Я лично "никакой проблемы на горизонте не наблюдаю"
Все функции, которые вам нужно использовать, вам привели...
Попробую резюмировать. Итак, ваша вторая программа:
1. По событию таймера ищет вашу первую.
2. Определив ее хэндл, ищет среди ее дочерних окон нужный эдит (его хэндл).
3. Берет из него текст и дальше делает то, что вы там задумали, вплоть до обратной пересылки текста в первую программу. Только для этого случая единственное, что нужно сделать в первой программе - предусмотреть обработку стандартного виндового сообщения...

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

[Спартак]

Сообщение от mihali4

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

впадание в уныние, а тем более паники за мной не наблюдается я смотрел темы форума... то, что я нашел - это поиск Edit-а по содержимому... а мне хотелось бы по имени ибо содержимое этого самого Edit-а может неоднократно меняться. Тем более, у меня несколько Edit-ов и как минимум в двух из них текст будет одинаковым

[mihali4]

поиск Edit-а по содержимому... а мне хотелось бы по имени

Вы хотя бы ознакомились с функциями FindWindow и FindWindowEx ?
Похоже, что и не пытались... К сожалению...
Поймите, никто не собирается бросать все свои дела и делать вам программу...

[Спартак]

Сообщение от mihali4

Вы хотя бы ознакомились с функциями FindWindow и FindWindowEx ?
Похоже, что и не пытались... К сожалению...
Поймите, никто не собирается бросать все свои дела и делать вам программу...

Я не прошу, чтобы делали за меня. Естественно я сам пытаюсь разобраться в этом вопросе. Вот до чего дошел:

uses
  SysUtils, Classes, Windows;
var
  h, h1: HWND;
  s : array[1..255] of char;
begin
  h := FindWindow(nil, 'Ýòî ïðîáíàÿ ôîðìà');
  writeln('h = ', h);
  h1 := FindWindowEx(h, 0, 'TEdit', nil);
  writeln(h1);
  writeln(GetWindowText(h1, @s, 255));
  writeln(s);
  readln;
end.

На форме 2-го приложения 2 Edit-a.
Проблема в том, что в s записывается текст 2-го Edit-а, причем если этот текст меняется, то в s записывается старый текст

[B_N]

1-ое приложение.

unit Unit1;

interface

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

type
  TMyForm = class(TForm)
    Edit1: TEdit;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    cColon : char;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MyForm: TMyForm;

implementation

{$R *.dfm}

procedure TMyForm.Timer1Timer(Sender: TObject);
var
    hr, mn, sec, msec : word;
begin
    DecodeTime(Now, hr, mn, sec, msec);
    if cColon <> ':' then cColon := ':' else cColon := ' ';
    self.Edit1.Text := format('%2.2d %s %2.2d %s %2.2d',
                                    [hr, cColon, mn, cColon, sec]);
end;

procedure TMyForm.FormCreate(Sender: TObject);
begin
    cColon := ' ';
    SetWindowLong(Edit1.Handle, GWL_ID, 1024);
    Timer1.Interval := 500;
end;

end.

2-ое приложение.

unit Unit2;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
    hRemoteForm : HWND;
    hRemoteEdit : HWND;
    str         : string[255];
begin
    hRemoteForm := windows.FindWindowA(
                                PANSICHAR('TMyForm'),
                                PANSICHAR('MyForm'));
    hRemoteEdit := windows.GetDlgItem(hRemoteForm, 1024);
    str[0] := chr(SendMessageA(hRemoteEdit, WM_GETTEXT, 255, LPARAM(@str[1])));
    Label1.Caption := str;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    Timer1.Interval := 100;
end;

end.

[Спартак]

2 B_N
спасибо! с SendMessage я уже разобрался и все работает. мне интересно, почему GetWindowText берет только начальный вариант текста

[mihali4]

Потому что существует какое-то дурацкое ограничение:

This function cannot retrieve the text of an edit control in another application.

[Спартак]

Сообщение от mihali4

Потому что существует какое-то дурацкое ограничение:

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

[mihali4]

своего компа под рукой нет... хелпа тоже

Это из хэлпа по GetWindowText...