[zx230]

*ошибся в заголовке

Мне нужно создать связь между программами(!).

То есть одна программа должна предоставить другой - изображение (генерируется с интервалом 1 сек).
Как это лучше сделать?
(я думал писать изображение на диск в файл, а другая просто его скачивать. Но проблема в том что нет события конца записи на диск.)

[poli-smen]

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

*ошибся в заголовке

Мне нужно создать связь между программами(!).

То есть одна программа должна предоставить другой - изображение (генерируется с интервалом 1 сек).
Как это лучше сделать?
(я думал писать изображение на диск в файл, а другая просто его скачивать. Но проблема в том что нет события конца записи на диск.)

Если у этих программ есть окна, то проще всего наверно с помощью сообщения WM_COPYDATA.

[zx230]

программы будут на разных языках, и работать на разных компах.
первая на делфи(которая будет отправлять изображения)
я думал сделать http сервер(делфи) и вторая просто скачивать изображение когда оно сохраниться, но походу тут трудности..

[wendstor]

Также можно и через буфер, socket (если на разных машинах).

[wendstor]

Обе программы на INDY. Первая клиент вторая сервер вот и всё, если в локалке то можно вообще использовать udp.

[poli-smen]

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

программы будут на разных языках, и работать на разных компах.
первая на делфи(которая будет отправлять изображения)
я думал сделать http сервер(делфи) и вторая просто скачивать изображение когда оно сохраниться, но походу тут трудности..

Если программы на разных компах, то конечно WM_COPYDATA не пойдёт. Нужно использовать более сложные способы, например "Именованные трубы" (Named Pipes).
А в чём трудности при скачивании по http?

[angvelem]

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

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

Почему же нет - Flush. Гарантировано делает запись, затем послать сообщение второй программе.

[NumLock]

CreateRemoteComObject

[M.A.D.M.A.N.]

Можно через сообщения, через майлслоты, атомы, расшаренную память, можно у удаленного процесса вызвать метод класса. Я бы через вызов удаленной процедуры сделал и выдергивание картинки прямо из памяти процесса отправителя.

[zx230]

спасибо за ответы. осталось только разобраться, что это все из перечисленного )

[zx230]

в продолжении темы. новый вопрос:

У меня есть компонент IdHTTPServer.
При запросе IdHTTPServer1CommandGet я отправляю с диска изображение:
IdHTTPServer1.ServeFile(AThread, AResponseInfo, ProgramPath+'\1.bmp');

А можно ли как то отправить изображение прямо из компонента image?

[iks]

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

в продолжении темы. новый вопрос:

У меня есть компонент IdHTTPServer.
При запросе IdHTTPServer1CommandGet я отправляю с диска изображение:
IdHTTPServer1.ServeFile(AThread, AResponseInfo, ProgramPath+'\1.bmp');

А можно ли как то отправить изображение прямо из компонента image?

в данный момент столкнулся с этим и меня, тоже, заинтересовал этот вопрос...

[poli-smen]

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

в продолжении темы. новый вопрос:

У меня есть компонент IdHTTPServer.
При запросе IdHTTPServer1CommandGet я отправляю с диска изображение:
IdHTTPServer1.ServeFile(AThread, AResponseInfo, ProgramPath+'\1.bmp');

А можно ли как то отправить изображение прямо из компонента image?

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

в данный момент столкнулся с этим и меня, тоже, заинтересовал этот вопрос...

Вот так можно отправить изображение прямо из TImage:

Код:

procedure TForm1.IdHTTPServer1CommandGet(Thread: TIdPeerThread;
  RequestInfo: TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo);
var
  sl: TStringList;
  gc: TGraphicClass;
  ext: String;
begin
.....
  if AnsiSameText(RequestInfo.Document, '/image1') then
  begin
    gc := TGraphicClass(Image1.Picture.Graphic.ClassType); // Получаем класс графического объекта в Image1
    ext := '.'+GraphicExtension(gc); // По этому классу определяем расширение файлов этого типа
    ResponseInfo.ContentType := IdHTTPServer1.MIMETable.GetFileMIMEType(ext); // По расширению получаем строку "Content-Type"
    ResponseInfo.ContentStream := TMemoryStream.Create; // Создаём новый поток
    Image1.Picture.Graphic.SaveToStream(ResponseInfo.ContentStream); // И выгружаем в него картинку из Image1
  end;
.....
end;

p.s. Естественно если заранее известно в каком формате картинка в Image1, то можно не "городить огород" с получением и переводом графического типа в "Content-Type", а сразу присваивать этот "Content-Type" в ResponseInfo.ContentType.
p.p.s. Так как это просто пример, то тут отсутствуют проверки на корректность. В рабочем коде их конечно же нужно добавить.