Передача строки exe (с формой (API)) ↔ exe (форма скрыта)

[Alex Cones]

Сначала запускай test2 и жми создать,

Был обруган по матери брандмауэром.

Открыл Project1 и меня теперь послал Дельфи, заявив, что "Class TClientSocked not found... Ignore/Cancel/IgnoreAll"
Аналогично пример 2, но теперь уже сам сервер.
Но за пример все-равно спасибо.

[russian-stalker]

Надо установить сокеты
Для этого есть в папке bin: dclsockets70.bpl

[0nni]

А чем WM_COPYDATA не устраивает?

[Alex Cones]

??? А поподробней?

[0nni]

Сервер

program serv;

{$APPTYPE CONSOLE}

uses
  Windows,
  Messages;

var
  ClientWindow : HWND;
  str : String;
  CopyData : TCopyDataStruct;
begin
  ClientWindow := FindWindow('TmyClientWindow', 'myClientWindow');
  if ClientWindow = 0 then exit;
  while str <> 'exit' do
  begin
    ReadLn(str);
    str := Str + #0;
    CopyData.cbData := length(str) * SizeOf(char);//размер копируемых данных
    CopyData.dwData := 0;//Если нужно передавать больше 4гб
    CopyData.lpData := Pchar(str);//указатель на копируемые данныеы
    SendMessage(ClientWindow, WM_COPYDATA, 0, Integer(@CopyData));//посылаем окну (обязательно через SendMessage)
  end;
end.

Клиент

unit clMain;

interface

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

type
  TmyClientWindow = class(TForm)
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure WMCopyData(var msg : TWMCopyData); message WM_COPYDATA;
  end;

var
  myClientWindow: TmyClientWindow;

implementation

{$R *.dfm}

procedure TmyClientWindow.WMCopyData(var msg: TWMCopyData);
var
  PStr : Pointer;
begin
  //Получаем ту же структуру что и послали
  pStr := msg.CopyDataStruct^.lpData;
  //Можно скопировать данные заня их размер и указатель
  //Но для строки можно и так
  Memo1.Lines.Add(PChar(PStr));
end;

end.

[0nni]

Сервер

program serv;

{$APPTYPE CONSOLE}

uses
  Windows,
  Messages;

var
  ClientWindow : HWND;
  str : String;
  CopyData : TCopyDataStruct;
begin
  ClientWindow := FindWindow('TmyClientWindow', 'myClientWindow');
  if ClientWindow = 0 then exit;
  while str <> 'exit' do
  begin
    ReadLn(str);
    str := Str + #0;
    CopyData.cbData := length(str) * SizeOf(char);//размер копируемых данных
    CopyData.dwData := 0;//Если нужно передавать больше 4гб
    CopyData.lpData := Pchar(str);//указатель на копируемые данныеы
    SendMessage(ClientWindow, WM_COPYDATA, 0, Integer(@CopyData));//посылаем окну (обязательно через SendMessage)
  end;
end.

Клиент

unit clMain;

interface

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

type
  TmyClientWindow = class(TForm)
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure WMCopyData(var msg : TWMCopyData); message WM_COPYDATA;
  end;

var
  myClientWindow: TmyClientWindow;

implementation

{$R *.dfm}

procedure TmyClientWindow.WMCopyData(var msg: TWMCopyData);
var
  PStr : Pointer;
begin
  //Получаем ту же структуру что и послали
  pStr := msg.CopyDataStruct^.lpData;
  //Можно скопировать данные заня их размер и указатель
  //Но для строки можно и так
  Memo1.Lines.Add(PChar(PStr));
end;

end.

[Alex Cones]

Благодарю, буду сидеть, разбираться.