Ver Mensaje Individual
  #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
Reputación: 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 17:27:54.
Responder Con Cita