Ver Mensaje Individual
  #2  
Antiguo 22-10-2008
Omega Omega is offline
Miembro
 
Registrado: jun 2008
Posts: 25
Reputación: 0
Omega Va por buen camino
Se me ocurre que tu aplicación ademas pudiera ser un mini servidor HTTP.

Luego en la web y usando PHP accedes a ese servidor, con un simple file get contents.

Aquí te dejo ejemplo de como seria la parte de la aplicación. Usando un IdHTTPServer de Indy.
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
 IdHTTPServer1.Active := True;
end;

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
 if ARequestInfo.Document = '/iniciar' then begin
  ShowMessage('Iniciar');
 end else begin
  ShowMessage('Finalizar');
 end;
 AResponseInfo.CloseConnection := True;
end;

Y por ultimo ejemplo de como seria la parte web.
Código:
<?
# Llamar Procedure Lanzar:
file_get_contents('http://IP.DEL.PC/lanzar');

# Llamar Procedure Finalizar:
file_get_contents('http://IP.DEL.PC/finalizar');
?>
Saludos, espero te sirva.
Responder Con Cita