Обмен данными между двуми программами

[JRK_DV]

Здраствуйте! Немогли бы вы помочь со следующей проблемой?

Состав:
есть две программы (п1 и п2) и у каждой есть компонент ListBox (лб1 и лб2)

Необходимо:
Реализовать односторонний обмен данными из лб1 в лб2
Реализовать Отправку/Приём данных из лб2 на HTTP сервер

Условие:
п1 останавливать, закрывать и т.д. нельзя
п1 редактировать нельзя
п1 неможет сохранять в файл и отправлять по сети данные из лб1

Заранее спасибо.

[mihali4]

Пример из "агрегата" в моей подписи:

Как передать строку другому приложению

Отправитель передает:

procedure TFormXXX.Button1Click(Sender: TObject);
var
cd : TCopyDataStruct;
begin
cd.cbData := Length(Edit1.Text)+1;
cd.lpData := PChar(Edit1.Text);
SendMessage ( FindWindow('TFormReceive', nil), WM_COPYDATA, 0, LParam(@cd));
end;

Получатель принимает:

procedure ReceiveMessage (var Msg: TMessage); message WM_COPYDATA;
..
procedure TFormReceive.ReceiveMessage;
var
  pcd : PCopyDataStruct;
begin
  pcd := PCopyDataStruct(Msg.LParam);
  Caption := PChar(pcd.lpData);
end;

Дорабатывайте под свои нужды...

[JRK_DV]

p.s. Приветствуются примеры на следующих языках:
си, дельфин, асма, php

[JRK_DV]

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

Пример из "агрегата" в моей подписи:
[CODE]Как передать строку другому приложению

Отправитель передает:

procedure TFormXXX.Button1Click(Sender: TObject);
var
cd : TCopyDataStruct;
begin
cd.cbData := Length(Edit1.Text)+1;
cd.lpData := PChar(Edit1.Text);
SendMessage ( FindWindow('TFormReceive', nil), WM_COPYDATA, 0, LParam(@cd));
end;
...

Программу п1 нельзя редактировать. в ней нериализованны какие либо отправки данных другим программам.

Пример...
п1 получила список клиентов и сохранила в лб1. При запуске п2 нужно вытащить эти данные (из лб1)

p.s. п1 получает данные через интеренет

[mihali4]

Тогда еще проще, поскольку раз сто на форуме описывалось:
- п.2 ищет окно п.1
- п.2 ищет в п.1 нужный лб и читает из него...

[JRK_DV]

mihali4, спасибо, помог объяснить процесс...
Для полного щастья приведи функцию чтения из лб1 в лб2...

А что на счёт обмена данных с HTTP сервером?
повторюсь... Нужно из лб2 (полученных от лб1) отправить GET запрос HTTP серверу и получить от него "сайт" (страничку)... далее в этой страничке найти определённое слово
Поиск не нужен, до него сам додумаюсь... это так, к дополнению примера приведенно.

p.s. Напишу о тебе в програмфмке, в раздел благодарностей =)

[mihali4]

отправить GET запрос HTTP серверу и получить от него "сайт" (страничку)... далее в этой страничке найти определённое слово

Придется вновь повториться:
раз сто на форуме описывалось - в разделе работы с сетями. Даже формулировки вопросов похожие.
До того похожие, что Квэнди иногда "звереет" и с ходу закрывает такие темы (в чем я с ним очень даже солидарен)