Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-04-2006
majaco majaco is offline
Miembro
 
Registrado: abr 2006
Posts: 10
Poder: 0
majaco Va por buen camino
Ejecutar un PHP sin explorador

Chicos,

Quisiera saber si puedo desde mi programa de delphi ejecutar un archivo PHP situado en un servidor en internet sin abrir el explorador de Windows.

A ver, por ejemplo. El archivo que quiero ejecutar es.

www.mipagina.com.ar/archivo.php?var=variable

Yo tranquilamente puede pedir desde mi programa que se ejecute el internet explorer con esa direccion pero quisiera omitir la apertura de la ventana del internet explorer, o sea que el usuario no pueda ver que se ejecuto esa intruccion

Tambien como hago para ejecutar una aplicación sin ventana principal, ya que iria un codigo que no necesite la interacción con el usuario

Slds desde Argentina
Majaco
Responder Con Cita
  #2  
Antiguo 24-04-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
Vamos a ver, el archivo se "ejecuta" en el servidor cada vez que tu haces una peticion sobre ese archivo, entregandote a ti el resultado. Pues bien, solo tenemos que hacer una peticion sobre ese documento al servidor.

Hay muchas formas de hacerlo, abriendolo en el navegador como tu comentabas, usando los componetes Indy o la que mas me gusta a mi, usando Wininet.

Hace poco en otro hilo utilizaba un codigo similar. Reciclandolo un poco nos quedaria algo asi:

Código Delphi [-]
uses WinInet, Winsock;

function Vamos(Pagina: String): String;
var
  hNet: HINTERNET;
  hUrl: HINTERNET;
  Buffer: array[0..1024] of Char;
  BytesRead: DWORD;
begin
  Result := '';
  hNet := InternetOpen('agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if (hNet <> nil) then
  begin
    hUrl := InternetOpenUrl(hNet, PChar(Pagina), nil, 0, INTERNET_FLAG_RELOAD, 0);
    if (hUrl <> nil) then
    begin
      FillChar(Buffer,Sizeof(Buffer),0);
      while InternetReadFile(hUrl, @Buffer, sizeof(Buffer)-1, BytesRead) do
      begin
        if BytesRead > 0 then
          Result:= Result + String(PChar(@Buffer))
        else
          break;
      end;
      InternetCloseHandle(hUrl);
    end;
    InternetCloseHandle(hNet);
  end;
end;

Esta funcion pide el documento al servidor y nos devuelve su contenido (suponiendo que este sea un texto)

Última edición por seoane fecha: 24-04-2006 a las 18:27:54.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Abrir una carpeta con el explorador de windows [Gunman] API de Windows 1 02-01-2006 16:58:04
Problemas con el Explorador con las PC en Red santi33a Windows 0 20-12-2005 18:16:46
Explorador de directorios. zugazua2001 Varios 1 08-06-2005 18:48:54
Archivos depagina web en el Explorador de Windows!! ealuna API de Windows 3 02-05-2005 17:03:12
Mostrar un directorio con el explorador de archivos de windows Jan_polero API de Windows 2 11-01-2005 19:40:21


La franja horaria es GMT +2. Ahora son las 15:17:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi