проект без формы.

[NEoMASTERR]

Добрый вечер. При посылке на udpserver текста не срабатывает процедура. В чем я ошибся?

PHP код:

var
  Msg:TMsg;
  udpserver1: TIdUDPServer;


procedure onudpread(AData: TStream; ABinding: TIdSocketHandle);
var
  str:TStringStream;
  s:string;
begin
  Str := TStringStream.Create('');
  Str.CopyFrom(AData, AData.Size);
  s:=str.DataString;
  if Copy(s,0,3)='msg' then MessageBox(0,PChar(copy(s,5,Length(s))),'',0);
end;

begin
  udpserver1:=TIdUDPServer.Create(nil);
  with udpserver1.Create(nil) do
  begin
    OnUDPRead:=onudpread;
    DefaultPort:=9995;
    Active:=true;
  end;



  while GetMessage(Msg,0,0,0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end. 


[mss]

В чем я ошибся?

В том что механизм событий в индейском IdUDPServer никак не связан с механизмом виндовых сообщений, который ты пытаешься окучить начиная с GetMessage и ниже по тексту.
Окон никаких нет, сообщений осн.кодовому потоку твоего "безоконного" процесса тоже никто не посылает - вот он твой осн.поток и висит в ожидании "у моря погоды")

Ну и еще чудесатей - ты создал экз-р TIdUDPServer и засим успокоился.
А активировать-то сервер кто за тебя будет, Пушкин ?)