Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 29-02-2020
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.015
Poder: 23
oscarac Va por buen camino
actualizacion

ya logre postear el webservice en la Ip Publica
he creado 2 archivos

wsServidor.php
wsBaseDatos.php


wsServidor
Código PHP:
<?php

include_once('wsBaseDatos.php');
include_once(
'nusoap.php');

$wsBD = new wsBaseDatos;

$servidor= new soap_server;
$servidor->register("ObtenerDatos");
if( !isset(
$HTTP_RAW_POST_DATA)){
    
$HTTP_RAW_POST_DATA = file_get_contents("php://input");
}
$servidor->service($HTTP_RAW_POST_DATA);

function 
ObtenerDatos($cod, $periodo){
    global 
$wsBD;
    
$sql="select * from prueba where codigo = $cod and periodo = $periodo";
    
$rpta=$wsBD->consultar($sql);
    return 
json_encode($rpta);
    }

?>
wsBaseDatos.php
Código PHP:
<?php

class wsBaseDatos{
    private 
$cnx=null;
    
#==================
    
private function conectar(){
        
$this->cnx=mysqli_connect('IPPUBLICA','usuario','clave','base de datos','puerto');
        
mysqli_query($this->cnx,"set names utf-8");
    }
    
#==================
    
public function consultar($sql){
        
$this->conectar();
        
$rpta=mysqli_query($this->cnx,$sql);
        
        if(
mysqli_num_rows($rpta)>0){
            while(
$f=mysqli_fetch_assoc($rpta)){
                
$salida[]=$f;
            }
        }else{
            
$salida=array();
        }
        
$this->desconectar();
        return 
$salida;
    }
    
#==================
    
function ejecutar($sql){
        
$this->conectar();
        
$exito=mysqli_query($this->cnx,$sql);
        
$this->desconectar();
        if(
$exito==1 or $exito==true){
            return 
1;
        }else{
            return 
0;
        }
    }
    
#==================
    
private function desconectar(){
        
mysqli_close($this->cnx);
    }
    
#==================
}


?>
ya me funciona via php

pero cuando quiero importar la wsdl en delphi me sale un error que dice


Unable to Load WSDL file/Location http://ippublica/wsServidor.php?wsdl

la verdad no recuerdo mis clases de php como se hacia esto, es decir acceder al web service y q muestre el XML como contenido

alguien me da una mano?
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
 



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
Conexión a base de datos remota martinzcr Firebird e Interbase 3 27-08-2007 19:46:00
Conexion remota a Base de datos jorelivi Servers 1 22-06-2007 22:50:11
Conectar a una base de datos remota dec Trucos 4 17-10-2006 03:39:56
Enviar Mensaje a una IP Publica(Remota) AGAG4 Internet 0 25-10-2004 21:49:41
Contectar con base de datos remota sonjeux Internet 2 16-07-2004 20:33:21


La franja horaria es GMT +2. Ahora son las 14:05:20.


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